mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +00:00
Code Issues Releases Activity

(customize-apropos): A better error message.

Browse Source 
(top level) <debug-ignored-errors>: Extend and update the list of ignored
error messages.
This commit is contained in:
Eli Zaretskii 2006-06-23 13:17:44 +00:00
parent 08fd202a3d
commit 81711dbab8
2 changed files with 22 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

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

23
lisp/cus-edit.el
View File

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