aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1993-11-20 08:42:47 +0000
committerRichard M. Stallman1993-11-20 08:42:47 +0000
commit4901eb1b09e42354e243fa6572068f63f3d65b52 (patch)
tree9cd262e085831972e0222ff33554a4f5a17a5be4
parent7f291b64ee63ac25dcafaebdc2d5cebe81678fa5 (diff)
downloademacs-4901eb1b09e42354e243fa6572068f63f3d65b52.tar.gz
emacs-4901eb1b09e42354e243fa6572068f63f3d65b52.zip
(x-resolve-font-name): Don't pass FACE to x-list-fonts
if FACE has nil as its font.
-rw-r--r--lisp/faces.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/faces.el b/lisp/faces.el
index 32a0c995ab0..5abcd0927c2 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -439,7 +439,9 @@ also the same size as FACE on FRAME."
439 (and (eq frame t) 439 (and (eq frame t)
440 (setq frame nil)) 440 (setq frame nil))
441 (if pattern 441 (if pattern
442 (let ((fonts (x-list-fonts pattern face frame))) 442 (let ((fonts (x-list-fonts pattern
443 (if (face-font face) face nil)
444 frame)))
443 (or fonts 445 (or fonts
444 (if face 446 (if face
445 (error "No fonts matching pattern are the same size as `%s'" 447 (error "No fonts matching pattern are the same size as `%s'"