andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
with defvar.

(calc-do-alg-entry): Since `calc-alg-ent-map' is bound, only check to
see if it is non-nil.
This commit is contained in:
Jay Belanger 2004-10-21 19:20:11 +00:00
parent 22101fbb14
commit 1480882c5f
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/calc/calc-aent.el
View file

@ -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)