diff options
author | Eli Zaretskii <eliz@gnu.org> | 2006-06-23 13:17:44 +0000 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2006-06-23 13:17:44 +0000 |
commit | 81711dbab8efbf1fbf15a711605aae6b55e9a861 (patch) | |
tree | 85291b77c140c2be4da676ea11451a4dfd400557 /lisp/cus-edit.el | |
parent | 08fd202a3d870cfbafa1dcddf189b5a0d1d63fa7 (diff) | |
download | emacs-81711dbab8efbf1fbf15a711605aae6b55e9a861.tar.gz |
(customize-apropos): A better error message.
(top level) <debug-ignored-errors>: Extend and update the list of ignored
error messages.
Diffstat (limited to 'lisp/cus-edit.el')
-rw-r--r-- | lisp/cus-edit.el | 23 |
1 files changed, 16 insertions, 7 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 53f92f2243b..d7ffab4bc5b 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1366,10 +1366,10 @@ that are not customizable options, as well as faces and groups (get symbol 'variable-documentation)))) (push (list symbol 'custom-variable) found))))) (if (not found) - (error "No matches") - (custom-buffer-create (custom-sort-items found t - custom-buffer-order-groups) - "*Customize Apropos*")))) + (error "No customizable items matching %s" regexp) + (custom-buffer-create + (custom-sort-items found t custom-buffer-order-groups) + "*Customize Apropos*")))) ;;;###autoload (defun customize-apropos-options (regexp &optional arg) @@ -4520,9 +4520,18 @@ if that value is non-nil." (put 'custom-mode 'mode-class 'special) -(add-to-list - 'debug-ignored-errors - "^No user options have changed defaults in recent Emacs versions$") +(dolist (regexp + '("^No user option defaults have been changed since Emacs " + "^Invalid face:? " + "^No \\(?:customized\\|rogue\\|saved\\) user options" + "^No customizable items matching " + "^There are unset changes" + "^Cannot set hidden variable" + "^No \\(?:saved\\|backup\\) value for " + "^No standard setting known for " + "^No standard setting for this face" + "^Saving settings from \"emacs -q\" would overwrite existing customizations")) + (add-to-list 'debug-ignored-errors regexp)) ;;; The End. |