Mercurial > emacs

changeset 3233:28b2df35c33e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x-resolve-font-name): Allow symbol as FACE arg. Allow t as FRAME arg.
author Richard M. Stallman <rms@gnu.org>
date Sat, 29 May 1993 04:36:40 +0000
parents 27d2747abab2
children 9a789eacd9ec
files lisp/faces.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Sat May 29 04:35:25 1993 +0000
+++ b/lisp/faces.el	Sat May 29 04:36:40 1993 +0000
@@ -420,6 +420,10 @@
 contains wildcards.
 Given optional arguments FACE and FRAME, try to return a font which is
 also the same size as FACE on FRAME."
+  (or (symbolp face)
+      (setq face (face-name face)))
+  (and (eq frame t)
+       (setq frame nil))
   (if pattern
       (let ((fonts (x-list-fonts pattern face frame)))
 	(or fonts