XEmacs 21.2.38 (Peisino)

[chise/xemacs-chise.git.1] / lisp / font-menu.el

diff --git a/lisp/font-menu.el b/lisp/font-menu.el
index d1cb509..80b78dc 100644 (file)
--- a/lisp/font-menu.el
+++ b/lisp/font-menu.el
@@ -405,7 +405,7 @@ or if you change your font path, you can call this to re-initialize the menus."
 (defun font-menu-change-face (face
                              from-family from-weight from-size
                              to-family   to-weight   to-size)
-  (or (symbolp face) (setq face (wrong-type-argument 'symbolp face)))
+  (check-type face symbol)
   (let* ((dcache (device-fonts-cache))
         (font-data (font-menu-font-data face dcache))
         (face-family (aref font-data 1))