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