diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-10-13 18:20:55 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-10-13 18:20:55 +0000 |
commit | f85608a0d7edd03d01d0b015c5c8dec0a671266d (patch) | |
tree | 434e497b4f53e91b5f5b2da73437c9101bd8b20e /lisp/gud.el | |
parent | fe018ebd42be55823cefaca2bcc11195b3c943b1 (diff) | |
download | emacs-f85608a0d7edd03d01d0b015c5c8dec0a671266d.tar.gz |
(gud-filter): Don't bind inhibit-quit.
Do nothing if buffer is dead.
Diffstat (limited to 'lisp/gud.el')
-rw-r--r-- | lisp/gud.el | 44 |
1 files changed, 22 insertions, 22 deletions
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))) |