From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 15 Dec 1994 13:49:51 +0000 (+0000)
Subject: (face-initialize): Test for framep not t or nil.
X-Git-Tag: emacs-19.34~5685
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e17dbede1b58b4c78cdf9d2406a063823cf3ea1b;p=emacs.git

(face-initialize): Test for framep not t or nil.

(set-face-font): Pass `default' as face to x-resolve-font-name.
(x-resolve-font-name): Better error message when FACE doesn't specify the font.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 520ddce2b10..289e63267eb 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -109,7 +109,7 @@ If FRAME is omitted or nil, use the selected frame."
 If the optional FRAME argument is provided, change only
 in that frame; otherwise change each frame."
   (interactive (internal-face-interactive "font"))
-  (if (stringp font) (setq font (x-resolve-font-name font face frame)))
+  (if (stringp font) (setq font (x-resolve-font-name font 'default frame)))
   (internal-set-face-1 face 'font font 3 frame))
 
 (defun set-face-foreground (face color &optional frame)
@@ -520,8 +520,8 @@ set its foreground and background to the default background and foreground."
 All wildcards in PATTERN become substantiated.
 If PATTERN is nil, return the name of the frame's base font, which never
 contains wildcards.
-Given optional arguments FACE and FRAME, try to return a font which is
-also the same size as FACE on FRAME."
+Given optional arguments FACE and FRAME, return a font which is
+also the same size as FACE on FRAME, or fail."
   (or (symbolp face)
       (setq face (face-name face)))
   (and (eq frame t)
@@ -532,7 +532,9 @@ also the same size as FACE on FRAME."
 	(or fonts
 	    (if face
 		(error "No fonts matching pattern are the same size as `%s'"
-		       face)
+		       (if (null (face-font face))
+			   (cdr (assq 'font (frame-parameters frame)))
+			 face))
 	      (error "No fonts match `%s'" pattern)))
 	(car fonts))
     (cdr (assq 'font (frame-parameters (selected-frame))))))
@@ -867,7 +869,7 @@ selected frame."
 
   (let ((frames (frame-list)))
     (while frames
-      (if (framep (car frames))
+      (if (not (memq (framep (car frames)) '(t nil)))
 	  (let ((frame (car frames))
 		(rest global-face-data))
 	    (while rest