diff options
| author | Karl Heuer | 1998-11-12 01:55:57 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-11-12 01:55:57 +0000 |
| commit | 7172d0aab3b92712a849a8f2460cf073151bbc07 (patch) | |
| tree | b5c243d6341172f3f6daef40128753b17f69de33 /lisp/progmodes | |
| parent | 201006c436af5bd45bcb0520e31717b5da9b1eba (diff) | |
| download | emacs-7172d0aab3b92712a849a8f2460cf073151bbc07.tar.gz emacs-7172d0aab3b92712a849a8f2460cf073151bbc07.zip | |
(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." | |||
| 362 | "Switch to the inferior Lisp process buffer. | 362 | "Switch to the inferior Lisp process buffer. |
| 363 | With argument, positions cursor at end of buffer." | 363 | With argument, positions cursor at end of buffer." |
| 364 | (interactive "P") | 364 | (interactive "P") |
| 365 | (if (get-buffer inferior-lisp-buffer) | 365 | (if (get-buffer-process inferior-lisp-buffer) |
| 366 | (let ((pop-up-frames | 366 | (let ((pop-up-frames |
| 367 | ;; Be willing to use another frame | 367 | ;; Be willing to use another frame |
| 368 | ;; that already has the window in it. | 368 | ;; that already has the window in it. |
| 369 | (or pop-up-frames | 369 | (or pop-up-frames |
| 370 | (get-buffer-window inferior-lisp-buffer t)))) | 370 | (get-buffer-window inferior-lisp-buffer t)))) |
| 371 | (pop-to-buffer inferior-lisp-buffer)) | 371 | (pop-to-buffer inferior-lisp-buffer)) |
| 372 | (error "No current inferior Lisp buffer")) | 372 | (run-lisp inferior-lisp-program)) |
| 373 | (cond (eob-p | 373 | (when eob-p |
| 374 | (push-mark) | 374 | (push-mark) |
| 375 | (goto-char (point-max))))) | 375 | (goto-char (point-max)))) |
| 376 | 376 | ||
| 377 | 377 | ||
| 378 | ;;; Now that lisp-compile/eval-defun/region takes an optional prefix arg, | 378 | ;;; Now that lisp-compile/eval-defun/region takes an optional prefix arg, |