[slime-cvs] CVS slime

heller heller at common-lisp.net
Sat Sep 20 21:46:30 UTC 2008


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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-with-output-end-mark):
slime-repl-show-maximum-output no longer accepts any arguments.

--- /project/slime/cvsroot/slime/ChangeLog	2008/09/20 21:46:22	1.1532
+++ /project/slime/cvsroot/slime/ChangeLog	2008/09/20 21:46:30	1.1533
@@ -1,3 +1,8 @@
+2008-09-20  Ariel Badichi <abadichi at bezeqint.net>
+
+	* slime.el (slime-with-output-end-mark):
+	slime-repl-show-maximum-output no longer accepts any arguments.
+
 2008-09-20  Helmut Eller  <heller at common-lisp.net>
 
 	* test.sh: Parse the -S option as advertized.
--- /project/slime/cvsroot/slime/slime.el	2008/09/20 21:46:23	1.1035
+++ /project/slime/cvsroot/slime/slime.el	2008/09/20 21:46:30	1.1036
@@ -2572,8 +2572,7 @@
               (goto-char slime-output-end)
               (funcall body..))))
      (when updatep..
-       (slime-repl-show-maximum-output 
-        (> (- slime-output-end slime-output-start) 1000)))))
+       (slime-repl-show-maximum-output))))
 
 (defun slime-output-filter (process string)
   (with-current-buffer (process-buffer process)
@@ -2667,8 +2666,7 @@
     (when slime-repl-popup-on-output
       (setq slime-repl-popup-on-output nil)
       (display-buffer (current-buffer)))
-    (when (eobp)
-      (slime-repl-show-maximum-output))))
+    (slime-repl-show-maximum-output)))
 
 (defun slime-repl-emit-result (string &optional bol)
   ;; insert STRING and mark it as evaluation result




More information about the slime-cvs mailing list