[Emacs-diffs] Changes to emacs/lisp/calc/calc-aent.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-aent.el
diff -c emacs/lisp/calc/calc-aent.el:1.9 emacs/lisp/calc/calc-aent.el:1.10
*** emacs/lisp/calc/calc-aent.el:1.9    Mon Sep  1 15:45:18 2003
--- emacs/lisp/calc/calc-aent.el        Tue Oct 19 14:22:47 2004
***************
*** 305,318 ****
        (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))
      (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)
--- 305,316 ----
        (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)
!       (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)