[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: |
Thu, 21 Oct 2004 15:25:33 -0400 |
Index: emacs/lisp/calc/calc-aent.el
diff -c emacs/lisp/calc/calc-aent.el:1.11 emacs/lisp/calc/calc-aent.el:1.12
*** emacs/lisp/calc/calc-aent.el:1.11 Tue Oct 19 15:34:38 2004
--- emacs/lisp/calc/calc-aent.el Thu Oct 21 19:20:11 2004
***************
*** 295,305 ****
calc-dollar-used 0)))
(calc-handle-whys))))
(defun calc-do-alg-entry (&optional initial prompt no-normalize)
(let* ((calc-buffer (current-buffer))
(blink-paren-function 'calcAlg-blink-matching-open)
(alg-exp 'error))
! (unless (boundp 'calc-alg-ent-map)
(setq calc-alg-ent-map (copy-keymap minibuffer-local-map))
(define-key calc-alg-ent-map "'" 'calcAlg-previous)
(define-key calc-alg-ent-map "`" 'calcAlg-edit)
--- 295,311 ----
calc-dollar-used 0)))
(calc-handle-whys))))
+ (defvar calc-alg-ent-map nil
+ "The keymap used for algebraic entry.")
+
+ (defvar calc-alg-ent-esc-map nil
+ "The keymap used for escapes in algebraic entry.")
+
(defun calc-do-alg-entry (&optional initial prompt no-normalize)
(let* ((calc-buffer (current-buffer))
(blink-paren-function 'calcAlg-blink-matching-open)
(alg-exp 'error))
! (unless calc-alg-ent-map
(setq calc-alg-ent-map (copy-keymap minibuffer-local-map))
(define-key calc-alg-ent-map "'" 'calcAlg-previous)
(define-key calc-alg-ent-map "`" 'calcAlg-edit)