From 81711dbab8efbf1fbf15a711605aae6b55e9a861 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 23 Jun 2006 13:17:44 +0000 Subject: [PATCH] (customize-apropos): A better error message. (top level) : Extend and update the list of ignored error messages. --- lisp/ChangeLog | 6 ++++++ lisp/cus-edit.el | 23 ++++++++++++++++------- 2 files changed, 22 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 27a6f573aaf..75b758b0d5d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2006-06-23 Martin Rudalics + + * cus-edit.el (customize-apropos): A better error message. + (top level) : Extend and update the list of + ignored error messages. + 2006-06-23 Michael Ernst * complete.el (PC-do-completion): Retain capitalization of user 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. -- 2.39.2