[slime-cvs] CVS update: slime/slime.el

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
Events in the *slime-events* buffer are now exact on-the-wire
messages, without including e.g. Elisp continuation functions. This is
easier for debugging I think.

Date: Mon Jun 28 05:40:50 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.340 slime/slime.el:1.341
--- slime/slime.el:1.340	Mon Jun 28 03:22:27 2004
+++ slime/slime.el	Mon Jun 28 05:40:49 2004
@@ -1270,6 +1270,7 @@
 EVAL'd by Lisp."
   (let* ((msg (concat (slime-prin1-to-string sexp) "\n"))
          (string (concat (slime-net-enc3 (length msg)) msg)))
+    (slime-log-event sexp)
     (process-send-string proc (string-make-unibyte string))))
 
 (defun slime-net-close (process)
@@ -1309,7 +1310,9 @@
                             (sleep-for 2)
                             (ignore-errors (slime-net-close proc))
                             (error "PANIC!")))))
-              (save-current-buffer (slime-dispatch-event event proc))))))
+              (save-current-buffer
+                (slime-log-event event)
+                (slime-dispatch-event event proc))))))
     (dolist (p slime-net-processes)
       (with-current-buffer (process-buffer p)
         (when (slime-net-have-input-p)
@@ -1533,7 +1536,6 @@
 
 (defun slime-dispatch-event (event &optional process)
   (let ((slime-dispatching-connection (or process (slime-connection))))
-    (slime-log-event event)
     (destructure-case event
       ((:read-output output)
        (slime-output-string output))