ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org: User interface message at tag edit slightly more legible

This commit is contained in:
Marco Wahl 2017-07-19 00:16:23 +02:00
parent 5e4bb2627c
commit 534678382f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/org.el
View File

@ -15207,7 +15207,7 @@ Returns the new tags string, or nil to not change the current settings."
(setq rtn (setq rtn
(catch 'exit (catch 'exit
(while t (while t
(message "[a-z..]:Toggle [SPC]:clear [RET]:accept [TAB]:free [!] %sgroups%s" (message "[a-z..]:toggle [SPC]:clear [RET]:accept [TAB]:edit [!] %sgroups%s"
(if (not groups) "no " "") (if (not groups) "no " "")
(if expert " [C-c]:window" (if exit-after-next " [C-c]:single" " [C-c]:multi"))) (if expert " [C-c]:window" (if exit-after-next " [C-c]:single" " [C-c]:multi")))
(setq c (let ((inhibit-quit t)) (read-char-exclusive))) (setq c (let ((inhibit-quit t)) (read-char-exclusive)))