[sawfish/viewport] Revert "oh-oh merge of viewport branch was sub-optimal ... re-export setters (edge-flip/display-ws-n

[Christopher Bratusek <chrisb src gnome org>]

commit 5ae29ae213693bb071d3f3ef0410e4a97c5f89b9
Author: Christopher Roy Bratusek <chris nanolx org>
Date:   Thu Nov 12 21:19:00 2009 +0100

    Revert "oh-oh merge of viewport branch was sub-optimal ... re-export setters (edge-flip/display-ws-name/raise-tabs-on-hover)"
    
    This reverts commit be895cef43f6a21ca44a1b69cfae21af66a4b756.

 lisp/sawfish/wm/ext/edge-flip.jl |    3 +--
 lisp/sawfish/wm/tabs/tab.jl      |    3 +--
 lisp/sawfish/wm/workspace.jl     |    1 -
 3 files changed, 2 insertions(+), 5 deletions(-)
---
diff --git a/lisp/sawfish/wm/ext/edge-flip.jl b/lisp/sawfish/wm/ext/edge-flip.jl
index 1017eaf..7b973cf 100644
--- a/lisp/sawfish/wm/ext/edge-flip.jl
+++ b/lisp/sawfish/wm/ext/edge-flip.jl
@@ -22,8 +22,7 @@
 
     (export edge-flip-for-edge
 	    edge-flip-synthesize
-	    edge-flip-while-moving
-	    edge-flip-enable)
+	    edge-flip-while-moving)
 
     (open rep
 	  rep.system
diff --git a/lisp/sawfish/wm/tabs/tab.jl b/lisp/sawfish/wm/tabs/tab.jl
index 5d66a42..0fd60a0 100644
--- a/lisp/sawfish/wm/tabs/tab.jl
+++ b/lisp/sawfish/wm/tabs/tab.jl
@@ -20,8 +20,7 @@
 
 (define-structure sawfish.wm.tabs.tab
 
-    (export tab-add-to-group
-            raise-tabs-on-hover-setter)
+    (export tab-add-to-group)
 
     (open rep
           rep.system
diff --git a/lisp/sawfish/wm/workspace.jl b/lisp/sawfish/wm/workspace.jl
index 55f0d46..7604b1a 100644
--- a/lisp/sawfish/wm/workspace.jl
+++ b/lisp/sawfish/wm/workspace.jl
@@ -102,7 +102,6 @@
 	    hide-desktop
 	    showing-desktop-p
 	    display-workspace-name
-	    display-ws-name-setter
 
 	    ;; XXX rename these..?
 	    ws-remove-window