diff options
| -rw-r--r-- | lisp/calc/calc.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 5ff4f9a786c..f1fc2c411a0 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el | |||
| @@ -1033,7 +1033,10 @@ Used by `calc-user-invocation'.") | |||
| 1033 | "lOW") | 1033 | "lOW") |
| 1034 | (mapc (lambda (x) (define-key map (char-to-string x) 'calc-missing-key)) | 1034 | (mapc (lambda (x) (define-key map (char-to-string x) 'calc-missing-key)) |
| 1035 | (concat "ABCDEFGHIJKLMNPQRSTUVXZabcdfghjkmoprstuvwxyz" | 1035 | (concat "ABCDEFGHIJKLMNPQRSTUVXZabcdfghjkmoprstuvwxyz" |
| 1036 | ":\\|!()[]<>{},;=~`\C-k\M-k\C-w\M-w\C-_")) | 1036 | ":\\|!()[]<>{},;=~`\C-k\C-w\C-_")) |
| 1037 | (define-key map "\M-w" 'calc-missing-key) | ||
| 1038 | (define-key map "\M-k" 'calc-missing-key) | ||
| 1039 | (define-key map "\M-\C-w" 'calc-missing-key) | ||
| 1037 | (mapc (lambda (x) (define-key map (char-to-string x) 'calcDigit-start)) | 1040 | (mapc (lambda (x) (define-key map (char-to-string x) 'calcDigit-start)) |
| 1038 | "_0123456789.#@") | 1041 | "_0123456789.#@") |
| 1039 | map) | 1042 | map) |