# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 786231865 0
# Node ID ace8ae9f015f21ecb5c5f32b162d3bff02eb4a43
# Parent  e36adc507c9b168b815bd2b592e00529a90186dc
(gud-basic-call): Detect error earlier.

diff -r e36adc507c9b -r ace8ae9f015f lisp/gud.el
--- a/lisp/gud.el	Wed Nov 30 21:41:10 1994 +0000
+++ b/lisp/gud.el	Wed Nov 30 21:44:25 1994 +0000
@@ -1213,7 +1213,7 @@
   (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)