about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-12-28 22:14:43 -0600
committerCase Duckworth2021-12-28 22:14:43 -0600
commit5ea81465c3c518afb39f23f38038a0b0e4cf14e9 (patch)
tree1a82c3ce5ce1b9f25a27d445382504838527d94a
parentMessage when loading all libraries (diff)
downloademacs-5ea81465c3c518afb39f23f38038a0b0e4cf14e9.tar.gz
emacs-5ea81465c3c518afb39f23f38038a0b0e4cf14e9.zip
Don't close splits on `keyboard-escape-quit'
-rw-r--r--init.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/init.el b/init.el index 196792b..d9850fa 100644 --- a/init.el +++ b/init.el
@@ -34,6 +34,10 @@
34 ;; C-h deletes backward - see https://idiomdrottning.org/bad-emacs-defaults 34 ;; C-h deletes backward - see https://idiomdrottning.org/bad-emacs-defaults
35 (global-set-key (kbd "C-h") 'delete-backward-char) 35 (global-set-key (kbd "C-h") 'delete-backward-char)
36 (keyboard-translate ?\C-h ?\C-?)) 36 (keyboard-translate ?\C-h ?\C-?))
37 (define-advice keyboard-escape-quit (:around (fn &rest r))
38 "Don't close splits on `keyboard-escape-quit'."
39 (let ((buffer-quit-function #'ignore))
40 (apply fn r)))
37 41
38(setup (:require +init) 42(setup (:require +init)
39 (:bind "C-c s" (lambda () 43 (:bind "C-c s" (lambda ()