From 2b989296560fa038f68dbd03b8c8b68d99c33217 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 1 Apr 1997 22:09:02 +0000 Subject: [PATCH] (set-variable): Suggest only valid user variable. --- lisp/simple.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/simple.el b/lisp/simple.el index a25c33447c5..2c9a39bce4e 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2982,7 +2982,7 @@ it were the arg to `interactive' (which see) to interactively read the value." (let* ((v (variable-at-point)) (enable-recursive-minibuffers t) (val (completing-read - (if v + (if (user-variable-p v) (format "Set variable (default %s): " v) "Set variable: ") obarray 'user-variable-p t)) -- 2.39.2