Mercurial > emacs
comparison lisp/calc/calc.el @ 112394:23a54fb18e67
calc/calc-undo.el (calc-undo): Autoload it.
calc/calc-ext.el (calc-init-extensions): Remove keybindings and autoload for `calc-undo'.
calc/calc.el (calc-mode-map): Add keybindings for `calc-undo'.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Thu, 20 Jan 2011 22:54:37 -0600 |
| parents | ef719132ddfa |
| children | 06719a229a46 |
comparison
equal
deleted
inserted
replaced
| 112393:f7e256e5ea88 | 112394:23a54fb18e67 |
|---|---|
| 1059 (define-key map "\C-m" 'calc-enter) | 1059 (define-key map "\C-m" 'calc-enter) |
| 1060 (define-key map "\M-\C-m" 'calc-last-args-stub) | 1060 (define-key map "\M-\C-m" 'calc-last-args-stub) |
| 1061 (define-key map "\C-j" 'calc-over) | 1061 (define-key map "\C-j" 'calc-over) |
| 1062 (define-key map "\C-y" 'calc-yank) | 1062 (define-key map "\C-y" 'calc-yank) |
| 1063 (define-key map [mouse-2] 'calc-yank) | 1063 (define-key map [mouse-2] 'calc-yank) |
| 1064 (define-key map [remap undo] 'calc-undo) | |
| 1064 | 1065 |
| 1065 (mapc (lambda (x) (define-key map (char-to-string x) 'undefined)) | 1066 (mapc (lambda (x) (define-key map (char-to-string x) 'undefined)) |
| 1066 "lOW") | 1067 "lOW") |
| 1067 (mapc (lambda (x) (define-key map (char-to-string x) 'calc-missing-key)) | 1068 (mapc (lambda (x) (define-key map (char-to-string x) 'calc-missing-key)) |
| 1068 (concat "ABCDEFGHIJKLMNOPQRSTUVXZabcdfghjkmoprstuvwxyz" | 1069 (concat "ABCDEFGHIJKLMNOPQRSTUVXZabcdfghjkmoprstuvwxyz" |