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