diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-03-22 14:13:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-03-22 14:13:07 +0000 |
| commit | f65f4113ded2082824722b3cf65a48c0dfecbf28 (patch) | |
| tree | 5138eff32a387663b73d7cfd0a0abcfe722bd772 /lisp/progmodes | |
| parent | c1f457b291bab33f5e8f10ef977bbd6cf3a2df64 (diff) | |
| download | emacs-f65f4113ded2082824722b3cf65a48c0dfecbf28.tar.gz | |
(switch-to-lisp): Sometimes turn on pop-up-frames.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/inf-lisp.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/progmodes/inf-lisp.el b/lisp/progmodes/inf-lisp.el index b56b9a5dd58..870d3f944b7 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) |