(customize-apropos): A better error message.

(top level) <debug-ignored-errors>: Extend and update the list of ignored
error messages.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 27a6f573aaf17d36c82572998cc4b9fc4a6a88f8..75b758b0d5d81764fd77dc6775420d509156eee9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2006-06-23  Martin Rudalics  <rudalics@gmx.at>
+
+       * cus-edit.el (customize-apropos): A better error message.
+       (top level) <debug-ignored-errors>: Extend and update the list of
+       ignored error messages.
+
 2006-06-23  Michael Ernst  <mernst@alum.mit.edu>
 
        * complete.el (PC-do-completion): Retain capitalization of user

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 53f92f2243b6af371260080d26ba45d8a39e1771..d7ffab4bc5b0485d7d52b0c58253c46f4ac563d8 100644 (file)
--- 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.