feat: don't delete shell/term windows via C-g

seagle0128 · Jul 12, 2024 · 1c7526b · 1c7526b
1 parent 2356e70
commit 1c7526b
Showing 1 changed file with 10 additions and 4 deletions.
diff --git a/lisp/init-window.el b/lisp/init-window.el
@@ -239,10 +239,16 @@
       "Close popper window via `C-g'."
       ;; `C-g' can deactivate region
       (when (and ;(called-interactively-p 'interactive)
-                 (not (region-active-p))
-                 popper-open-popup-alist)
-        (let ((window (caar popper-open-popup-alist)))
-          (when (window-live-p window)
+             (not (region-active-p))
+             popper-open-popup-alist)
+        (when-let ((window (caar popper-open-popup-alist))
+                   (buffer (cdar popper-open-popup-alist)))
+          (when (and (with-current-buffer buffer
+                       (not (derived-mode-p 'eshell-mode
+                                            'shell-mode
+                                            'term-mode
+                                            'vterm-mode)))
+                     (window-live-p window))
             (delete-window window)))))
     (advice-add #'keyboard-quit :before #'popper-close-window-hack)))