Mercurial > emacs
comparison lisp/org/org-agenda.el @ 99179:ff3f463a949c
(org-agenda-align-tags): Replace use of cl `adjoin'.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 28 Oct 2008 02:57:01 +0000 |
| parents | 8fa7ef477c04 |
| children | e3acb52d33e1 |
comparison
equal
deleted
inserted
replaced
| 99178:8af0a96bf7da | 99179:ff3f463a949c |
|---|---|
| 4982 (goto-char (if line (point-at-bol) (point-min))) | 4982 (goto-char (if line (point-at-bol) (point-min))) |
| 4983 (while (re-search-forward (org-re "\\([ \t]+\\)\\(:[[:alnum:]_@:]+:\\)[ \t]*$") | 4983 (while (re-search-forward (org-re "\\([ \t]+\\)\\(:[[:alnum:]_@:]+:\\)[ \t]*$") |
| 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) |
| 4996 org-agenda-tags-column)) | 4996 org-agenda-tags-column)) |
| 4997 (delete-region (match-beginning 1) (match-end 1)) | 4997 (delete-region (match-beginning 1) (match-end 1)) |