[sawfish] string change in rename-window -- improved keymap-trans

[Christopher Bratusek <chrisb src gnome org>]

commit 61d6f82c35f46c4a6fa2a0e30a21603ded46b2d5
Author: chrisb <zanghar freenet de>
Date:   Mon Sep 14 14:58:00 2009 +0200

    string change in rename-window -- improved keymap-trans

 ChangeLog                           |    4 ++++
 lisp/sawfish/wm/ext/match-window.jl |    4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index d518cf2..4202bdc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2009-09-14  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/wm/ext/match-window.jl: string change in rename-window
+	                                       improved keymap-trans
+
 2009-09-13  Christopher Bratusek <zanghar freenet de>
 	* sawfish.doap: added
 
diff --git a/lisp/sawfish/wm/ext/match-window.jl b/lisp/sawfish/wm/ext/match-window.jl
index 902ddf3..f8defb3 100644
--- a/lisp/sawfish/wm/ext/match-window.jl
+++ b/lisp/sawfish/wm/ext/match-window.jl
@@ -490,13 +490,13 @@
          (lambda (pair)         ; pair of from and to keys
             (bind-keys keymap (car pair)
               (lambda () (interactive)
-                (synthesize-event (lookup-event (cadr pair)) (input-focus))))) value))))
+                (synthesize-event (lookup-event (cadr pair)) (current-event-window))))) value))))
 
   (define (rename-window window new-name)
     (set-x-text-property window 'WM_NAME (vector new-name)
     (set-x-text-property window '_NET_WM_NAME (vector new-name))))
 
   (define (rename-window-interactive w)
-    (rename-window w (prompt-for-string "new title:" (window-name w))))
+    (rename-window w (prompt-for-string "Enter new window-title:" (window-name w))))
 
   (define-command 'rename-window rename-window-interactive #:spec "%W"))