From dd4d27ca9e2f98f20895c2ba3f4059b4a7b0a119 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 22 Mar 1996 14:13:07 +0000 Subject: (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 b56b9a5dd5..870d3f944b 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) -- cgit v1.2.3