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.
This commit is contained in:
Ihor Radchenko 2023-08-20 09:36:40 +03:00
parent e17ca87994
commit 7a4784b122
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 2 additions and 1 deletions

View File

@ -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)