diff options
| author | Karl Heuer | 1994-11-30 21:44:25 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-11-30 21:44:25 +0000 |
| commit | 4b8b296e5c8fee154e8fcf33f578c60315b6d79f (patch) | |
| tree | 49b34cc57fd51a1a097b365195fc287b27dbd513 | |
| parent | 48c454c716b343901102fd108528399575c377d7 (diff) | |
| download | emacs-4b8b296e5c8fee154e8fcf33f578c60315b6d79f.tar.gz emacs-4b8b296e5c8fee154e8fcf33f578c60315b6d79f.zip | |
(gud-basic-call): Detect error earlier.
| -rw-r--r-- | lisp/gud.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gud.el b/lisp/gud.el index 8decc5e54bc..917a0f9ac9f 100644 --- a/lisp/gud.el +++ b/lisp/gud.el | |||
| @@ -1213,7 +1213,7 @@ Obeying it means displaying in another window the specified file and line." | |||
| 1213 | (gud-set-buffer) | 1213 | (gud-set-buffer) |
| 1214 | (let ((command (concat command "\n")) | 1214 | (let ((command (concat command "\n")) |
| 1215 | (proc (get-buffer-process gud-comint-buffer))) | 1215 | (proc (get-buffer-process gud-comint-buffer))) |
| 1216 | 1216 | (or proc (error "Current buffer has no process")) | |
| 1217 | ;; Arrange for the current prompt to get deleted. | 1217 | ;; Arrange for the current prompt to get deleted. |
| 1218 | (save-excursion | 1218 | (save-excursion |
| 1219 | (set-buffer gud-comint-buffer) | 1219 | (set-buffer gud-comint-buffer) |