Mercurial > emacs
changeset 7009:9fb9491fb9a4
(gud-filter): Call comint-output-filter at the end.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 21 Apr 1994 18:45:15 +0000 |
| parents | fd080d04dfe2 |
| children | 34c91bb33ed0 |
| files | lisp/gud.el |
| diffstat | 1 files changed, 8 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gud.el Thu Apr 21 18:40:14 1994 +0000 +++ b/lisp/gud.el Thu Apr 21 18:45:15 1994 +0000 @@ -934,7 +934,8 @@ (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 @@ (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 @@ (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)))