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." ...@@ -361,7 +361,12 @@ Prefix argument means switch to the Lisp buffer afterwards."
With argument, positions cursor at end of buffer." With argument, positions cursor at end of buffer."
(interactive "P") (interactive "P")
(if (get-buffer inferior-lisp-buffer) (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")) (error "No current inferior Lisp buffer"))
(cond (eob-p (cond (eob-p
(push-mark) (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