diff options
author | Marco Wahl <marcowahlsoft@gmail.com> | 2017-05-19 09:17:05 +0200 |
---|---|---|
committer | Marco Wahl <marcowahlsoft@gmail.com> | 2017-05-19 09:17:05 +0200 |
commit | ab79f112b4c4d8bbca1baf7d28cbe70726537317 (patch) | |
tree | edb7ad04d96e61eb85916f49ccb23915e70aab93 | |
parent | 71f7506dc57228bd1b8cdb92abbb0d0a199ed01d (diff) | |
download | org-mode-ab79f112b4c4d8bbca1baf7d28cbe70726537317.tar.gz |
org-agenda: Friendlier agenda tag filter user interface
* lisp/org-agenda.el (org-agenda-filter-by-tag): Added little texts
for the tag-char item and the tag-chooser item.
-rw-r--r-- | lisp/org-agenda.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index d8c23b1..313f46f 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7444,8 +7444,9 @@ also press `-' or `+' to switch between filtering and excluding." (unless char (while (not (memq char valid-char-list)) (message - "%s by tag [%s ], [TAB], %s[/]:off, [+/-]:filter/exclude%s, [q]:quit" - (if exclude "Exclude" "Filter") tag-chars + "%s by tag [%s ]:tag-char, [TAB]:tag, %s[/]:off, [+/-]:filter/exclude%s, [q]:quit" + (if exclude "Exclude" "Filter") + tag-chars (if org-agenda-auto-exclude-function "[RET], " "") (if expand "" ", no grouptag expand")) (setq char (read-char-exclusive)) |