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): if no inferior lisp present, call

Browse Source 
`run-lisp' instead of signalling an error.
This commit is contained in:
Karl Heuer 1998-11-12 01:55:57 +00:00
parent 201006c436
commit 7172d0aab3
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -362,17 +362,17 @@ Prefix argument means switch to the Lisp buffer afterwards."
"Switch to the inferior Lisp process buffer.
With argument, positions cursor at end of buffer."
(interactive "P")
(if (get-buffer inferior-lisp-buffer)
(if (get-buffer-process 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
(run-lisp inferior-lisp-program))
(when eob-p
(push-mark)
(goto-char (point-max)))))
(goto-char (point-max))))
;;; Now that lisp-compile/eval-defun/region takes an optional prefix arg,