|
@@ -5832,7 +5832,7 @@ could bind the variable in the options section of a custom command.")
|
|
|
(defun org-agenda-highlight-todo (x)
|
|
|
(let ((org-done-keywords org-done-keywords-for-agenda)
|
|
|
(case-fold-search nil)
|
|
|
- re)
|
|
|
+ re)
|
|
|
(if (eq x 'line)
|
|
|
(save-excursion
|
|
|
(beginning-of-line 1)
|
|
@@ -5853,13 +5853,13 @@ could bind the variable in the options section of a custom command.")
|
|
|
(add-text-properties
|
|
|
(or (match-end 1) (match-end 0)) (match-end 0)
|
|
|
(list 'face (org-get-todo-face (match-string 2 x)))
|
|
|
- x)
|
|
|
+ x)
|
|
|
(when (match-end 1)
|
|
|
(setq x (concat (substring x 0 (match-end 1))
|
|
|
(format org-agenda-todo-keyword-format
|
|
|
(match-string 2 x))
|
|
|
- (org-add-props " " (text-properties-at 0 x))
|
|
|
- (substring x (match-end 3)))))))
|
|
|
+ (org-add-props " " (text-properties-at 0 x))
|
|
|
+ (substring x (match-end 3)))))))
|
|
|
x)))
|
|
|
|
|
|
(defsubst org-cmp-priority (a b)
|