summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarco Wahl <marcowahlsoft@gmail.com>2019-07-24 00:37:01 +0200
committerMarco Wahl <marcowahlsoft@gmail.com>2019-07-24 00:37:01 +0200
commit09a15f4d7f474a0dc38193a955e1929984a7e803 (patch)
treefbff576ca266d88658e386c8392cfc55f45e3e87
parent13442ab719ff50e6cdbc65a2bc6bd6da6c0c1ab7 (diff)
downloadorg-mode-09a15f4d7f474a0dc38193a955e1929984a7e803.tar.gz
org-agenda: Unify user interfaces for bulk action and tag filtering
-rw-r--r--lisp/org-agenda.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 9106415..f1a99bc 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -7576,11 +7576,11 @@ also press `-' or `+' to switch between filtering and excluding."
(unless char
(while (not (memq char valid-char-list))
(org-unlogged-message
- "%s by tag [%s ]:tag-char, [TAB]:tag, %s[/]:off, [+/-]:filter/exclude%s, [q]:quit"
- (if exclude "Exclude" "Filter")
+ "%s by tag%s: [%s ]tag-char [TAB]tag %s[/]off [q]uit"
+ (if exclude "Exclude[+]" "Filter[-]")
+ (if expand "" " (no grouptag expand)")
tag-chars
- (if org-agenda-auto-exclude-function "[RET], " "")
- (if expand "" ", no grouptag expand"))
+ (if org-agenda-auto-exclude-function "[RET] " ""))
(setq char (read-char-exclusive))
;; Excluding or filtering down
(cond ((eq char ?-) (setq exclude t))
@@ -9915,9 +9915,9 @@ The prefix arg is passed through to the command if possible."
;; Prompt for the bulk command.
(org-unlogged-message
- (concat (if org-agenda-persistent-marks "Bulk (persistent): " "Bulk: ")
+ (concat "Bulk (" (if org-agenda-persistent-marks "" "don't ") "[p]ersist marks): "
"[$]arch [A]rch->sib [t]odo [+/-]tag [s]chd [d]eadline [r]efile "
- "[S]catter [f]unction [p]ersist-toggle "
+ "[S]catter [f]unction "
(and org-agenda-bulk-custom-functions
(format " Custom: [%s]"
(mapconcat (lambda (f) (char-to-string (car f)))