diff options
| author | Richard M. Stallman | 1997-04-01 22:09:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-04-01 22:09:02 +0000 |
| commit | 2b989296560fa038f68dbd03b8c8b68d99c33217 (patch) | |
| tree | 24addb4914d9e285a4da2ae314e06dfffb2ff906 | |
| parent | 5e78e475d439f8f8e7d54db8821ae050a707c799 (diff) | |
| download | emacs-2b989296560fa038f68dbd03b8c8b68d99c33217.tar.gz emacs-2b989296560fa038f68dbd03b8c8b68d99c33217.zip | |
(set-variable): Suggest only valid user variable.
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 2982 | (let* ((v (variable-at-point)) | 2982 | (let* ((v (variable-at-point)) |
| 2983 | (enable-recursive-minibuffers t) | 2983 | (enable-recursive-minibuffers t) |
| 2984 | (val (completing-read | 2984 | (val (completing-read |
| 2985 | (if v | 2985 | (if (user-variable-p v) |
| 2986 | (format "Set variable (default %s): " v) | 2986 | (format "Set variable (default %s): " v) |
| 2987 | "Set variable: ") | 2987 | "Set variable: ") |
| 2988 | obarray 'user-variable-p t)) | 2988 | obarray 'user-variable-p t)) |