Bug fix, to remove nil face in face list.

Patch from Wanrong Lin.
This commit is contained in:
Carsten Dominik 2008-02-29 21:09:11 +01:00
parent d0d632533d
commit 13d84d1bdb
2 changed files with 3 additions and 2 deletions

View File

@ -12,6 +12,7 @@
special case wdays=0.
(org-agenda-get-deadlines): Pass wdays to
`org-agenda-deadline-face'.
(org-agenda-align-tags): Bug fix.
2008-02-28 Bastien Guerry <bzg@altern.org>

4
org.el
View File

@ -23059,8 +23059,8 @@ the new TODO state."
(if line (point-at-eol) nil) t)
(add-text-properties
(match-beginning 2) (match-end 2)
(list 'face (list 'org-tag (get-text-property
(match-beginning 2) 'face))))
(list 'face (delq nil (list 'org-tag (get-text-property
(match-beginning 2) 'face)))))
(setq l (- (match-end 2) (match-beginning 2))
c (if (< org-agenda-tags-column 0)
(- (abs org-agenda-tags-column) l)