[sawfish] added ,quit command to sawfish-client

[Christopher Bratusek <chrisb src gnome org>]

commit 67cd29f535c1f366540146e818d43fbc9addb661
Author: chrisb <zanghar freenet de>
Date:   Sat Sep 12 09:56:48 2009 +0200

    added ,quit command to sawfish-client

 ChangeLog                 |    2 ++
 man/news.texi             |    4 +++-
 scripts/sawfish-client.jl |    9 ++++++++-
 3 files changed, 13 insertions(+), 2 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 1c66554..e42411a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -33,6 +33,8 @@
 	* themes/smaker/README.ja
 	* themes/smaker/README.pl: change encoding to UTF8 (latin -1 + -2 previously) [Teika Kazura]
 
+	* scripts/sawfish-client.jl: added `,quit' command (like `C-d'), unlike `C-c' this won't kill sawfish [Teika Kazura]
+
 2009-09-11  Christopher Bratusek <zanghar freenet de>
 	* configure.in
 	* Makedefs.in
diff --git a/man/news.texi b/man/news.texi
index 1d90713..c667328 100644
--- a/man/news.texi
+++ b/man/news.texi
@@ -124,6 +124,8 @@ your system, but the later doesn't
 
 @item Encoding is unified to utf-8 of all distributed files [Teika Kazura]
 
+ item You can exit from sawfish-client with @code{,quit} (also @code{C-d}), unlike @code{C-c} it won't kill the WM [Teika Kazura]
+
 @item Number widget can take optional initial value [Teika Kazura]
 
 @item Sawfish does now appear in KDE4s WM Selector [Christopher Bratusek]
@@ -254,7 +256,7 @@ In lisp, replaced hardcoded focus logic by @code{focus-revert}
 function. Previously, action when the focused transient window is
 unmapped was not handled by focus modes, but coded elsewhere. Now
 @code{focus-revert} event is invoked, and passed to focus modes. (For
-detail, @pxref{Input Focus}.) This makes the modes' policy clear, and
+detail, Input Focus.) This makes the modes' policy clear, and
 programmable.
 
 @item cursor warp enhancements. [Christopher Bratusek]
diff --git a/scripts/sawfish-client.jl b/scripts/sawfish-client.jl
index ae8ef76..9a10caa 100644
--- a/scripts/sawfish-client.jl
+++ b/scripts/sawfish-client.jl
@@ -108,6 +108,9 @@ sawfish comes with ABSOLUTELY NO WARRANTY; for details see the file COPYING\n"
 		   (let ((input (readline
 				 (format nil (if (repl-pending r) "" "%s> ")
 					 (repl-struct r)))))
+		     (when (equal ",quit\n" input)
+                       (throw 'bye nil)
+                       )
 		     (when input
 		       (let ((out (sawfish-client-eval
 				   `(progn
@@ -145,7 +148,11 @@ sawfish comes with ABSOLUTELY NO WARRANTY; for details see the file COPYING\n"
   (sawfish-client-eval
    `(repl-completions ',(fluid current-repl) ',w)))
 
-(main)
+(catch 'bye
+  (main)
+  )
+
+(write standard-output "Bye.\n")
 
 ;; Local variables:
 ;; major-mode: lisp-mode