[sawfish] Utf8 support in old-window-menu.jl.

[Christopher Bratusek <chrisb src gnome org>]

commit 422028d6aae1e74b8c4b568f71483113caf060cf
Author: Teika kazura <teika lavabit com>
Date:   Tue Apr 6 14:11:37 2010 +0900

    Utf8 support in old-window-menu.jl.

 lisp/sawfish/wm/ext/old-window-menu.jl |    9 ++++++---
 1 files changed, 6 insertions(+), 3 deletions(-)
---
diff --git a/lisp/sawfish/wm/ext/old-window-menu.jl b/lisp/sawfish/wm/ext/old-window-menu.jl
index a1e52e2..5ba7d91 100644
--- a/lisp/sawfish/wm/ext/old-window-menu.jl
+++ b/lisp/sawfish/wm/ext/old-window-menu.jl
@@ -19,13 +19,16 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 ;; This is the "old" window menu. By default, beos-window-menu is used
-;; instead. This file is orphan now.
+;; instead. Maybe can be deleted.
+
+;; Usage: add (require 'sawfish.wm.ext.old-window-menu) in your rc file.
 
 (define-structure sawfish.wm.ext.old-window-menu
 
     (export old-window-menu)
 
     (open rep
+	  rep.util.utf8
 	  sawfish.wm.windows
 	  sawfish.wm.workspace
 	  sawfish.wm.misc
@@ -37,8 +40,8 @@
   (define (make-label w)
     (let ((name (window-name w)))
       (quote-menu-item (concat (and (window-get w 'iconified) ?\[)
-			       (if (> (length name) 20)
-				   (concat (substring name 0 20) "...")
+			       (if (> (utf8-string-length name) 20)
+				   (concat (utf8-substring name 0 20) "...")
 				 name)
 			       (and (window-get w 'iconified)  ?\])))))