diff options
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) |