Mercurial > emacs
comparison lisp/calc/calc-aent.el @ 57590:afc7ff1f1214
(calc-do-alg-entry): Remove Emacs version check. Use `copy-keymap' to
copy `esc-map'.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Tue, 19 Oct 2004 14:22:47 +0000 |
| parents | 695cf19ef79e |
| children | 8ca090ac0a97 |
comparison
equal
deleted
inserted
replaced
| 57589:e28f2c4ffed4 | 57590:afc7ff1f1214 |
|---|---|
| 303 (setq calc-alg-ent-map (copy-keymap minibuffer-local-map)) | 303 (setq calc-alg-ent-map (copy-keymap minibuffer-local-map)) |
| 304 (define-key calc-alg-ent-map "'" 'calcAlg-previous) | 304 (define-key calc-alg-ent-map "'" 'calcAlg-previous) |
| 305 (define-key calc-alg-ent-map "`" 'calcAlg-edit) | 305 (define-key calc-alg-ent-map "`" 'calcAlg-edit) |
| 306 (define-key calc-alg-ent-map "\C-m" 'calcAlg-enter) | 306 (define-key calc-alg-ent-map "\C-m" 'calcAlg-enter) |
| 307 (define-key calc-alg-ent-map "\C-j" 'calcAlg-enter) | 307 (define-key calc-alg-ent-map "\C-j" 'calcAlg-enter) |
| 308 (or calc-emacs-type-19 | 308 (let ((i 33)) |
| 309 (let ((i 33)) | 309 (setq calc-alg-ent-esc-map (copy-keymap esc-map)) |
| 310 (setq calc-alg-ent-esc-map (copy-sequence esc-map)) | 310 (while (< i 127) |
| 311 (while (< i 127) | 311 (aset (nth 1 calc-alg-ent-esc-map) i 'calcAlg-escape) |
| 312 (aset calc-alg-ent-esc-map i 'calcAlg-escape) | 312 (setq i (1+ i))))) |
| 313 (setq i (1+ i)))))) | 313 (define-key calc-alg-ent-map "\e" nil) |
| 314 (unless calc-emacs-type-19 | |
| 315 (define-key calc-alg-ent-map "\e" nil)) | |
| 316 (if (eq calc-algebraic-mode 'total) | 314 (if (eq calc-algebraic-mode 'total) |
| 317 (define-key calc-alg-ent-map "\e" calc-alg-ent-esc-map) | 315 (define-key calc-alg-ent-map "\e" calc-alg-ent-esc-map) |
| 318 (define-key calc-alg-ent-map "\ep" 'calcAlg-plus-minus) | 316 (define-key calc-alg-ent-map "\ep" 'calcAlg-plus-minus) |
| 319 (define-key calc-alg-ent-map "\em" 'calcAlg-mod) | 317 (define-key calc-alg-ent-map "\em" 'calcAlg-mod) |
| 320 (define-key calc-alg-ent-map "\e=" 'calcAlg-equals) | 318 (define-key calc-alg-ent-map "\e=" 'calcAlg-equals) |