Skip to content

Commit

Permalink
org.el: Improve automatic fast tag selection keys
Browse files Browse the repository at this point in the history
* 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
  • Loading branch information
hperrey authored and yantar92 committed Aug 8, 2022
1 parent 00adad9 commit 4db67da
Showing 1 changed file with 7 additions and 1 deletion.
8 changes: 7 additions & 1 deletion lisp/org.el
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit 4db67da

Please sign in to comment.