[sawfish: 6/42] fixed doc for insert-workspace updated insert-workspace accordingly add insert-workspace-before to w

[Christopher Bratusek <chrisb src gnome org>]

commit 552e992415084a5459a88ab15d10dc217f35cf38
Author: Christopher Roy Bratusek <nano tuxfamily org>
Date:   Sun Apr 10 08:09:04 2011 +0200

    fixed doc for insert-workspace
    updated insert-workspace accordingly
    add insert-workspace-before to workspace-menu

 lisp/sawfish/wm/workspace.jl |   17 +++++++++--------
 man/sawfish.texi             |    6 +++---
 2 files changed, 12 insertions(+), 11 deletions(-)
---
diff --git a/lisp/sawfish/wm/workspace.jl b/lisp/sawfish/wm/workspace.jl
index 0cd92e2..9ca82b5 100644
--- a/lisp/sawfish/wm/workspace.jl
+++ b/lisp/sawfish/wm/workspace.jl
@@ -149,7 +149,8 @@ a window"
   (define last-interesting-workspace nil)
 
   (defvar static-workspace-menus
-    `((,(_ "_Insert workspace") insert-workspace-after)
+    `((,(_ "_Insert workspace (before current)") insert-workspace-before)
+      (,(_ "_Insert workspace (after current)") insert-workspace-after)
       ()
       (,(_ "Select _next workspace") next-workspace)
       (,(_ "Select _previous workspace") previous-workspace)
@@ -393,20 +394,20 @@ a window"
 	      (- last-interesting-workspace first-space)))))
 
   ;; insert a new workspace (returning its index) so that the workspace
-  ;; before it has index BEFORE
-  (define (insert-workspace #!optional before)
-    (unless before
-      (setq before current-workspace))
+  ;; before it has index AFTER
+  (define (insert-workspace #!optional after)
+    (unless after
+      (setq after current-workspace))
     (map-windows
      (lambda (w)
        (transform-window-workspaces (lambda (space)
-				      (if (> space before)
+				      (if (> space after)
 					  (1+ space)
 					space)) w)))
-    (when (> current-workspace before)
+    (when (> current-workspace after)
       (setq current-workspace (1+ current-workspace)))
     (call-hook 'workspace-state-change-hook)
-    (1+ before))
+    (1+ after))
 
   ;; merge workspace INDEX with workspace INDEX+1
   (define (remove-workspace #!optional index)
diff --git a/man/sawfish.texi b/man/sawfish.texi
index 414d750..2ce15a1 100644
--- a/man/sawfish.texi
+++ b/man/sawfish.texi
@@ -4520,10 +4520,10 @@ Select workspace @var{space} and then switch to viewport
 @code{(@var{col}, @var{row})} in that workspace.
 @end defun
 
- defun insert-workspace @t{#!optional} before
+ defun insert-workspace @t{#!optional} after
 Insert a new workspace, returning its index.  The new index appears
-before the workspace indicated by @var{before}, or the current
-workspace if @var{before} is @code{nil}.
+after the workspace indicated by @var{after}, or the current
+workspace if @var{after} is @code{nil}.
 @end defun
 
 @defun insert-workspace-after