mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(org-agenda-align-tags): Replace use of cl `adjoin'.

Browse source
This commit is contained in:
Glenn Morris 2008-10-28 02:57:01 +00:00
parent fc0127715c
commit 30ab4580f6
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/org/org-agenda.el
View file

@ -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)