Commit 4b1434c2 authored by Erik Naggum's avatar Erik Naggum
Browse files

(set-variable): Use user-variable-p. Clean up.

parent 387ccace
......@@ -2979,15 +2979,14 @@ 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 (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))))
(let* ((v (variable-at-point))
(enable-recursive-minibuffers t)
(val (completing-read
(if v
(format "Set variable (default %s): " v)
"Set variable: ")
obarray 'user-variable-p t))
(var (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