From 7a4784b12294b34af241790947f128b71442ef1b Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Sun, 20 Aug 2023 09:36:40 +0300 Subject: [PATCH] org-fast-tag-selection: Fix when C-g is pressed * lisp/org.el (org-fast-tag-selection): Fix "no catch" error. But do not directly set `quit-flag' as it was done in the earlier versions. Instead, call `keyboard-quit', allowing it to perform the necessary cleanups. --- lisp/org.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index 430d9e274..9fb9e54b7 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -12102,7 +12102,8 @@ Returns the new tags string, or nil to not change the current settings." ((or ?\C-g (and ?q (guard (not (rassoc input-char tag-table-local))))) (delete-overlay org-tags-overlay) - (throw 'quit nil)) + ;; Quit as C-g does. + (keyboard-quit)) ;; Clear tags. (?\s (setq current-tags nil)