[slime-cvs] CVS update: slime/swank.lisp

[Matthias Koeppe]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv25168

Modified Files:
	swank.lisp 
Log Message:
(dispatch-event, send-to-socket-io): New events :presentation-start,
:presentation-end for bridge-less presentation markup.

Date: Thu Aug  4 21:16:19 2005
Author: mkoeppe

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.313 slime/swank.lisp:1.314
--- slime/swank.lisp:1.313	Fri Jul 29 14:38:21 2005
+++ slime/swank.lisp	Thu Aug  4 21:16:14 2005
@@ -599,7 +599,8 @@
      (encode-message `(:eval ,(thread-id thread) , at args) socket-io))
     ((:emacs-return thread-id tag value)
      (send (find-thread thread-id) `(take-input ,tag ,value)))
-    (((:read-output :new-package :new-features :ed :%apply :indentation-update
+    (((:read-output :presentation-start :presentation-end
+                    :new-package :new-features :ed :%apply :indentation-update
                     :eval-no-wait)
       &rest _)
      (declare (ignore _))
@@ -719,6 +720,7 @@
        (declare (ignore thread))
        (send `(:return , at args)))
       (((:read-output :new-package :new-features :debug-condition
+                      :presentation-start :presentation-end
                       :indentation-update :ed :%apply :eval-no-wait)
         &rest _)
        (declare (ignore _))