From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 13 Oct 1994 18:20:55 +0000 (+0000)
Subject: (gud-filter): Don't bind inhibit-quit.
X-Git-Tag: emacs-19.34~6335
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c561a0cbfd4f1c800cb113905b43d08ce36d9883;p=emacs.git

(gud-filter): Don't bind inhibit-quit.
Do nothing if buffer is dead.
---

diff --git a/lisp/gud.el b/lisp/gud.el
index c8cf26c4d91..c43f6e2d4ab 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -1009,28 +1009,28 @@ comint mode, which see."
 
 (defun gud-filter (proc string)
   ;; Here's where the actual buffer insertion is done
-  (let ((inhibit-quit t) 
-	output)
-    (save-excursion
-      (set-buffer (process-buffer proc))
-      ;; If we have been so requested, delete the debugger prompt.
-      (if (marker-buffer gud-delete-prompt-marker)
-	  (progn
-	    (delete-region (process-mark proc) gud-delete-prompt-marker)
-	    (set-marker gud-delete-prompt-marker nil)))
-      ;; Save the process output, checking for source file markers.
-      (setq output (gud-marker-filter string))
-      ;; Check for a filename-and-line number.
-      ;; Don't display the specified file
-      ;; unless (1) point is at or after the position where output appears
-      ;; and (2) this buffer is on the screen.
-      (if (and gud-last-frame
-	       (>= (point) (process-mark proc))
-	       (get-buffer-window (current-buffer)))
-	  (gud-display-frame))
-      ;; Let the comint filter do the actual insertion.
-      ;; That lets us inherit various comint features.
-      (comint-output-filter proc output))))
+  (let (output)
+    (if (buffer-name (process-buffer proc))
+	(save-excursion
+	  (set-buffer (process-buffer proc))
+	  ;; If we have been so requested, delete the debugger prompt.
+	  (if (marker-buffer gud-delete-prompt-marker)
+	      (progn
+		(delete-region (process-mark proc) gud-delete-prompt-marker)
+		(set-marker gud-delete-prompt-marker nil)))
+	  ;; Save the process output, checking for source file markers.
+	  (setq output (gud-marker-filter string))
+	  ;; Check for a filename-and-line number.
+	  ;; Don't display the specified file
+	  ;; unless (1) point is at or after the position where output appears
+	  ;; and (2) this buffer is on the screen.
+	  (if (and gud-last-frame
+		   (>= (point) (process-mark proc))
+		   (get-buffer-window (current-buffer)))
+	      (gud-display-frame))
+	  ;; Let the comint filter do the actual insertion.
+	  ;; That lets us inherit various comint features.
+	  (comint-output-filter proc output)))))
 
 (defun gud-sentinel (proc msg)
   (cond ((null (buffer-name (process-buffer proc)))