procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(shell-filter-ctrl-a-ctrl-b): Check if `comint-last-output-start' is

Browse source 
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:
Juri Linkov 2006-09-02 23:30:21 +00:00
parent 607acb9407
commit cc6e650ef5
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/shell.el
View file

@ -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 "")))))