[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv29067

Modified Files:
	gui.lisp java-syntax-commands.lisp 
Log Message:
Update in response to *drei-instance* changes.


--- /project/climacs/cvsroot/climacs/gui.lisp	2008/01/12 11:49:35	1.252
+++ /project/climacs/cvsroot/climacs/gui.lisp	2008/01/17 11:30:47	1.253
@@ -302,8 +302,7 @@
                        partial-command-parser
                        prompt)
  :bindings ((*default-target-creator* *climacs-target-creator*)
-            (*drei-instance* (esa-current-window frame))
-            (*previous-command* (previous-command *drei-instance*))
+            (*previous-command* (previous-command (drei-instance)))
             (*standard-output* (or (output-stream frame)
                                    *terminal-io*))))
 
@@ -326,6 +325,9 @@
   (setf (buffer (current-view (esa-current-window application-frame)))
         new-buffer))
 
+(defmethod drei-instance-of ((frame climacs))
+  (esa-current-window frame))
+
 (defmethod (setf windows) :after (new-val (climacs climacs))
   ;; Ensures that we don't end up with two views that both believe
   ;; they are active.
--- /project/climacs/cvsroot/climacs/java-syntax-commands.lisp	2007/12/21 11:22:50	1.4
+++ /project/climacs/cvsroot/climacs/java-syntax-commands.lisp	2008/01/17 11:30:49	1.5
@@ -79,7 +79,7 @@
     (if (plusp count)
         (loop repeat count do (forward-expression mark (current-syntax)))
         (loop repeat (- count) do (backward-expression mark (current-syntax))))
-    (indent-region *drei-instance* (point) mark)))
+    (indent-region (current-view) (point) mark)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;