forked from mirrors/org-mode
Bug fix, to remove nil face in face list.
Patch from Wanrong Lin.
This commit is contained in:
parent
d0d632533d
commit
13d84d1bdb
|
@ -12,6 +12,7 @@
|
||||||
special case wdays=0.
|
special case wdays=0.
|
||||||
(org-agenda-get-deadlines): Pass wdays to
|
(org-agenda-get-deadlines): Pass wdays to
|
||||||
`org-agenda-deadline-face'.
|
`org-agenda-deadline-face'.
|
||||||
|
(org-agenda-align-tags): Bug fix.
|
||||||
|
|
||||||
2008-02-28 Bastien Guerry <bzg@altern.org>
|
2008-02-28 Bastien Guerry <bzg@altern.org>
|
||||||
|
|
||||||
|
|
4
org.el
4
org.el
|
@ -23059,8 +23059,8 @@ the new TODO state."
|
||||||
(if line (point-at-eol) nil) t)
|
(if line (point-at-eol) nil) t)
|
||||||
(add-text-properties
|
(add-text-properties
|
||||||
(match-beginning 2) (match-end 2)
|
(match-beginning 2) (match-end 2)
|
||||||
(list 'face (list 'org-tag (get-text-property
|
(list 'face (delq nil (list 'org-tag (get-text-property
|
||||||
(match-beginning 2) 'face))))
|
(match-beginning 2) 'face)))))
|
||||||
(setq l (- (match-end 2) (match-beginning 2))
|
(setq l (- (match-end 2) (match-beginning 2))
|
||||||
c (if (< org-agenda-tags-column 0)
|
c (if (< org-agenda-tags-column 0)
|
||||||
(- (abs org-agenda-tags-column) l)
|
(- (abs org-agenda-tags-column) l)
|
||||||
|
|
Loading…
Reference in New Issue