From a82797356c8c4e85fa0541479d70719c9f2bb09d Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 18 Sep 2012 09:09:41 +0200 Subject: [PATCH] org-agenda.el: Fix the display of the number of commands for block agendas MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * 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. --- lisp/org-agenda.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 708831599..9d7d2fa3b 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