diff options
| author | Richard M. Stallman | 1993-05-31 18:02:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-31 18:02:03 +0000 |
| commit | 7cf6fac18064e404a26b2d633f9cbde5f73c0123 (patch) | |
| tree | 8bc586a972136a512fc677fdec2c881da02d1ac2 | |
| parent | 43be9218cab03c27141fd4c1ca7ad8c9c2289fbc (diff) | |
| download | emacs-7cf6fac18064e404a26b2d633f9cbde5f73c0123.tar.gz emacs-7cf6fac18064e404a26b2d633f9cbde5f73c0123.zip | |
(x-resolve-font-name): Clean up error messages.
| -rw-r--r-- | lisp/faces.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 7788617ea27..b19159020c0 100644 --- a/lisp/faces.el +++ b/lisp/faces.el | |||
| @@ -428,9 +428,9 @@ also the same size as FACE on FRAME." | |||
| 428 | (let ((fonts (x-list-fonts pattern face frame))) | 428 | (let ((fonts (x-list-fonts pattern face frame))) |
| 429 | (or fonts | 429 | (or fonts |
| 430 | (if face | 430 | (if face |
| 431 | (error "no fonts matching pattern are the same size as `%s'." | 431 | (error "No fonts matching pattern are the same size as `%s'" |
| 432 | face) | 432 | face) |
| 433 | (error "no fonts match `%S'." pattern))) | 433 | (error "No fonts match `%s'" pattern))) |
| 434 | (car fonts)) | 434 | (car fonts)) |
| 435 | (cdr (assq 'font (frame-parameters (selected-frame)))))) | 435 | (cdr (assq 'font (frame-parameters (selected-frame)))))) |
| 436 | 436 | ||