Mercurial > hg > xemacs-beta

comparison lisp/prim/faces.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 1917ad0d78d7
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
1068 See `face-property-instance' for the semantics of the DOMAIN argument." 1068 See `face-property-instance' for the semantics of the DOMAIN argument."
1069 (font-proportional-p (face-font face) domain charset)) 1069 (font-proportional-p (face-font face) domain charset))
1070 1070
1071 1071
1072 (defvar init-face-from-resources t 1072 (defvar init-face-from-resources t
1073 "If non-nil, attempt to initialize faces from the reseource database.") 1073 "If non-nil, attempt to initialize faces from the resource database.")
1074 1074
1075 (defun make-empty-face (name &optional doc-string temporary) 1075 (defun make-empty-face (name &optional doc-string temporary)
1076 "Like `make-face', but doesn't query the reseource database." 1076 "Like `make-face', but doesn't query the resource database."
1077 (let ((init-face-from-resources nil)) 1077 (let ((init-face-from-resources nil))
1078 (make-face name doc-string temporary))) 1078 (make-face name doc-string temporary)))
1079 1079
1080 (defun init-face-from-resources (face &optional locale) 1080 (defun init-face-from-resources (face &optional locale)
1081 "Initialize FACE from the resource database. 1081 "Initialize FACE from the resource database.
1226 (make-face-bold 'italic device) ; bold if possible, then complain 1226 (make-face-bold 'italic device) ; bold if possible, then complain
1227 (face-complain-about-font 'italic device))) 1227 (face-complain-about-font 'italic device)))
1228 1228
1229 ;; similar for bold-italic. 1229 ;; similar for bold-italic.
1230 (or (face-differs-from-default-p 'bold-italic device) 1230 (or (face-differs-from-default-p 'bold-italic device)
1231 (make-face-bold-italic 'bold-italic device)) 1231 (make-face-bold 'bold-italic device))
1232 ;; if we couldn't get a bold-italic version, try just bold. 1232 ;; if we couldn't get a bold-italic version, try just bold.
1233 (or (face-differs-from-default-p 'bold-italic device) 1233 (or (face-differs-from-default-p 'bold-italic device)
1234 (make-face-bold-italic 'bold-italic device)) 1234 (make-face-bold-italic 'bold-italic device))
1235 ;; if we couldn't get bold or bold-italic, then that's probably because 1235 ;; if we couldn't get bold or bold-italic, then that's probably because
1236 ;; the default font is bold, so make the `bold-italic' face be unbold. 1236 ;; the default font is bold, so make the `bold-italic' face be unbold.