From 6a1414ce27766c76f6a1cc37fefd4817c0f23eff Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Wed, 26 Mar 2008 20:26:50 +0000 Subject: [PATCH] (calc-read-var-name-history): New variable. (calc-read-var-name): Use `calc-read-var-name-history'. --- lisp/ChangeLog | 6 ++++++ lisp/calc/calc-store.el | 7 ++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index aad89568b06..63f7a6a3837 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-03-26 Jay Belanger + + * calc/calc-store.el (calc-read-var-name-history): + New variable. + (calc-read-var-name): Use `calc-read-var-name-history'. + 2008-03-26 Stefan Monnier * image-mode.el (image-mode-reapply-winprops): Simplify now that diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el index 5ffabe4adba..da0c1665b4d 100644 --- a/lisp/calc/calc-store.el +++ b/lisp/calc/calc-store.el @@ -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) -- 2.39.5