Skip to content
Snippets Groups Projects
Commit 8b6e791a authored by Andreas Fuchs's avatar Andreas Fuchs
Browse files

spr36163: Fix charsets-missing-from-fontset condition report function.

parent 8e5d61c6
No related branches found
No related tags found
No related merge requests found
......@@ -3,6 +3,11 @@
don't forget to change the version in utils/packages.lisp if you do anything
user visible.
*******************************************************************************
2009-09-09 Andreas Fuchs <afuchs@franz.com>
* tk/font.lisp: Fix the charsets-missing-from-fontset condition report
function. (spr36163)
2009-09-09 Andreas Fuchs <afuchs@franz.com>
* tk-silica/xt-graphics.lisp: Fix vertical alignment offset calculation for :bottom
......
......@@ -187,11 +187,10 @@
(define-condition charsets-missing-from-fontset (warning)
((charsets :initarg :charsets :accessor charsets-missing-from-fontset-charsets)
(created-for :initarg :created-for :accessor charsets-missing-from-fontset-created))
(:report (lambda (stream c)
(:report (lambda (c stream)
(format stream
"Missing charsets:~{ ~A,~} creating fontset for ~A"
(charsets-missing-from-fontset-charsets c)
(charsets-missing-from-fontset-created c)))))
"Couldn't find usable fonts for char sets~:{ ~A,~}"
(charsets-missing-from-fontset-charsets c)))))
(defmethod initialize-instance :after ((fs font-set) &key
foreign-address display base-names)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment