(x-resolve-font-name): Clean up error messages.

7cf6fac1 · Richard M. Stallman · 43be9218 · 7cf6fac1
Commit 7cf6fac1 authored May 31, 1993 by Richard M. Stallman
Show whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/faces.el lisp/faces.el +2 -2

No files found.
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -428,9 +428,9 @@ also the same size as FACE on FRAME."
      (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))))))