diff options
| author | Glenn Morris | 2017-04-13 20:17:08 -0400 |
|---|---|---|
| committer | Glenn Morris | 2017-04-13 20:17:08 -0400 |
| commit | a855473b7079b467ac01dbcee89cb57b3599fdac (patch) | |
| tree | 21b0b147fdce43911ae037643ac92efbbed4ad89 | |
| parent | e8adf68824178ea25a5fda0c53233a42883de861 (diff) | |
| download | emacs-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.el | 4 |
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) |