From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 30 Nov 1994 21:44:25 +0000 (+0000)
Subject: (gud-basic-call): Detect error earlier.
X-Git-Tag: emacs-19.34~5760
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b8b296e5c8fee154e8fcf33f578c60315b6d79f;p=emacs.git

(gud-basic-call): Detect error earlier.
---

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)