From 7172d0aab3b92712a849a8f2460cf073151bbc07 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 12 Nov 1998 01:55:57 +0000 Subject: [PATCH] (switch-to-lisp): if no inferior lisp present, call `run-lisp' instead of signalling an error. --- lisp/progmodes/inf-lisp.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/progmodes/inf-lisp.el b/lisp/progmodes/inf-lisp.el index dbb49729d13..08eddc47869 100644 --- a/lisp/progmodes/inf-lisp.el +++ b/lisp/progmodes/inf-lisp.el @@ -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, -- 2.39.2