Index: pane.lisp
===================================================================
RCS file: /project/climacs/cvsroot/climacs/pane.lisp,v
retrieving revision 1.33
diff -u -r1.33 pane.lisp
--- pane.lisp	13 Sep 2005 19:23:59 -0000	1.33
+++ pane.lisp	30 Oct 2005 15:31:00 -0000
@@ -308,10 +308,22 @@
 
 (defmethod (setf buffer) :after (buffer (pane climacs-pane))
   (with-slots (point mark top bot) pane
-       (setf point (clone-mark (point buffer))
-	     mark (clone-mark (low-mark buffer) :right)
-	     top (clone-mark (low-mark buffer) :left)
-	     bot (clone-mark (high-mark buffer) :right))))
+    (setf point (clone-mark (point buffer))
+          mark (clone-mark (low-mark buffer) :right)
+          top (clone-mark (low-mark buffer) :left)
+          bot (clone-mark (high-mark buffer) :right))))
+
+(defmethod (setf buffer) :after (buffer (pane climacs-gui::extended-pane))
+  (typecase (syntax buffer)
+    (climacs-slidemacs-editor::slidemacs-gui-syntax 
+     (setf (command-table pane) 'climacs-slidemacs-editor::slidemacs-table))
+    (t (setf (command-table pane) 'climacs-gui::global-climacs-table))))
+
+(defmethod (setf syntax) :after (syntax buffer)
+  (typecase syntax
+    (climacs-slidemacs-editor::slidemacs-gui-syntax
+     (setf (command-table (climacs-gui::current-window)) 'climacs-slidemacs-editor::slidemacs-table))
+    (t (setf (command-table (climacs-gui::current-window)) 'climacs-gui::global-climacs-table))))
 
 (define-presentation-type url ()
   :inherit-from 'string)
Index: slidemacs-gui.lisp
===================================================================
RCS file: /project/climacs/cvsroot/climacs/slidemacs-gui.lisp,v
retrieving revision 1.20
diff -u -r1.20 slidemacs-gui.lisp
--- slidemacs-gui.lisp	11 Oct 2005 21:20:52 -0000	1.20
+++ slidemacs-gui.lisp	30 Oct 2005 15:31:00 -0000
@@ -35,7 +35,9 @@
 (defvar *current-slideset*)
 (defvar *did-display-a-slide*)
 
-(make-command-table 'slidemacs-table :errorp nil)
+(make-command-table 'slidemacs-table 
+                    :errorp nil 
+                    :inherit-from '(climacs-gui::global-climacs-table))
 
 (defun slidemacs-entity-string (entity)
   (coerce (buffer-sequence (buffer entity)
@@ -307,7 +309,7 @@
       (display-text-with-wrap-for-pane object stream))))
 
 (define-command (com-browse-to-url :name "Browse To URL"
-                                   :command-table global-command-table
+                                   :command-table slidemacs-table
                                    :menu t
                                    :provide-output-destination-keyword t)
     ((url 'slidemacs-url :prompt "url"))
@@ -315,7 +317,7 @@
   (sb-ext:run-program "/usr/bin/open" (list url)))
 
 (define-presentation-to-command-translator browse-url-translator
-    (slidemacs-url com-browse-to-url global-command-table
+    (slidemacs-url com-browse-to-url slidemacs-table
                    :gesture :select
                    :documentation "Browse To URL"
                    :pointer-documentation "Browse To URL")
