mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-23 23:18:36 +00:00
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:
parent
9216453a38
commit
7426874fd9
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue