diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-06-01 05:58:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-06-01 05:58:36 +0000 |
| commit | 6f8f2f5330c2ae80c457bd3aa62d4fa404459943 (patch) | |
| tree | 586c273752a050667ed2194d93f0fcab6a52dd00 /lisp/cus-edit.el | |
| parent | 90d5bf2c61c9d0bf3478e02846c287bc81bfde0b (diff) | |
| download | emacs-6f8f2f5330c2ae80c457bd3aa62d4fa404459943.tar.gz | |
(custom-variable-prompt): Handle variable-at-point returning 0.
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index c4d6b7f6c2f..8c4bf9deef6 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -362,7 +362,7 @@ Return a list suitable for use in `interactive'." (enable-recursive-minibuffers t) val) (setq val (completing-read - (if v + (if (symbolp v) (format "Customize variable: (default %s) " v) "Customize variable: ") obarray (lambda (symbol) @@ -370,7 +370,8 @@ Return a list suitable for use in `interactive'." (or (get symbol 'custom-type) (user-variable-p symbol)))))) (list (if (equal val "") - v (intern val))))) + (if (symbolp v) v nil) + (intern val))))) (defun custom-menu-filter (menu widget) "Convert MENU to the form used by `widget-choose'. |