HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
29db528
)
(switch-to-lisp): Sometimes turn on pop-up-frames.
author
Richard M. Stallman
<rms@gnu.org>
Fri, 22 Mar 1996 14:13:07 +0000
(14:13 +0000)
committer
Richard M. Stallman
<rms@gnu.org>
Fri, 22 Mar 1996 14:13:07 +0000
(14:13 +0000)
lisp/progmodes/inf-lisp.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/progmodes/inf-lisp.el
b/lisp/progmodes/inf-lisp.el
index
b56b9a5
..
870d3f9
100644
(file)
--- 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)