[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
(slime-switch-to-output-buffer-search-all-frames): Deleted. Use
display-buffer-reuse-frames instead.
(slime-switch-to-output-buffer): Use pop-to-buffer to select the
window and frame.  Have to set the input-focus manually, though.
Might be some window manager issue.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/17 23:00:46	1.1461
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/17 23:00:55	1.1462
@@ -3,6 +3,11 @@
 	* slime.el (slime-add-local-hook): Renamed from add-local-hook.
 	(slime-switch-to-output-buffer): Drop the connection argument.  It
 	was never used.
+	(slime-switch-to-output-buffer-search-all-frames): Deleted. Use
+	display-buffer-reuse-frames instead.
+	(slime-switch-to-output-buffer): Use pop-to-buffer to select the
+	window and frame.  Have to set the input-focus manually, though.
+	Might be some window manager issue.
 
 2008-08-15  Tobias C. Rittweiler  <tcr at freebits.de>
 
@@ -25,9 +30,9 @@
 
 2008-08-17  B.Scott Michel <scooter.phd at gmail.com>
 
-       * swank-loader.lisp (dump-image): Move this function to the end of
-       the file to stop SBCL from reporting two times the same false
-       alarm.
+	* swank-loader.lisp (dump-image): Move this function to the end of
+	the file to stop SBCL from reporting two times the same false
+	alarm.
 
 2008-08-15  Tobias C. Rittweiler  <tcr at freebits.de>
 
--- /project/slime/cvsroot/slime/slime.el	2008/08/17 23:00:50	1.1000
+++ /project/slime/cvsroot/slime/slime.el	2008/08/17 23:00:56	1.1001
@@ -2696,35 +2696,15 @@
           (insert-before-markers string)
           (set-marker marker (point)))))))
 
-(defvar slime-switch-to-output-buffer-search-all-frames t
-  "If t search for an already existing REPL window in all frames,
-and if found, select that window instead of creating a new one.
-
-If you use multiple screens, you may want to set this to nil such
-that a window on a different screen won't be selected under the
-hood.")
-
 (defun slime-switch-to-output-buffer ()
-  "Select the output buffer: If a REPL is already displayed, just
-set focus to that window. Otherwise, try to make a new window
-displaying the REPL."
-  (interactive)
-  (let ((slime-dispatching-connection (or connection
-                                           slime-dispatching-connection)))
-    (let* ((repl-buffer (slime-output-buffer))
-           (all-frames-p slime-switch-to-output-buffer-search-all-frames)
-           (repl-window (get-buffer-window repl-buffer all-frames-p)))
-      ;; FIXME: I don't think that this function should set the
-      ;; buffer. We currently do it, because the programmatic
-      ;; invocations of this function expect this.
-      (set-buffer repl-buffer)
-      (if repl-window
-          (progn (select-frame-set-input-focus (window-frame repl-window))
-                 (select-window repl-window))
-        (unless (eq (current-buffer) (window-buffer))
-          (pop-to-buffer (current-buffer) t))))
-    (assert (eq (current-buffer) repl-buffer))
-    (goto-char (point-max))))
+  "Select the output buffer, when possible in an existing window.
+
+Hint: You can use `display-buffer-reuse-frames' and
+`special-display-buffer-names' to customize the frame in which
+the buffer should appear."
+  (interactive)
+  (pop-to-buffer (slime-output-buffer))
+  (goto-char (point-max)))
 
 
 ;;;; REPL