[elpa] externals/org 4db67da68d: org.el: Improve automatic fast tag selection keys

[ELPA Syncer]

branch: externals/org
commit 4db67da68db820184bd9d4208c4f8bd7370ee9de
Author: Hanno Perrey <hanno@hoowl.se>
Commit: Ihor Radchenko <yantar92@gmail.com>

    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 8bc123e47e..3b1caecf11 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