Commit 71a895c6 authored by Karl Heuer's avatar Karl Heuer
Browse files

(comint-strip-ctrl-m): Don't die if

comint-last-output-start does not point anywhere.
parent f0ed3f3e
......@@ -1386,8 +1386,10 @@ This function could be on `comint-output-filter-functions' or bound to a key."
(interactive)
(let ((pmark (process-mark (get-buffer-process (current-buffer)))))
(save-excursion
(goto-char
(if (interactive-p) comint-last-input-end comint-last-output-start))
(condition-case nil
(goto-char
(if (interactive-p) comint-last-input-end comint-last-output-start))
(error nil))
(while (re-search-forward "\r+$" pmark t)
(replace-match "" t t)))))
(defalias 'shell-strip-ctrl-m 'comint-strip-ctrl-m)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment