Commit c51f4e0d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent fcd532ae
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment