Add better keyboard-quit defun and remap

diff --git a/re/re-bindings.el b/re/re-bindings.el
index d864f0fcf2112566859d43b5321c14f160629572..099b360964f229e9765f5ce152b87d4eca19af40 100644 (file)
--- 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 299b147cb72e7b7564067ee6dc0c6de1d455b086..a011e2cec0f967b0b224ef98bee0e26ee12cf14b 100644 (file)
--- 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