diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-11-30 21:44:25 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-11-30 21:44:25 +0000 |
| commit | debb872453cd5374822ae2f1c6cf6c8b3decf989 (patch) | |
| tree | d88a568ae702f65b0af6547fbcb1865fb57e615a | |
| parent | 52e590994b18d833ae01ede5040130586631adca (diff) | |
| download | emacs-debb872453cd5374822ae2f1c6cf6c8b3decf989.tar.gz | |
(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." (gud-set-buffer) (let ((command (concat command "\n")) (proc (get-buffer-process gud-comint-buffer))) - + (or proc (error "Current buffer has no process")) ;; Arrange for the current prompt to get deleted. (save-excursion (set-buffer gud-comint-buffer) |