From 5ea81465c3c518afb39f23f38038a0b0e4cf14e9 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 28 Dec 2021 22:14:43 -0600
Subject: Don't close splits on `keyboard-escape-quit'

---
 init.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/init.el b/init.el
index 196792b..d9850fa 100644
--- a/init.el
+++ b/init.el
@@ -34,6 +34,10 @@
   ;; C-h deletes backward - see https://idiomdrottning.org/bad-emacs-defaults
   (global-set-key (kbd "C-h") 'delete-backward-char)
   (keyboard-translate ?\C-h ?\C-?))
+  (define-advice keyboard-escape-quit (:around (fn &rest r))
+    "Don't close splits on `keyboard-escape-quit'."
+    (let ((buffer-quit-function #'ignore))
+      (apply fn r)))
 
 (setup (:require +init)
   (:bind "C-c s" (lambda ()
-- 
cgit 1.4.1-21-gabe81