ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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>
This commit is contained in:
Julien Danjou 2011-03-17 17:21:05 +01:00
parent 9216453a38
commit 7426874fd9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-agenda.el
View File

@ -5329,9 +5329,9 @@ Any match of REMOVE-RE will be removed from TXT."
(while (string-match remove-re txt) (while (string-match remove-re txt)
(setq txt (replace-match "" t t 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. ;; 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 ;; Prepare the variables needed in the eval of the compiled format
(setq time (cond (s2 (concat (setq time (cond (s2 (concat