changeset 96219:6b5e14225482

(calc-mode-map): Add extra keybindings to `calc-missing-key'.
author Jay Belanger <jay.p.belanger@gmail.com>
date Tue, 24 Jun 2008 05:21:40 +0000
parents 15fc1f3d8664
children 9c123dfc1232
files lisp/calc/calc.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc.el	Tue Jun 24 04:52:51 2008 +0000
+++ b/lisp/calc/calc.el	Tue Jun 24 05:21:40 2008 +0000
@@ -1033,7 +1033,10 @@
           "lOW")
     (mapc (lambda (x) (define-key map (char-to-string x) 'calc-missing-key))
           (concat "ABCDEFGHIJKLMNPQRSTUVXZabcdfghjkmoprstuvwxyz"
-                  ":\\|!()[]<>{},;=~`\C-k\M-k\C-w\M-w\C-_"))
+                  ":\\|!()[]<>{},;=~`\C-k\C-w\C-_"))
+    (define-key map "\M-w" 'calc-missing-key)
+    (define-key map "\M-k" 'calc-missing-key)
+    (define-key map "\M-\C-w" 'calc-missing-key)
     (mapc (lambda (x) (define-key map (char-to-string x) 'calcDigit-start))
           "_0123456789.#@")
     map)