Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
419:66615b78f1a5 420:41dbb7a9d5f2
182 (make-face-italic face frame tags) 182 (make-face-italic face frame tags)
183 (make-face-unitalic face frame tags))) 183 (make-face-unitalic face frame tags)))
184 184
185 (defun custom-face-italic (face &rest args) 185 (defun custom-face-italic (face &rest args)
186 "Return non-nil if the font of FACE is italic." 186 "Return non-nil if the font of FACE is italic."
187 (let* ((font (apply 'face-font-name face)) 187 (let* ((font (apply 'face-font-name face args))
188 ;; Gag 188 ;; Gag
189 (fontobj (font-create-object font))) 189 (fontobj (font-create-object font)))
190 (font-italic-p fontobj))) 190 (font-italic-p fontobj)))
191 191
192 (defun custom-face-background-pixmap (face &rest args) 192 (defun custom-face-background-pixmap (face &rest args)