mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-01 20:06:00 +00:00
Code Issues Releases Activity

(calc-do-alg-entry): Remove Emacs version check. Use `copy-keymap' to

Browse Source 
copy `esc-map'.
This commit is contained in:
Jay Belanger 2004-10-19 14:22:47 +00:00
parent 4ebcaf0ef8
commit f1625eaa20
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/calc/calc-aent.el
View File

@ -305,14 +305,12 @@
(define-key calc-alg-ent-map "`" 'calcAlg-edit)
(define-key calc-alg-ent-map "\C-m" 'calcAlg-enter)
(define-key calc-alg-ent-map "\C-j" 'calcAlg-enter)
(or calc-emacs-type-19
(let ((i 33))
(setq calc-alg-ent-esc-map (copy-sequence esc-map))
(while (< i 127)
(aset calc-alg-ent-esc-map i 'calcAlg-escape)
(setq i (1+ i))))))
(unless calc-emacs-type-19
(define-key calc-alg-ent-map "\e" nil))
(let ((i 33))
(setq calc-alg-ent-esc-map (copy-keymap esc-map))
(while (< i 127)
(aset (nth 1 calc-alg-ent-esc-map) i 'calcAlg-escape)
(setq i (1+ i)))))
(define-key calc-alg-ent-map "\e" nil)
(if (eq calc-algebraic-mode 'total)
(define-key calc-alg-ent-map "\e" calc-alg-ent-esc-map)
(define-key calc-alg-ent-map "\ep" 'calcAlg-plus-minus)