awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix: prevent quit in the middle of doom/escape

Browse Source
This commit is contained in:
Henrik Lissner
2023-09-12 18:56:01 +02:00
parent 7acb67285c
commit f26b038ec3
1 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/doom-keybinds.el
View File

@ -93,6 +93,7 @@ all hooks after it are ignored.")
(defun doom/escape (&optional interactive) (defun doom/escape (&optional interactive)
"Run `doom-escape-hook'." "Run `doom-escape-hook'."
(interactive (list 'interactive)) (interactive (list 'interactive))
(let ((inhibit-quit t))
(cond ((minibuffer-window-active-p (minibuffer-window)) (cond ((minibuffer-window-active-p (minibuffer-window))
;; quit the minibuffer if open. ;; quit the minibuffer if open.
(when interactive (when interactive
@ -105,7 +106,7 @@ all hooks after it are ignored.")
;; Back to the default ;; Back to the default
((unwind-protect (keyboard-quit) ((unwind-protect (keyboard-quit)
(when interactive (when interactive
(setq this-command 'keyboard-quit)))))) (setq this-command 'keyboard-quit)))))))
(global-set-key [remap keyboard-quit] #'doom/escape) (global-set-key [remap keyboard-quit] #'doom/escape)