Mercurial > emacs
changeset 17254:831da82608c3
(set-variable): Use user-variable-p. Clean up.
| author | Erik Naggum <erik@naggum.no> |
|---|---|
| date | Fri, 28 Mar 1997 02:33:07 +0000 |
| parents | b47c3949b98e |
| children | 30b7f4899d66 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 8 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Thu Mar 27 10:44:56 1997 +0000 +++ b/lisp/simple.el Fri Mar 28 02:33:07 1997 +0000 @@ -2979,15 +2979,14 @@ 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