mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(calc-read-var-name-history): New variable.

Browse Source 
(calc-read-var-name): Use `calc-read-var-name-history'.
This commit is contained in:
Jay Belanger 2008-03-26 20:26:50 +00:00
parent 2c81b4685d
commit 6a1414ce27
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2008-03-26 Jay Belanger <jay.p.belanger@gmail.com>
* 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 <monnier@iro.umontreal.ca>
* image-mode.el (image-mode-reapply-winprops): Simplify now that

7
lisp/calc/calc-store.el
View File

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