aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2017-04-13 20:17:08 -0400
committerGlenn Morris2017-04-13 20:17:08 -0400
commita855473b7079b467ac01dbcee89cb57b3599fdac (patch)
tree21b0b147fdce43911ae037643ac92efbbed4ad89
parente8adf68824178ea25a5fda0c53233a42883de861 (diff)
downloademacs-a855473b7079b467ac01dbcee89cb57b3599fdac.tar.gz
emacs-a855473b7079b467ac01dbcee89cb57b3599fdac.zip
Use user-error for customize's "invalid face" error
* lisp/cus-edit.el (customize-face): Use user-error. (debug-ignored-errors): No more need to add "Invalid face".
-rw-r--r--lisp/cus-edit.el4
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index f408e835769..ca6b8a38d99 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1334,7 +1334,7 @@ suggest to customize that face, if it's customizable."
1334 (if (get face 'face-alias) 1334 (if (get face 'face-alias)
1335 (setq face (get face 'face-alias))) 1335 (setq face (get face 'face-alias)))
1336 (unless (facep face) 1336 (unless (facep face)
1337 (error "Invalid face %S" face)) 1337 (user-error "Invalid face %S" face))
1338 (funcall display-fun 1338 (funcall display-fun
1339 (list (list face 'custom-face)) 1339 (list (list face 'custom-face))
1340 (format "*Customize Face: %s*" 1340 (format "*Customize Face: %s*"
@@ -4846,8 +4846,6 @@ if that value is non-nil."
4846 4846
4847(define-obsolete-function-alias 'custom-mode 'Custom-mode "23.1") 4847(define-obsolete-function-alias 'custom-mode 'Custom-mode "23.1")
4848 4848
4849(add-to-list 'debug-ignored-errors "^Invalid face:? ")
4850
4851;;; The End. 4849;;; The End.
4852 4850
4853(provide 'cus-edit) 4851(provide 'cus-edit)