diff options
| author | Richard M. Stallman | 1993-11-20 08:42:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-11-20 08:42:47 +0000 |
| commit | 4901eb1b09e42354e243fa6572068f63f3d65b52 (patch) | |
| tree | 9cd262e085831972e0222ff33554a4f5a17a5be4 | |
| parent | 7f291b64ee63ac25dcafaebdc2d5cebe81678fa5 (diff) | |
| download | emacs-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.el | 4 |
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'" |