[slime-cvs] CVS slime/contrib

[CVS User heller]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv9217/contrib

Modified Files:
	ChangeLog inferior-slime.el 
Log Message:
* inferior-slime.el (inferior-slime-show-transcript): Update window point

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/05/29 05:40:18	1.389
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/06/04 07:30:18	1.390
@@ -3,6 +3,11 @@
 	* swank-fancy-inspector.lisp (emacs-inspect): Add [finalize]
 	button for not finalized classes.
 
+2010-06-04  Helmut Eller  <heller at common-lisp.net>
+
+	* inferior-slime.el (inferior-slime-show-transcript): Update
+	window point
+
 2010-05-28  Helmut Eller  <heller at common-lisp.net>
 
 	Call provide at the end of the file.
--- /project/slime/cvsroot/slime/contrib/inferior-slime.el	2010/02/17 17:04:50	1.10
+++ /project/slime/cvsroot/slime/contrib/inferior-slime.el	2010/06/04 07:30:18	1.11
@@ -98,7 +98,9 @@
 (defun inferior-slime-show-transcript (string)
   (remove-hook 'comint-output-filter-functions
 	       'inferior-slime-show-transcript t)
-  (display-buffer (process-buffer (slime-inferior-process)) t))
+  (with-current-buffer (process-buffer (slime-inferior-process))
+    (let ((window (display-buffer (current-buffer) t)))
+      (set-window-point window (point-max)))))
 
 (defun inferior-slime-start-transcript ()
   (let ((proc (slime-inferior-process)))