master 57d54bb: Improve defface error message

[Lars Ingebrigtsen]

branch: master
commit 57d54bb49ddddf91a94a5aba4cb20899665653ac
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Improve defface error message
    
    * lisp/cus-face.el (custom-declare-face): Improve the error
    message when there's a missing doc string (bug#51576).
---
 lisp/cus-face.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index 6c0052b..5037ee7 100644
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -31,6 +31,9 @@
 
 (defun custom-declare-face (face spec doc &rest args)
   "Like `defface', but with FACE evaluated as a normal argument."
+  (when (and doc
+             (not (stringp doc)))
+    (error "Invalid (or missing) doc string %S" doc))
   (unless (get face 'face-defface-spec)
     (face-spec-set face (purecopy spec) 'face-defface-spec)
     (push (cons 'defface face) current-load-list)