Mercurial > emacs
comparison lisp/calc/calc-ext.el @ 112391:93209af5dc0b
calc/calc-ext.el (calc-init-extensions): Map all `undo' keybindings to `calc-undo'.
author | Jay Belanger <jay.p.belanger@gmail.com> |
---|---|
date | Thu, 20 Jan 2011 19:04:56 -0600 |
parents | 61f7601898b1 |
children | 23a54fb18e67 |
comparison
equal
deleted
inserted
replaced
112390:1b25cd6a6e36 | 112391:93209af5dc0b |
---|---|
134 (define-key calc-mode-map "\C-k" 'calc-kill) | 134 (define-key calc-mode-map "\C-k" 'calc-kill) |
135 (define-key calc-mode-map "\M-k" 'calc-copy-as-kill) | 135 (define-key calc-mode-map "\M-k" 'calc-copy-as-kill) |
136 (define-key calc-mode-map "\C-w" 'calc-kill-region) | 136 (define-key calc-mode-map "\C-w" 'calc-kill-region) |
137 (define-key calc-mode-map "\M-w" 'calc-copy-region-as-kill) | 137 (define-key calc-mode-map "\M-w" 'calc-copy-region-as-kill) |
138 (define-key calc-mode-map "\M-\C-w" 'kill-ring-save) | 138 (define-key calc-mode-map "\M-\C-w" 'kill-ring-save) |
139 (define-key calc-mode-map "\C-_" 'calc-undo) | 139 (define-key calc-mode-map [remap undo] 'calc-undo) |
140 (define-key calc-mode-map "\C-xu" 'calc-undo) | |
141 (define-key calc-mode-map "\M-\C-m" 'calc-last-args) | 140 (define-key calc-mode-map "\M-\C-m" 'calc-last-args) |
142 | 141 |
143 (define-key calc-mode-map "a" nil) | 142 (define-key calc-mode-map "a" nil) |
144 (define-key calc-mode-map "a?" 'calc-a-prefix-help) | 143 (define-key calc-mode-map "a?" 'calc-a-prefix-help) |
145 (define-key calc-mode-map "aa" 'calc-apart) | 144 (define-key calc-mode-map "aa" 'calc-apart) |