Mercurial > emacs
diff lisp/cus-edit.el @ 66859:b148d2fdff12
(custom-variable-prompt): Set the default value arg of completing-read.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Mon, 14 Nov 2005 18:28:12 +0000 |
parents | d9a2701e02cd |
children | b39a51cbc6b6 |
line wrap: on
line diff
--- a/lisp/cus-edit.el Mon Nov 14 16:20:34 2005 +0000 +++ b/lisp/cus-edit.el Mon Nov 14 18:28:12 2005 +0000 @@ -493,11 +493,12 @@ (let ((v (variable-at-point)) (enable-recursive-minibuffers t) val) - (setq val (completing-read - (if (and (symbolp v) (custom-variable-p v)) - (format "Customize option (default %s): " v) - "Customize option: ") - obarray 'custom-variable-p t)) + (setq val (if (and (symbolp v) (custom-variable-p v)) + (completing-read + (format "Customize option (default %s): " v) obarray + 'custom-variable-p t nil nil (symbol-name v)) + (completing-read "Customize option: " obarray + 'custom-variable-p t))) (list (if (equal val "") (if (symbolp v) v nil) (intern val)))))