[slime-cvs] CVS slime

[heller]

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

Modified Files:
	slime.el 
Log Message:
(slime-insert-presentation): Honor slime-repl-enable-presentations.
Presentations kill SLDB and the inspector in Emacs 20 (besides
being troublesome GC-wise).


--- /project/slime/cvsroot/slime/slime.el	2006/10/16 19:57:41	1.662
+++ /project/slime/cvsroot/slime/slime.el	2006/10/16 20:20:42	1.663
@@ -2908,10 +2908,13 @@
       (when (eq (overlay-get overlay 'slime-repl-presentation) presentation)
         (delete-overlay overlay)))))
 
-(defun slime-insert-presentation (result output-id)
-  (let ((start (point)))
-    (insert result)
-    (slime-add-presentation-properties start (point) output-id t)))
+(defun slime-insert-presentation (string output-id)
+  (cond ((not slime-repl-enable-presentations)
+         (insert string))
+        (t
+         (let ((start (point)))
+           (insert string)
+           (slime-add-presentation-properties start (point) output-id t)))))
                           
 (defun slime-open-stream-to-lisp (port)
   (let ((stream (open-network-stream "*lisp-output-stream*"