mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-11 02:10:35 -08:00
Code Issues Projects Releases Wiki Activity

(gud-filter): Call comint-output-filter at the end.

Browse source
This commit is contained in:
Richard M. Stallman 1994-04-21 18:45:15 +00:00
parent 074521be7e
commit 5afe3a2b9c
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/gud.el
View file

@ -934,7 +934,8 @@ comint mode, which see."
(defun gud-filter (proc string)
;; Here's where the actual buffer insertion is done
(let ((inhibit-quit t))
(let ((inhibit-quit t)
output)
(save-excursion
(set-buffer (process-buffer proc))
;; If we have been so requested, delete the debugger prompt.
@ -942,9 +943,8 @@ comint mode, which see."
(progn
(delete-region (process-mark proc) gud-delete-prompt-marker)
(set-marker gud-delete-prompt-marker nil)))
;; Let the comint filter do the actual insertion.
;; That lets us inherit various comint features.
(comint-output-filter proc (gud-marker-filter string))
;; 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
@ -952,7 +952,10 @@ comint mode, which see."
(if (and gud-last-frame
(>= (point) (process-mark proc))
(get-buffer-window (current-buffer)))
(gud-display-frame)))))
(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)))