diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2004-10-21 19:20:11 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2004-10-21 19:20:11 +0000 |
| commit | 1480882c5f3cbbe05f7abfeaa0bf68c62d105b3a (patch) | |
| tree | fc100b03cbbd3beb39297620a355789b6b4130d9 /lisp | |
| parent | 22101fbb14bb3873c753e40f2800db9d5bfd297f (diff) | |
| download | emacs-1480882c5f3cbbe05f7abfeaa0bf68c62d105b3a.tar.gz | |
(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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calc/calc-aent.el | 8 |
1 files changed, 7 insertions, 1 deletions
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) |