From 80515d825ed6b619008df9afaffc4cc0f925f754 Mon Sep 17 00:00:00 2001 From: Steven E. Harris Date: Fri, 25 Jul 2008 20:24:08 -0400 Subject: [PATCH] Conditionally add symbol `org-tag' only when it's not already part of the text properties. --- lisp/org-agenda.el | 8 ++++++-- 1 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 9a7ed8b..33c2a39 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -4768,8 +4768,12 @@ the new TODO state." (if line (point-at-eol) nil) t) (add-text-properties (match-beginning 2) (match-end 2) - (list 'face (delq nil (list 'org-tag (get-text-property - (match-beginning 2) 'face))))) + (list 'face (delq nil (adjoin 'org-tag + (let ((prop (get-text-property + (match-beginning 2) 'face))) + (if (listp prop) + prop + (list prop))))))) (setq l (- (match-end 2) (match-beginning 2)) c (if (< org-agenda-tags-column 0) (- (abs org-agenda-tags-column) l) -- 1.5.6