From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Thu, 21 Oct 2004 19:20:11 +0000 (+0000)
Subject: (calc-alg-ent-map, calc-alg-ent-esc-map): Declared these variables
X-Git-Tag: ttn-vms-21-2-B4~4452
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1480882c5f3cbbe05f7abfeaa0bf68c62d105b3a;p=emacs.git

(calc-alg-ent-map, calc-alg-ent-esc-map): Declared these variables
with defvar.

(calc-do-alg-entry): Since `calc-alg-ent-map' is bound, only check to
see if it is non-nil.
---

diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el
index 37f6112f6aa..2db722ccb2d 100644
--- a/lisp/calc/calc-aent.el
+++ b/lisp/calc/calc-aent.el
@@ -295,11 +295,17 @@
 		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 (boundp 'calc-alg-ent-map)
+    (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)