procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* faces.el (x-resolve-font-name): Give correct error message

Browse source 
depending on whether or not FACE was non-nil.
This commit is contained in:
Jim Blandy 1993-05-30 17:28:33 +00:00
parent d9d5950f41
commit 25c08a32ed
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/faces.el
View file

@ -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 match `%S'." pattern)
(error "no fonts matching pattern are the same size as `%s'."
face)))
(error "no fonts matching pattern are the same size as `%s'."
face)
(error "no fonts match `%S'." pattern)))
(car fonts))
(cdr (assq 'font (frame-parameters (selected-frame))))))