comparison lisp/progmodes/inf-lisp.el @ 14857:eb23eca2abf9

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

14856:f64fa743c80f

(defun switch-to-lisp (eob-p)
  "Switch to the inferior Lisp process buffer.
With argument, positions cursor at end of buffer."
  (interactive "P")
  (if (get-buffer inferior-lisp-buffer)
      (pop-to-buffer inferior-lisp-buffer)
    (error "No current inferior Lisp buffer"))
  (cond (eob-p
	 (push-mark)
	 (goto-char (point-max)))))

14857:eb23eca2abf9

(defun switch-to-lisp (eob-p)
  "Switch to the inferior Lisp process buffer.
With argument, positions cursor at end of buffer."
  (interactive "P")
  (if (get-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)
	 (goto-char (point-max)))))