Mercurial > hg > xemacs-beta

diff lisp/cus-face.el @ 420:41dbb7a9d5f2 r21-2-18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-18
author cvs
date Mon, 13 Aug 2007 11:24:09 +0200
parents ebe98a74bd68
children 95016f13131a
line wrap: on
line diff
--- a/lisp/cus-face.el	Mon Aug 13 11:23:14 2007 +0200
+++ b/lisp/cus-face.el	Mon Aug 13 11:24:09 2007 +0200
@@ -184,7 +184,7 @@
 
 (defun custom-face-italic (face &rest args)
   "Return non-nil if the font of FACE is italic."
-  (let* ((font (apply 'face-font-name face))
+  (let* ((font (apply 'face-font-name face args))
 	 ;; Gag
 	 (fontobj (font-create-object font)))
     (font-italic-p fontobj)))