chiark / gitweb /
dot/emacs, el/dot-emacs.el: Defeat `keyboard-escape-quit'.
[profile] / el / dot-emacs.el
index 3a461d67da62ef2cf985c04bc1660ca3c9be4099..dbc1677cbbd74df75c63efcdaefd6cf5f3aead79 100644 (file)
@@ -52,6 +52,11 @@ (defmacro mdw-regexps (&rest 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