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:
parent
e17ca87994
commit
7a4784b122
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue