mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +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."
(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)