[Emacs-diffs] Changes to emacs/lisp/org/org-agenda.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/10/28 02:57:01

Index: org-agenda.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/org-agenda.el,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- org-agenda.el       25 Oct 2008 21:32:47 -0000      1.10
+++ org-agenda.el       28 Oct 2008 02:57:01 -0000      1.11
@@ -4984,12 +4984,12 @@
                                (if line (point-at-eol) nil) t)
        (add-text-properties
         (match-beginning 2) (match-end 2)
-        (list 'face (delq nil (adjoin 'org-tag
-                                       (let ((prop (get-text-property
+        (list 'face (delq nil (let ((prop (get-text-property
                                                     (match-beginning 2) 
'face)))
-                                         (if (listp prop)
+                                (or (listp prop) (setq prop (list prop)))
+                                (if (memq 'org-tag prop)
                                              prop
-                                           (list prop)))))))
+                                  (cons 'org-tag prop))))))
        (setq l (- (match-end 2) (match-beginning 2))
              c (if (< org-agenda-tags-column 0)
                    (- (abs org-agenda-tags-column) l)