From 7426874fd9a55ca72a887ce5a192cf121d99853d Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Thu, 17 Mar 2011 17:21:05 +0100 Subject: [PATCH] org-agenda: fix comment and use add-text-properties when formatting * lisp/org-agenda.el (org-format-agenda-item): Fix comment and use `add-text-properties'. Signed-off-by: Julien Danjou --- lisp/org-agenda.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 971d0702a..66e49fb96 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5329,9 +5329,9 @@ Any match of REMOVE-RE will be removed from TXT." (while (string-match remove-re txt) (setq txt (replace-match "" t t txt)))) - ;; Set org-heading property on `rtn' to mark the start of the + ;; Set org-heading property on `txt' to mark the start of the ;; heading. - (setq txt (propertize txt 'org-heading t)) + (add-text-properties 0 (1- (length txt)) '(org-heading t) txt) ;; Prepare the variables needed in the eval of the compiled format (setq time (cond (s2 (concat