[clfswm-cvs] r363 - in clfswm: . src

[Philippe Brochard]

Author: pbrochard
Date: Wed Oct 27 03:31:35 2010
New Revision: 363

Log:
src/clfswm-expose-mode.lisp (expose-create-window): Ensure that all characters are printable.

Modified:
   clfswm/ChangeLog
   clfswm/src/clfswm-expose-mode.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Wed Oct 27 03:31:35 2010
@@ -1,3 +1,8 @@
+2010-10-27  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-expose-mode.lisp (expose-create-window): Ensure that
+	all characters are printable.
+
 2010-10-25  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* contrib/server/server.lisp: Load clfswm client code in the main

Modified: clfswm/src/clfswm-expose-mode.lisp
==============================================================================
--- clfswm/src/clfswm-expose-mode.lisp	(original)
+++ clfswm/src/clfswm-expose-mode.lisp	Wed Oct 27 03:31:35 2010
@@ -107,7 +107,7 @@
   (let* ((*current-child* child)
 	 (string (format nil "~A~A" (number->char n)
 			 (if *expose-show-window-title*
-			     (format nil " - ~A" (child-fullname child))
+			     (format nil " - ~A" (ensure-printable (child-fullname child)))
 			     "")))
 	 (width (if *expose-show-window-title*
 		    (min (* (xlib:max-char-width *expose-font*) (+ (length string) 2))