diff options
| author | Karl Heuer <kwzh@gnu.org> | 1998-11-12 01:55:57 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1998-11-12 01:55:57 +0000 |
| commit | 7172d0aab3b92712a849a8f2460cf073151bbc07 (patch) | |
| tree | b5c243d6341172f3f6daef40128753b17f69de33 /lisp/progmodes | |
| parent | 201006c436af5bd45bcb0520e31717b5da9b1eba (diff) | |
| download | emacs-7172d0aab3b92712a849a8f2460cf073151bbc07.tar.gz | |
(switch-to-lisp): if no inferior lisp present, call
`run-lisp' instead of signalling an error.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/inf-lisp.el | 8 |
1 files 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, |