Browse Source

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
Hanno Perrey 2 years ago
parent
commit
4db67da68d
1 changed files with 7 additions and 1 deletions
  1. 7 1
      lisp/org.el

+ 7 - 1
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))
 		  (while (or (rassoc char ntable) (rassoc char table))
 		    (setq char (1+ char)))
 		    (setq char (1+ char)))
 		(setq c2 c1))
 		(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)))
 	    (when ingroup (push tg (car groups)))
 	    (setq tg (org-add-props tg nil 'face
 	    (setq tg (org-add-props tg nil 'face
 				    (cond
 				    (cond