diff options
Diffstat (limited to 'lisp')
| -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." (and (eq frame t) (setq frame nil)) (if pattern - (let ((fonts (x-list-fonts pattern face frame))) + (let ((fonts (x-list-fonts pattern + (if (face-font face) face nil) + frame))) (or fonts (if face (error "No fonts matching pattern are the same size as `%s'" |