mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(customize-apropos, customize-apropos-options)

Browse Source 
(customize-apropos-faces, customize-apropos-groups): Improve prompt.
This commit is contained in:
Richard M. Stallman 2007-08-02 17:53:19 +00:00
parent 69a7537f47
commit bd18cd1928
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/cus-edit.el
View File

@ -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.