From dd4d27ca9e2f98f20895c2ba3f4059b4a7b0a119 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 22 Mar 1996 14:13:07 +0000
Subject: [PATCH] (switch-to-lisp): Sometimes turn on pop-up-frames.

---
 lisp/progmodes/inf-lisp.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/progmodes/inf-lisp.el b/lisp/progmodes/inf-lisp.el
index b56b9a5dd58..870d3f944b7 100644
--- a/lisp/progmodes/inf-lisp.el
+++ b/lisp/progmodes/inf-lisp.el
@@ -361,7 +361,12 @@ Prefix argument means switch to the Lisp buffer afterwards."
 With argument, positions cursor at end of buffer."
   (interactive "P")
   (if (get-buffer inferior-lisp-buffer)
-      (pop-to-buffer inferior-lisp-buffer)
+      (let ((pop-up-frames
+	     ;; Be willing to use another frame
+	     ;; that already has the window in it.
+	     (or pop-up-frames
+		 (get-buffer-window inferior-lisp-buffer t))))
+	(pop-to-buffer inferior-lisp-buffer))
     (error "No current inferior Lisp buffer"))
   (cond (eob-p
 	 (push-mark)