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) |