# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738650200 0
# Node ID 28b2df35c33e7c49cdc2bc49deca101ed600302a
# Parent  27d2747abab2204f74ca9508bdea03101089e690
(x-resolve-font-name): Allow symbol as FACE arg.
Allow t as FRAME arg.

diff -r 27d2747abab2 -r 28b2df35c33e lisp/faces.el
--- 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