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