[slime-cvs] CVS slime

[mkoeppe]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv18251

Modified Files:
	slime.el 
Log Message:
Remove the ID argument from :write-string protocol messages.
Everything, except for rigid-indentation tricks, can be achieved by
using :write-string in conjunction with :presentation-start and
:presentation-end.

(slime-dispatch-event): Change it here.
(slime-write-string, slime-repl-write-string): And here.


--- /project/slime/cvsroot/slime/slime.el	2007/08/27 16:55:31	1.830
+++ /project/slime/cvsroot/slime/slime.el	2007/08/28 08:24:34	1.831
@@ -2620,8 +2620,8 @@
   (let ((slime-dispatching-connection (or process (slime-connection))))
     (or (run-hook-with-args-until-success 'slime-event-hooks event)
         (destructure-case event
-          ((:write-string output &optional id target)
-           (slime-write-string output id target))
+          ((:write-string output &optional target)
+           (slime-write-string output target))
           ((:emacs-rex form package thread continuation)
            (slime-set-state "|eval...")
            (when (and (slime-use-sigint-for-interrupt) (slime-busy-p))
@@ -2936,16 +2936,15 @@
 
 (defvar slime-write-string-function 'slime-repl-write-string)
 
-(defun slime-write-string (string &optional id target)
-  "Insert STRING in the REPL buffer.
-If ID is non-nil, insert STRING
-as a presentation.  If TARGET is nil, insert STRING as regular process
+(defun slime-write-string (string &optional target)
+  "Insert STRING in the REPL buffer or some other TARGET.
+If TARGET is nil, insert STRING as regular process
 output.  If TARGET is :repl-result, insert STRING as the result of the
 evaluation.  Other values of TARGET map to an Emacs marker via the 
 hashtable `slime-output-target-to-marker'; output is inserted at this marker."
-  (funcall slime-write-string-function string id target))
+  (funcall slime-write-string-function string target))
 
-(defun slime-repl-write-string (string &optional id target)
+(defun slime-repl-write-string (string &optional target)
   (ecase target
     ((nil)                              ; Regular process output
      (with-current-buffer (slime-output-buffer)