Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 05:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

(set-variable): Take default from `variable-at-point'.

Browse source
This commit is contained in:
Richard M. Stallman 1997-03-27 00:25:39 +00:00
parent fcd532ae81
commit c51f4e0d2c
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/simple.el
View file

@ -2979,7 +2979,15 @@ If you want VALUE to be a string, you must surround it with doublequotes.
If VARIABLE has a `variable-interactive' property, that is used as if
it were the arg to `interactive' (which see) to interactively read the value."
(interactive
(let* ((var (read-variable "Set variable: "))
(let* ((var (let ((v (variable-at-point))
(enable-recursive-minibuffers t)
val)
(setq val (completing-read (if v
(format "Set variable (default %s): " v)
"Set variable: ")
obarray 'boundp t))
(if (equal val "")
v (intern val))))
(minibuffer-help-form
'(funcall myhelp))
(myhelp