tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-agenda: don't show trailing color if no matcher

Browse source 
* lisp/org-agenda.el (org-agenda-get-restriction-and-command):
  when no matcher was specified there is no point in showing
  a trailing colon (and space).
This commit is contained in:
memeplex 2019-02-22 00:32:58 -03:00 committed by Nicolas Goaziou
parent b0932f703e
commit 029cf66f01
1 changed files with 12 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lisp/org-agenda.el
View file

@ -3026,19 +3026,18 @@ s Search for keywords M Like m, but only TODO entries
(symbol-name type) (symbol-name type)
"Lambda expression")) "Lambda expression"))
(t "???")))) (t "???"))))
(if org-agenda-menu-show-matcher (cond
(setq line ((not (org-string-nw-p match)) nil)
(concat line ": " (org-agenda-menu-show-matcher
(cond (setq line
((stringp match) (concat line ": "
(setq match (copy-sequence match)) (cond
(org-add-props match nil 'face 'org-warning)) ((stringp match)
((listp type) (propertize match nil 'face 'org-warning))
(format "set of %d commands" (length type)))))) ((listp type)
(when (org-string-nw-p match) (format "set of %d commands" (length type)))))))
(add-text-properties (t
0 (length line) (list 'help-echo (org-add-props line nil 'help-echo (concat "Matcher: " match))))
(concat "Matcher: " match)) line)))
(push line lines))) (push line lines)))
(setq lines (nreverse lines)) (setq lines (nreverse lines))
(when prefixes (when prefixes