From 649ca2215e98c59b9a9c16128448c6bb1def3b62 Mon Sep 17 00:00:00 2001 From: stardiviner Date: Sat, 13 May 2023 22:22:25 +0800 Subject: [PATCH] org: Improve the tags fast selection performance * lisp/org.el (org-fast-tag-selection): Filter out only short key bound tags for tag fast selection. --- lisp/org.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index 542959f73..dfc15d134 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -11935,7 +11935,7 @@ Returns the new tags string, or nil to not change the current settings." (org-fast-tag-insert "Current" current c-face "\n\n") (org-fast-tag-show-exit exit-after-next) (org-set-current-tags-overlay current ov-prefix) - (setq tbl fulltable char ?a cnt 0) + (setq tbl (seq-filter 'cdr fulltable) char ?a cnt 0) (while (setq e (pop tbl)) (cond ((eq (car e) :startgroup) -- 2.39.2 (Apple Git-143)