mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1996-03-22 14:13:07 +00:00
parent 29db528bae
commit dd4d27ca9e
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/progmodes/inf-lisp.el
View File

@ -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)