Mercurial > emacs

changeset 23700:3be52677d330

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(switch-to-lisp): if no inferior lisp present, call `run-lisp' instead of signalling an error.
author Karl Heuer <kwzh@gnu.org>
date Thu, 12 Nov 1998 01:55:57 +0000
parents 3267bdc78cca
children 6c0896abbbd4
files lisp/progmodes/inf-lisp.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/inf-lisp.el	Wed Nov 11 19:31:24 1998 +0000
+++ b/lisp/progmodes/inf-lisp.el	Thu Nov 12 01:55:57 1998 +0000
@@ -362,17 +362,17 @@
   "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,