Mercurial > emacs
comparison lisp/calc/calc.el @ 80414:1de302584c6a
Autoload `calc-yank'.
(calc-mode-map): Add keybindings for `calc-yank'.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Tue, 01 Apr 2008 02:30:31 +0000 |
| parents | 9754bb0422ed |
| children |
comparison
equal
deleted
inserted
replaced
| 80413:c807f3954942 | 80414:1de302584c6a |
|---|---|
| 946 (define-key map "\t" 'calc-roll-down) | 946 (define-key map "\t" 'calc-roll-down) |
| 947 (define-key map "\M-\t" 'calc-roll-up) | 947 (define-key map "\M-\t" 'calc-roll-up) |
| 948 (define-key map "\C-m" 'calc-enter) | 948 (define-key map "\C-m" 'calc-enter) |
| 949 (define-key map "\M-\C-m" 'calc-last-args-stub) | 949 (define-key map "\M-\C-m" 'calc-last-args-stub) |
| 950 (define-key map "\C-j" 'calc-over) | 950 (define-key map "\C-j" 'calc-over) |
| 951 (define-key map "\C-y" 'calc-yank) | |
| 952 (define-key map [mouse-2] 'calc-yank) | |
| 951 | 953 |
| 952 (mapc (lambda (x) (define-key map (char-to-string x) 'undefined)) | 954 (mapc (lambda (x) (define-key map (char-to-string x) 'undefined)) |
| 953 "lOW") | 955 "lOW") |
| 954 (mapc (lambda (x) (define-key map (char-to-string x) 'calc-missing-key)) | 956 (mapc (lambda (x) (define-key map (char-to-string x) 'calc-missing-key)) |
| 955 (concat "ABCDEFGHIJKLMNPQRSTUVXZabcdfghjkmoprstuvwxyz" | 957 (concat "ABCDEFGHIJKLMNPQRSTUVXZabcdfghjkmoprstuvwxyz" |
| 1090 calc-help calc-info calc-info-goto-node calc-info-summary calc-inv | 1092 calc-help calc-info calc-info-goto-node calc-info-summary calc-inv |
| 1091 calc-last-args-stub | 1093 calc-last-args-stub |
| 1092 calc-missing-key calc-mod calc-other-window calc-over calc-percent | 1094 calc-missing-key calc-mod calc-other-window calc-over calc-percent |
| 1093 calc-pop-above calc-power calc-roll-down calc-roll-up | 1095 calc-pop-above calc-power calc-roll-down calc-roll-up |
| 1094 calc-shift-Y-prefix-help calc-tutorial calcDigit-letter | 1096 calc-shift-Y-prefix-help calc-tutorial calcDigit-letter |
| 1095 report-calc-bug))) | 1097 report-calc-bug) |
| 1098 | |
| 1099 ("calc-yank" calc-yank))) | |
| 1096 | 1100 |
| 1097 | 1101 |
| 1098 ;;;###autoload (define-key ctl-x-map "*" 'calc-dispatch) | 1102 ;;;###autoload (define-key ctl-x-map "*" 'calc-dispatch) |
| 1099 | 1103 |
| 1100 ;;;###autoload | 1104 ;;;###autoload |