From 120c4fd7d9038fdf22dfcfda7f021b0486813464 Mon Sep 17 00:00:00 2001 From: alexgiorev Date: Thu, 10 Feb 2022 17:24:36 +0200 Subject: [PATCH 1/2] lisp/org.el: org-tag-fast-selection fix tag/TODO key overlap * lisp/org.el (org-tag-fast-selection): Avoid key duplication for tags and TODO keywords when the keys are automatically generated. TINYCHANGE --- lisp/org.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index ef8d460e1..6fb79f180 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -12480,8 +12480,8 @@ Returns the new tags string, or nil to not change the current settings." (setq c1 (string-to-char (downcase (substring tg (if (= (string-to-char tg) ?@) 1 0))))) - (if (or (rassoc c1 ntable) (rassoc c1 table)) - (while (or (rassoc char ntable) (rassoc char table)) + (if (or (rassoc c1 ntable) (rassoc c1 fulltable)) + (while (or (rassoc char ntable) (rassoc char fulltable)) (setq char (1+ char))) (setq c2 c1)) (setq c (or c2 char))) -- 2.25.1