Mercurial > hg > xemacs-beta
diff lisp/prim/faces.el @ 108:360340f9fd5f r20-1b6
Import from CVS: tag r20-1b6
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:18:39 +0200 |
parents | 8ff55ebd4be9 |
children | 7d55a9ba150c |
line wrap: on
line diff
--- a/lisp/prim/faces.el Mon Aug 13 09:17:27 2007 +0200 +++ b/lisp/prim/faces.el Mon Aug 13 09:18:39 2007 +0200 @@ -1068,10 +1068,10 @@ (defvar init-face-from-resources t - "If non-nil, attempt to initialize faces from the reseource database.") + "If non-nil, attempt to initialize faces from the resource database.") (defun make-empty-face (name &optional doc-string temporary) - "Like `make-face', but doesn't query the reseource database." + "Like `make-face', but doesn't query the resource database." (let ((init-face-from-resources nil)) (make-face name doc-string temporary))) @@ -1234,7 +1234,7 @@ (make-face-bold-italic 'bold-italic device) ;; if we couldn't get a bold-italic version, try just bold. (unless (face-differs-from-default-p 'bold-italic device) - (make-face-bold-italic 'bold-italic device) + (make-face-bold 'bold-italic device) ;; if we couldn't get bold or bold-italic, then that's probably because ;; the default font is bold, so make the `bold-italic' face be unbold. (unless (face-differs-from-default-p 'bold-italic device)