Kaynağa Gözat

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 3 yıl önce
ebeveyn
işleme
4db67da68d
1 değiştirilmiş dosya ile 7 ekleme ve 1 silme
  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