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