Mercurial > emacs
diff lisp/calc/calc-store.el @ 93262:ed8741f16e51
(calc-read-var-name-history): New variable.
(calc-read-var-name): Use `calc-read-var-name-history'.
author | Jay Belanger <jay.p.belanger@gmail.com> |
---|---|
date | Wed, 26 Mar 2008 20:25:29 +0000 |
parents | 107ccd98fa12 |
children | 1e3a407766b9 |
line wrap: on
line diff
--- a/lisp/calc/calc-store.el Wed Mar 26 20:16:28 2008 +0000 +++ b/lisp/calc/calc-store.el Wed Mar 26 20:25:29 2008 +0000 @@ -185,6 +185,9 @@ (defvar calc-store-opers) +(defvar calc-read-var-name-history nil + "History for reading variable names.") + (defun calc-read-var-name (prompt &optional calc-store-opers) (setq calc-given-value nil calc-aborted-prefix nil) @@ -196,7 +199,9 @@ (minibuffer-completion-predicate (lambda (x) (boundp (intern (concat "var-" x))))) (minibuffer-completion-confirm t)) - (read-from-minibuffer prompt nil calc-var-name-map nil))))) + (read-from-minibuffer + prompt nil calc-var-name-map nil + 'calc-read-var-name-history))))) (setq calc-aborted-prefix "") (and (not (equal var "var-")) (if (string-match "\\`\\([-a-zA-Z0-9]+\\) *:?=" var)