diff options
| author | Case Duckworth | 2021-12-28 22:14:43 -0600 |
|---|---|---|
| committer | Case Duckworth | 2021-12-28 22:14:43 -0600 |
| commit | 5ea81465c3c518afb39f23f38038a0b0e4cf14e9 (patch) | |
| tree | 1a82c3ce5ce1b9f25a27d445382504838527d94a | |
| parent | Message when loading all libraries (diff) | |
| download | emacs-5ea81465c3c518afb39f23f38038a0b0e4cf14e9.tar.gz emacs-5ea81465c3c518afb39f23f38038a0b0e4cf14e9.zip | |
Don't close splits on `keyboard-escape-quit'
| -rw-r--r-- | init.el | 4 |
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 () |