[Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jay Belanger <jpb>      08/06/24 05:21:41

Index: calc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc.el,v
retrieving revision 1.110
retrieving revision 1.111
diff -u -b -r1.110 -r1.111
--- calc.el     13 May 2008 19:10:56 -0000      1.110
+++ calc.el     24 Jun 2008 05:21:40 -0000      1.111
@@ -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)