X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Ffont-menu.el;h=80b78dce8e4139d578a6d3fc32acec6a594fddcf;hb=a6f703566c9decc66a316ffa8fd7950d3ed9f0f3;hp=d1cb5093a56446bde414264f509d015cf0e33ff7;hpb=1d9bc86590766427e2431876a50d78206a99edd5;p=chise%2Fxemacs-chise.git

diff --git a/lisp/font-menu.el b/lisp/font-menu.el
index d1cb509..80b78dc 100644
--- 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))