diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2005-12-11 18:16:20 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2005-12-11 18:16:20 +0000 |
| commit | 27b8781063148a90be85c2e89cf00e88c74020bf (patch) | |
| tree | cc9fba84880d32a03665578224a4633a634345a5 | |
| parent | 39f617e5f7de8dddcdbc3e309dbff953494ea722 (diff) | |
| download | emacs-27b8781063148a90be85c2e89cf00e88c74020bf.tar.gz | |
(customize-apropos): Avoid listing an option more than once under
different aliases. No longer list user options that are not defined
with defcustom (unless a prefix arg is given). Doc fix.
(customize-apropos-options): Doc fix.
| -rw-r--r-- | lisp/cus-edit.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index eed12113568..f5d3224731c 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1252,12 +1252,12 @@ suggest to customize that face, if it's customizable." ;;;###autoload (defun customize-apropos (regexp &optional all) - "Customize all user options matching REGEXP. + "Customize all options, faces and groups matching REGEXP. If ALL is `options', include only options. If ALL is `faces', include only faces. If ALL is `groups', include only groups. -If ALL is t (interactively, with prefix arg), include options which are not -user-settable, as well as faces and groups." +If ALL is t (interactively, with prefix arg), include variables +that are not customizable options, as well as faces and groups." (interactive "sCustomize regexp: \nP") (let ((found nil)) (mapatoms (lambda (symbol) @@ -1270,11 +1270,11 @@ user-settable, as well as faces and groups." (push (list symbol 'custom-face) found)) (when (and (not (memq all '(groups faces))) (boundp symbol) + (eq (indirect-variable symbol) symbol) (or (get symbol 'saved-value) (custom-variable-p symbol) - (if (memq all '(nil options)) - (user-variable-p symbol) - (get symbol 'variable-documentation)))) + (and (not (memq all '(nil options))) + (get symbol 'variable-documentation)))) (push (list symbol 'custom-variable) found))))) (if (not found) (error "No matches") @@ -1284,8 +1284,8 @@ user-settable, as well as faces and groups." ;;;###autoload (defun customize-apropos-options (regexp &optional arg) - "Customize all user options matching REGEXP. -With prefix arg, include options which are not user-settable." + "Customize all customizable options matching REGEXP. +With prefix arg, include variables that are not customizable options." (interactive "sCustomize regexp: \nP") (customize-apropos regexp (or arg 'options))) |