Contents in release-21-2 at 1999-06-30-19.

[chise/xemacs-chise.git.1] / lisp / cus-face.el

diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index ddc6c87..cf4755d 100644 (file)
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -184,7 +184,7 @@ If FRAME is nil, use the default face."
 
 (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)))