From 1480882c5f3cbbe05f7abfeaa0bf68c62d105b3a Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Thu, 21 Oct 2004 19:20:11 +0000 Subject: [PATCH] (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. --- lisp/calc/calc-aent.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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) -- 2.39.5