Mercurial > emacs
changeset 57635:b1a458fd1ca9
(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.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Thu, 21 Oct 2004 19:20:11 +0000 |
| parents | 0dd4932a3caa |
| children | cf596d7f1e63 |
| files | lisp/calc/calc-aent.el |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-aent.el Thu Oct 21 19:09:46 2004 +0000 +++ b/lisp/calc/calc-aent.el Thu Oct 21 19:20:11 2004 +0000 @@ -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)