[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-aent.el
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-aent.el |
Date: |
Tue, 19 Oct 2004 10:44:18 -0400 |
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)
- [Emacs-diffs] Changes to emacs/lisp/calc/calc-aent.el,
Jay Belanger <=