diff options
| author | Karl Heuer | 1997-12-04 04:29:45 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-12-04 04:29:45 +0000 |
| commit | db9d97e1f56f86d409227c112356ac1962863758 (patch) | |
| tree | 182f8ca62e892e3a7aaad996055a04312830c8f2 | |
| parent | 2c239c80615a03573fde06a8f189e8c5ae666686 (diff) | |
| download | emacs-db9d97e1f56f86d409227c112356ac1962863758.tar.gz emacs-db9d97e1f56f86d409227c112356ac1962863758.zip | |
(custom-variable-prompt): Ensure valid variable name
is selected.
| -rw-r--r-- | lisp/cus-edit.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index d1d8ad3d045..35e32afbb6c 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -408,7 +408,7 @@ Return a list suitable for use in `interactive'." | |||
| 408 | obarray (lambda (symbol) | 408 | obarray (lambda (symbol) |
| 409 | (and (boundp symbol) | 409 | (and (boundp symbol) |
| 410 | (or (get symbol 'custom-type) | 410 | (or (get symbol 'custom-type) |
| 411 | (user-variable-p symbol)))))) | 411 | (user-variable-p symbol)))) t)) |
| 412 | (list (if (equal val "") | 412 | (list (if (equal val "") |
| 413 | (if (symbolp v) v nil) | 413 | (if (symbolp v) v nil) |
| 414 | (intern val))))) | 414 | (intern val))))) |