Mercurial > emacs
changeset 6361:405402ff82cb
(gud-filter): Update comint-last-input-end.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 15 Mar 1994 04:17:18 +0000 |
| parents | 4cab647064a8 |
| children | a9363ff2d3c7 |
| files | lisp/gud.el |
| diffstat | 1 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gud.el Tue Mar 15 03:59:11 1994 +0000 +++ b/lisp/gud.el Tue Mar 15 04:17:18 1994 +0000 @@ -841,6 +841,9 @@ ;; into the buffer. The hard work is done by the method that is ;; the value of gud-marker-filter. +;; Rather than duplicating all the work of comint-output-filter, perhaps +;; gud-filter should be implemented by adding appropriate hooks to +;; comint-output-filter. Would somebody like to volunteer to do that? (defun gud-filter (proc string) ;; Here's where the actual buffer insertion is done (let ((inhibit-quit t)) @@ -854,7 +857,13 @@ (progn (delete-region (point) gud-delete-prompt-marker) (set-marker gud-delete-prompt-marker nil))) - (insert-before-markers (gud-marker-filter string)) + (setq string (gud-marker-filter string)) + (insert-before-markers string) + (and comint-last-input-end + (marker-buffer comint-last-input-end) + (= (point) comint-last-input-end) + (set-marker comint-last-input-end + (- comint-last-input-end (length string)))) (setq moving (= (point) (process-mark proc))) (setq output-after-point (< (point) (process-mark proc))) ;; Check for a filename-and-line number.