From cdaa585cea7481aca31148350e77a86f22512d0c Mon Sep 17 00:00:00 2001 From: Hanno Perrey Date: Sun, 7 Aug 2022 19:44:18 +0200 Subject: [PATCH] org.el: Improve automatic fast tag selection keys * lisp/org.el (org-fast-tag-selection): After automatically assigning a-z as keys for selection, offer A-Z range. Continue with characters up to tilde character before showing only blanks. Replaces previous logic where also hard-to-type characters were assigned. TINYCHANGE --- lisp/org.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index 8bc123e47..d48a44602 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -11762,7 +11762,13 @@ Returns the new tags string, or nil to not change the current settings." (while (or (rassoc char ntable) (rassoc char table)) (setq char (1+ char))) (setq c2 c1)) - (setq c (or c2 char))) + (setq c (or c2 + (if (> char ?~) + ?\s + char))) + ;; consider characters A-Z after a-z. + (if (equal char ?z) + (setq char ?A))) (when ingroup (push tg (car groups))) (setq tg (org-add-props tg nil 'face (cond -- 2.34.1