Mercurial > hg > xemacs-beta

comparison lisp/x-faces.el @ 286:57709be46d1b r21-0b41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b41
author cvs
date Mon, 13 Aug 2007 10:35:03 +0200
parents c5d627a313b1
children e11d67e05968
comparison
equal deleted inserted replaced
285:9a3756523c1b 286:57709be46d1b
160 (concat (substring font 0 (match-beginning 1)) which 160 (concat (substring font 0 (match-beginning 1)) which
161 (substring font (match-end 1)))) 161 (substring font (match-end 1))))
162 ((string-match x-loser-font-regexp font) 162 ((string-match x-loser-font-regexp font)
163 (concat font which)) 163 (concat font which))
164 (t nil))) 164 (t nil)))
165
166 (defun try-font-name (name &optional device)
167 ;; yes, name really should be here twice.
168 (and name (make-font-instance name device t) name))
169 165
170 (defun x-make-font-bold (font &optional device) 166 (defun x-make-font-bold (font &optional device)
171 "Given an X font specification, this attempts to make a `bold' font. 167 "Given an X font specification, this attempts to make a `bold' font.
172 If it fails, it returns nil." 168 If it fails, it returns nil."
173 ;; Certain Type1 fonts know "bold" as "black"... 169 ;; Certain Type1 fonts know "bold" as "black"...