diff options
| author | Bastien Guerry <bzg@altern.org> | 2011-12-12 17:23:44 +0100 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2011-12-12 17:23:44 +0100 |
| commit | 5935f0428940e0f97ce2e4bfd7511824e39271bd (patch) | |
| tree | 2982b644cf035775ceeffdb6c2f9e3acc681abcb | |
| parent | 2deac0b0727be7f14dc7a8bce85ce452821299aa (diff) | |
| download | org-mode-5935f0428940e0f97ce2e4bfd7511824e39271bd.tar.gz | |
org-agenda.el: small indentation fix.
| -rw-r--r-- | lisp/org-agenda.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index b338d9f..fb56b5b 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -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) |