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

comint-last-output-start does not point anywhere.

(comint-strip-ctrl-m): Don't die if
comint-last-output-start does not point anywhere.
71a895c6 · Karl Heuer · f0ed3f3e · 71a895c6
Commit 71a895c6 authored Dec 11, 1997 by Karl Heuer
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

lisp/comint.el lisp/comint.el +4 -2

No files found.
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -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)