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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-show-last-output): If the *slime-repl* buffer is already
visible in any frame, don't change anything.

Date: Sat Nov 22 02:44:11 2003
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.100 slime/slime.el:1.101
--- slime/slime.el:1.100	Sat Nov 22 00:38:27 2003
+++ slime/slime.el	Sat Nov 22 02:44:11 2003
@@ -1406,12 +1406,15 @@
     (set-marker slime-last-output-start (point) (current-buffer))))
 
 (defun slime-show-last-output ()
-  (with-current-buffer (slime-output-buffer)
-    (let ((start slime-last-output-start)
-          (end slime-repl-prompt-start-mark))
-      (when (< start end)
-        (slime-display-buffer-region (current-buffer) start 
-                                     slime-repl-input-start-mark)))))
+  "Show the output from the last Lisp evaluation.
+This has no effect if the output buffer is already visible."
+  (unless (get-buffer-window (slime-output-buffer) t)
+    (with-current-buffer (slime-output-buffer)
+      (let ((start slime-last-output-start)
+            (end slime-repl-prompt-start-mark))
+        (when (< start end)
+          (slime-display-buffer-region (current-buffer) start 
+                                       slime-repl-input-start-mark))))))
 
 (defun slime-with-output-at-eob (fn)
   "Call FN at the eob.  In a save-excursion block if we are not at