From 30ab4580f6cd4a360ea9de3d5eecfbdb3ccc7489 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 28 Oct 2008 02:57:01 +0000 Subject: [PATCH] (org-agenda-align-tags): Replace use of cl `adjoin'. --- lisp/org/org-agenda.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el index 8dd31c8e481..eaa250584ef 100644 --- a/lisp/org/org-agenda.el +++ b/lisp/org/org-agenda.el @@ -4984,12 +4984,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 (adjoin 'org-tag - (let ((prop (get-text-property - (match-beginning 2) 'face))) - (if (listp prop) - prop - (list prop))))))) + (list 'face (delq nil (let ((prop (get-text-property + (match-beginning 2) 'face))) + (or (listp prop) (setq prop (list prop))) + (if (memq 'org-tag prop) + 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) -- 2.39.2