Mercurial > emacs
changeset 3353:8cbd38886eef
(x-resolve-font-name): Clean up error messages.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 31 May 1993 18:02:03 +0000 |
| parents | 03a02339361a |
| children | 0b71a5329961 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Mon May 31 17:59:07 1993 +0000 +++ b/lisp/faces.el Mon May 31 18:02:03 1993 +0000 @@ -428,9 +428,9 @@ (let ((fonts (x-list-fonts pattern face frame))) (or fonts (if face - (error "no fonts matching pattern are the same size as `%s'." + (error "No fonts matching pattern are the same size as `%s'" face) - (error "no fonts match `%S'." pattern))) + (error "No fonts match `%s'" pattern))) (car fonts)) (cdr (assq 'font (frame-parameters (selected-frame))))))