From e46e522524447e5739161d2ec9f944e4c41a2bd8 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 14 Nov 2005 18:28:12 +0000 Subject: [PATCH] (custom-variable-prompt): Set the default value arg of completing-read. --- lisp/cus-edit.el | 11 ++++++----- 1 file 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'." (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))))) -- 2.39.2