2536 |
(let ((inhibit-read-only t)) |
(let ((inhibit-read-only t)) |
2537 |
(delete-region (process-mark proc) |
(delete-region (process-mark proc) |
2538 |
gud-delete-prompt-marker) |
gud-delete-prompt-marker) |
2539 |
|
(comint-update-fence) |
2540 |
(set-marker gud-delete-prompt-marker nil))) |
(set-marker gud-delete-prompt-marker nil))) |
2541 |
;; Save the process output, checking for source file markers. |
;; Save the process output, checking for source file markers. |
2542 |
(setq output (gud-marker-filter string)) |
(setq output (gud-marker-filter string)) |