[sawfish] close-button calls delete-window-safely rather than delete-window

[Christopher Bratusek <chrisb src gnome org>]

commit f656d841583f4d5a7f3e195aab0b01add1144523
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Fri Sep 17 20:20:11 2010 +0200

    close-button calls delete-window-safely rather than delete-window

 ChangeLog                  |    3 +++
 lisp/sawfish/wm/keymaps.jl |    2 +-
 2 files changed, 4 insertions(+), 1 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 07863a9..9bc2f28 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -13,6 +13,9 @@
 	Window matched by this can't be resized by the `resize-window-interactively',
 	`halve-window-size' or `double-window-size' functions, but by maximize-*.
 
+	* lisp/sawfish/wm/keymaps.jl: by default the close-buttons calls `delete-window-safely'
+	rather than `delete-window'.
+
 2010-09-16  Teika kazura <teika lavabit com>
 	* lisp/sawfish/wm/commands/grow-pack.jl
 	* lisp/sawfish/wm/ext/window-history.jl
diff --git a/lisp/sawfish/wm/keymaps.jl b/lisp/sawfish/wm/keymaps.jl
index 32552ee..09c0496 100644
--- a/lisp/sawfish/wm/keymaps.jl
+++ b/lisp/sawfish/wm/keymaps.jl
@@ -138,7 +138,7 @@ a window. (Only mouse-bindings are evaluated in this map.)"
   (defcustom close-button-keymap (bind-keys (make-keymap)
 				   "Button3-Click1" 'popup-window-menu
 				   "S-Button1-Off" 'delete-group
-				   "Button1-Off" 'delete-window)
+				   "Button1-Off" 'delete-window-safely)
     "Keymap containing bindings active when the pointer is in the close button
 of a window. (Only mouse-bindings are evaluated in this map.)"
     :group bindings