diff options
| author | Glenn Morris | 2008-10-28 02:57:01 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-10-28 02:57:01 +0000 |
| commit | 30ab4580f6cd4a360ea9de3d5eecfbdb3ccc7489 (patch) | |
| tree | 68b305a8ab00be4e02d68e9d531c65f40ffd29ec | |
| parent | fc0127715c4cea8bc2fc26ebe69592d412555a07 (diff) | |
| download | emacs-30ab4580f6cd4a360ea9de3d5eecfbdb3ccc7489.tar.gz emacs-30ab4580f6cd4a360ea9de3d5eecfbdb3ccc7489.zip | |
(org-agenda-align-tags): Replace use of cl `adjoin'.
| -rw-r--r-- | lisp/org/org-agenda.el | 12 |
1 files 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." | |||
| 4984 | (if line (point-at-eol) nil) t) | 4984 | (if line (point-at-eol) nil) t) |
| 4985 | (add-text-properties | 4985 | (add-text-properties |
| 4986 | (match-beginning 2) (match-end 2) | 4986 | (match-beginning 2) (match-end 2) |
| 4987 | (list 'face (delq nil (adjoin 'org-tag | 4987 | (list 'face (delq nil (let ((prop (get-text-property |
| 4988 | (let ((prop (get-text-property | 4988 | (match-beginning 2) 'face))) |
| 4989 | (match-beginning 2) 'face))) | 4989 | (or (listp prop) (setq prop (list prop))) |
| 4990 | (if (listp prop) | 4990 | (if (memq 'org-tag prop) |
| 4991 | prop | 4991 | prop |
| 4992 | (list prop))))))) | 4992 | (cons 'org-tag prop)))))) |
| 4993 | (setq l (- (match-end 2) (match-beginning 2)) | 4993 | (setq l (- (match-end 2) (match-beginning 2)) |
| 4994 | c (if (< org-agenda-tags-column 0) | 4994 | c (if (< org-agenda-tags-column 0) |
| 4995 | (- (abs org-agenda-tags-column) l) | 4995 | (- (abs org-agenda-tags-column) l) |