From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 2 Aug 2007 17:53:19 +0000 (+0000)
Subject: (customize-apropos, customize-apropos-options)
X-Git-Tag: emacs-pretest-22.1.90~1118
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bd18cd1928fc6405408ef9b5ab714b1a7583abb1;p=emacs.git

(customize-apropos, customize-apropos-options)
(customize-apropos-faces, customize-apropos-groups): Improve prompt.
---

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index ed9db15a7cf..29840b8fb5c 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1384,7 +1384,7 @@ If ALL is `groups', include only groups.
 If ALL is t (interactively, with prefix arg), include variables
 that are not customizable options, as well as faces and groups
 \(but we recommend using `apropos-variable' instead)."
-  (interactive "sCustomize regexp: \nP")
+  (interactive "sCustomize (regexp): \nP")
   (let ((found nil))
     (mapatoms (lambda (symbol)
 		(when (string-match regexp (symbol-name symbol))
@@ -1413,19 +1413,19 @@ that are not customizable options, as well as faces and groups
   "Customize all loaded customizable options matching REGEXP.
 With prefix arg, include variables that are not customizable options
 \(but we recommend using `apropos-variable' instead)."
-  (interactive "sCustomize regexp: \nP")
+  (interactive "sCustomize options (regexp): \nP")
   (customize-apropos regexp (or arg 'options)))
 
 ;;;###autoload
 (defun customize-apropos-faces (regexp)
   "Customize all loaded faces matching REGEXP."
-  (interactive "sCustomize regexp: \n")
+  (interactive "sCustomize faces (regexp): \n")
   (customize-apropos regexp 'faces))
 
 ;;;###autoload
 (defun customize-apropos-groups (regexp)
   "Customize all loaded groups matching REGEXP."
-  (interactive "sCustomize regexp: \n")
+  (interactive "sCustomize groups (regexp): \n")
   (customize-apropos regexp 'groups))
 
 ;;; Buffer.