From: rearman <rearman@r717.net>
Date: Wed, 20 Aug 2025 21:03:57 +0000 (-0400)
Subject: Add better keyboard-quit defun and remap
X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=77f0da92e89535cd50f150d0055fdade442ee10d;p=emacsinit.git

Add better keyboard-quit defun and remap
---

diff --git a/re/re-bindings.el b/re/re-bindings.el
index d864f0f..099b360 100644
--- a/re/re-bindings.el
+++ b/re/re-bindings.el
@@ -25,6 +25,7 @@
 (keymap-global-set "<remap> <capitalize-word>" #'capitalize-dwim) ; M-c
 (keymap-global-set "<remap> <downcase-word>" #'downcase-dwim) ; M-l
 (keymap-global-set "<remap> <upcase-word>" #'upcase-dwim) ; M-u
+(keymap-global-set "<remap> <keyboard-quit>" #'re/keyboard-quit) ; C-g works better
 
 ;; Wayfindiŋ
 (keymap-global-set "<home>" #'beginning-of-buffer)
diff --git a/re/re-editing-defuns.el b/re/re-editing-defuns.el
index 299b147..a011e2c 100644
--- a/re/re-editing-defuns.el
+++ b/re/re-editing-defuns.el
@@ -179,5 +179,16 @@ Prompt for url and local dir."
     (goto-char (point-min))
     (special-mode)))
 
+(defun re/keyboard-quit ()
+  "Smarter version of `keyboard-quit'.
+Close the minibuffer if not focused when hit.
+Stolen from emacsredux.com."
+  (interactive)
+  (if (active-minibuffer-window)
+      (if (minibufferp)
+	  (minibuffer-keyboard-quit)
+	(abort-recursive-edit))
+    (keyboard-quit)))
+
 (provide 're-editing-defuns)
 ;;; re-editing-defuns.el ends here