From 8b6e791a4a4d19fccb5d8bf1ffa404484f95eb37 Mon Sep 17 00:00:00 2001 From: Andreas Fuchs <asf@boinkor.net> Date: Thu, 10 Sep 2009 13:14:07 +0200 Subject: [PATCH] spr36163: Fix charsets-missing-from-fontset condition report function. --- ChangeLog.n | 5 +++++ tk/font.lisp | 7 +++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/ChangeLog.n b/ChangeLog.n index 29692847..d75381ac 100644 --- a/ChangeLog.n +++ b/ChangeLog.n @@ -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 diff --git a/tk/font.lisp b/tk/font.lisp index af40fbb1..9584acda 100644 --- a/tk/font.lisp +++ b/tk/font.lisp @@ -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) -- GitLab