Mercurial > emacs
changeset 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 | c843f7e32363 |
| children | e40fb0b0ea6c |
| files | lisp/calc/calc-store.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
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)