mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-30 19:53:09 +00:00
(shell-filter-ctrl-a-ctrl-b): Check if `comint-last-output-start' is
a marker by using `markerp' and check if it has a position by using `marker-position', and use this position for `goto-char'.
This commit is contained in:
parent
607acb9407
commit
cc6e650ef5
@ -483,7 +483,9 @@ This function can be put on `comint-output-filter-functions'.
|
||||
The argument STRING is ignored."
|
||||
(let ((pmark (process-mark (get-buffer-process (current-buffer)))))
|
||||
(save-excursion
|
||||
(goto-char (or comint-last-output-start (point-min)))
|
||||
(goto-char (or (and (markerp comint-last-output-start)
|
||||
(marker-position comint-last-output-start))
|
||||
(point-min)))
|
||||
(while (re-search-forward "[\C-a\C-b]" pmark t)
|
||||
(replace-match "")))))
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user