[sawfish] export send-to-workspace -- fix a call of select-workspace-from-first

[Christopher Bratusek <chrisb src gnome org>]

commit 2a3214b61ddb8f66e7afe0290df29393702f802e
Author: chrisb <zanghar freenet de>
Date:   Thu Aug 27 21:09:16 2009 +0200

    export send-to-workspace -- fix a call of select-workspace-from-first

 ChangeLog                    |    3 +++
 lisp/sawfish/wm/workspace.jl |    3 ++-
 man/news.texi                |    4 ++++
 3 files changed, 9 insertions(+), 1 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 8871f2c..a8dc6e5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -18,6 +18,9 @@
 
 	* lisp/sawfish/wm/commands/shrink-yank.jl: export commands
 
+	* lisp/sawfish/wm/workspace.jl: export send-to-workspace 
+	                                fix a select-workspace-from-first call [Michal Maruska]
+
 2009-08-09  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/ext/match-window.jl: move rename-window here, as it requires prompt but this either does not 
 	                                       load properly in windows.jl or breaks sawfish-ui if require'ed instead of open'ed
diff --git a/lisp/sawfish/wm/workspace.jl b/lisp/sawfish/wm/workspace.jl
index cdb8917..9749451 100644
--- a/lisp/sawfish/wm/workspace.jl
+++ b/lisp/sawfish/wm/workspace.jl
@@ -81,6 +81,7 @@
 	    popup-window-list
 	    next-workspace
 	    previous-workspace
+	    send-to-workspace
 	    send-to-next-workspace
 	    send-to-previous-workspace
 	    copy-to-next-workspace
@@ -908,7 +909,7 @@ last instance remaining, then delete the actual window."
     (require 'sawfish.wm.util.prompt)
     (let ((ws (prompt-for-workspace)))
       (when ws
-	(select-workspace-from-first ws))))
+	(select-workspace-from-first (1- ws)))))
 
   (define-command 'select-workspace-interactively
     select-workspace-interactively)
diff --git a/man/news.texi b/man/news.texi
index 0792e8c..32d5c32 100644
--- a/man/news.texi
+++ b/man/news.texi
@@ -38,6 +38,8 @@ they occurred between. For more detailed information see the
 @item Fixed wrong call of make-pot in po/Makefile.in [Christopher Bratusek]
 
 @item Fixed issue with translated tooltip strings [Teika Kazura]
+
+ item Fixed a call of select-workspace-from-first [Michal Maruska]
 @end itemize
 @item New features:
 @itemize @minus
@@ -100,6 +102,8 @@ they occurred between. For more detailed information see the
 
 @item Export shrink-yank commands [Christopher Bratusek]
 
+ item Export send-to-workspace command [Christopher Bratusek]
+
 @item Doc updates [Christopher Bratusek, Jeremy Hankins]
 @end itemize
 @end itemize