summaryrefslogtreecommitdiff
path: root/lisp/cus-edit.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/cus-edit.el')
-rw-r--r--lisp/cus-edit.el28
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.