dot/emacs, el/dot-emacs.el: Defeat `keyboard-escape-quit'.

This is a really bad command to invoke by accident because it vaporizes
your current, possibly elaborate, window configuration.  Unfortunately,
it's bound to ESC ESC ESC, which is also C-[ C-[ C-[, and C-[ is right
next to C-p, which I often try to bounce on, oblivious to the occasional
off-by-one error.

  * Bind ESC ESC to a function which says `wrong-button' (and fails to
    ring the bell because Emacs is broken).  At least this way I'm
    likely to notice.

  * Bind ESC C-] C-] to `keyboard-escape-quit', because it might just be
    useful for something.

diff --git a/dot/emacs b/dot/emacs
index f4097922405c7a39ef76228de96b3f2c1b950aeb..6b150667b5eb57c565c2ce5720ac7f6094203ef6 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -466,6 +466,8 @@
 (setq windmove-wrap-around t)
 (trap (iswitchb-mode))
 (progn
 (setq windmove-wrap-around t)
 (trap (iswitchb-mode))
 (progn

+  (global-set-key [?\e ?\e] 'mdw-wrong)
+  (global-set-key [?\e ?\C-\] ?\C-\]] 'keyboard-escape-quit)

   (global-set-key [?\C-x ?w left] 'windmove-left)
   (global-set-key [?\C-x ?w ?h] 'windmove-left)
   (global-set-key [?\C-x ?w up] 'windmove-up)
   (global-set-key [?\C-x ?w left] 'windmove-left)
   (global-set-key [?\C-x ?w ?h] 'windmove-left)
   (global-set-key [?\C-x ?w up] 'windmove-up)

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 3a461d67da62ef2cf985c04bc1660ca3c9be4099..dbc1677cbbd74df75c63efcdaefd6cf5f3aead79 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -52,6 +52,11 @@ (defmacro mdw-regexps (&rest list)
           (debug 0))
   `',(make-regexp list))
 
           (debug 0))
   `',(make-regexp list))
 

+(defun mdw-wrong ()
+  "This is not the key sequence you're looking for."
+  (interactive)
+  (error "wrong button"))
+

 ;; Some error trapping.
 ;;
 ;; If individual bits of this file go tits-up, we don't particularly want
 ;; Some error trapping.
 ;;
 ;; If individual bits of this file go tits-up, we don't particularly want