Mercurial > hg > xemacs-beta

diff lisp/font-menu.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children 943eaba38521
line wrap: on
line diff
--- a/lisp/font-menu.el	Mon Aug 13 11:36:20 2007 +0200
+++ b/lisp/font-menu.el	Mon Aug 13 11:37:21 2007 +0200
@@ -405,7 +405,7 @@
 (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))