Commit dd4d27ca authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(switch-to-lisp): Sometimes turn on pop-up-frames.

parent 29db528b
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment