diff options
| author | Richard M. Stallman | 1996-08-31 22:03:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-08-31 22:03:30 +0000 |
| commit | abd89b803137814128d5ca2da52bf0f9e71ccfcc (patch) | |
| tree | 9b07e10c99b10234d23fcbfa513132395f9e71c1 | |
| parent | fa9e8864b4bfe8d00db52634893ebef0c2cd2d80 (diff) | |
| download | emacs-abd89b803137814128d5ca2da52bf0f9e71ccfcc.tar.gz emacs-abd89b803137814128d5ca2da52bf0f9e71ccfcc.zip | |
(internal-set-face-1): When calling x-list-fonts, ask for just one match.
| -rw-r--r-- | lisp/faces.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 8c199fcfb70..02de29f02b4 100644 --- a/lisp/faces.el +++ b/lisp/faces.el | |||
| @@ -675,7 +675,7 @@ also the same size as FACE on FRAME, or fail." | |||
| 675 | (setq frame nil)) | 675 | (setq frame nil)) |
| 676 | (if pattern | 676 | (if pattern |
| 677 | ;; Note that x-list-fonts has code to handle a face with nil as its font. | 677 | ;; Note that x-list-fonts has code to handle a face with nil as its font. |
| 678 | (let ((fonts (x-list-fonts pattern face frame))) | 678 | (let ((fonts (x-list-fonts pattern face frame 1))) |
| 679 | (or fonts | 679 | (or fonts |
| 680 | (if face | 680 | (if face |
| 681 | (if (string-match "\\*" pattern) | 681 | (if (string-match "\\*" pattern) |