diff options
author | Bastien Guerry <bzg@altern.org> | 2012-09-18 09:09:41 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-09-18 09:09:41 +0200 |
commit | a82797356c8c4e85fa0541479d70719c9f2bb09d (patch) | |
tree | d5a318f5d7af7da31f2739c2ace769dbccb203cc | |
parent | 6cc7ff10929a0a76e022442bd4f98fd6ab873be6 (diff) | |
download | org-mode-a82797356c8c4e85fa0541479d70719c9f2bb09d.tar.gz |
org-agenda.el: Fix the display of the number of commands for block agendas
* org-agenda.el (org-agenda-get-restriction-and-command): Fix
the display of the number of commands for block agendas.
Thanks to Sébastien Vauban for reporting this.
-rw-r--r-- | lisp/org-agenda.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 7088315..9d7d2fa 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -2675,13 +2675,12 @@ L Timeline for current buffer # List stuck projects (!=configure) ((stringp match) (setq match (copy-sequence match)) (org-add-props match nil 'face 'org-warning)) - (match - (format "set of %d commands" (length match))) - (t "")))) + ((listp type) + (format "set of %d commands" (length type)))))) (if (org-string-nw-p match) (add-text-properties 0 (length line) (list 'help-echo - (concat "Matcher: "match)) line))) + (concat "Matcher: " match)) line))) (push line lines))) (setq lines (nreverse lines)) (when prefixes |