diff options
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 28 |
1 files changed, 21 insertions, 7 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 52f66038ea6..d7ffab4bc5b 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -587,6 +587,7 @@ WIDGET is the widget to apply the filter entries of MENU on." (defcustom custom-guess-name-alist '(("-p\\'" boolean) + ("-flag\\'" boolean) ("-hook\\'" hook) ("-face\\'" face) ("-file\\'" file) @@ -1054,6 +1055,8 @@ then prompt for the MODE to customize." (defun customize-option (symbol) "Customize SYMBOL, which must be a user option variable." (interactive (custom-variable-prompt)) + (unless symbol + (error "No variable specified")) (let ((basevar (indirect-variable symbol))) (custom-buffer-create (list (list basevar 'custom-variable)) (format "*Customize Option: %s*" @@ -1069,6 +1072,8 @@ then prompt for the MODE to customize." "Customize SYMBOL, which must be a user option variable. Show the buffer in another window, but don't select it." (interactive (custom-variable-prompt)) + (unless symbol + (error "No variable specified")) (let ((basevar (indirect-variable symbol))) (custom-buffer-create-other-window (list (list basevar 'custom-variable)) @@ -1361,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) @@ -4515,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. |