diff options
| author | Juri Linkov | 2005-11-14 18:28:12 +0000 |
|---|---|---|
| committer | Juri Linkov | 2005-11-14 18:28:12 +0000 |
| commit | e46e522524447e5739161d2ec9f944e4c41a2bd8 (patch) | |
| tree | 60a9e07e20ebf5930c05953b8b9ebc03e8924f7b | |
| parent | dea2460818a7d7174e75aab78f2c6e3adcb8b8e5 (diff) | |
| download | emacs-e46e522524447e5739161d2ec9f944e4c41a2bd8.tar.gz emacs-e46e522524447e5739161d2ec9f944e4c41a2bd8.zip | |
(custom-variable-prompt): Set the default value arg of completing-read.
| -rw-r--r-- | lisp/cus-edit.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 40e26834c83..89c6d6297c1 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -493,11 +493,12 @@ Return a list suitable for use in `interactive'." | |||
| 493 | (let ((v (variable-at-point)) | 493 | (let ((v (variable-at-point)) |
| 494 | (enable-recursive-minibuffers t) | 494 | (enable-recursive-minibuffers t) |
| 495 | val) | 495 | val) |
| 496 | (setq val (completing-read | 496 | (setq val (if (and (symbolp v) (custom-variable-p v)) |
| 497 | (if (and (symbolp v) (custom-variable-p v)) | 497 | (completing-read |
| 498 | (format "Customize option (default %s): " v) | 498 | (format "Customize option (default %s): " v) obarray |
| 499 | "Customize option: ") | 499 | 'custom-variable-p t nil nil (symbol-name v)) |
| 500 | obarray 'custom-variable-p t)) | 500 | (completing-read "Customize option: " obarray |
| 501 | 'custom-variable-p t))) | ||
| 501 | (list (if (equal val "") | 502 | (list (if (equal val "") |
| 502 | (if (symbolp v) v nil) | 503 | (if (symbolp v) v nil) |
| 503 | (intern val))))) | 504 | (intern val))))) |