Bläddra i källkod

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 <julien@danjou.info>
Julien Danjou 14 år sedan
förälder
incheckning
7426874fd9
1 ändrade filer med 2 tillägg och 2 borttagningar
  1. 2 2
      lisp/org-agenda.el

+ 2 - 2
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