(shell-strip-ctrl-m): Strip multiple ^Ms.

bb55b64d · Richard M. Stallman · a07e7c4a · bb55b64d
Commit bb55b64d authored May 22, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 3 deletions

lisp/shell.el lisp/shell.el +2 -3

No files found.
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -810,12 +810,11 @@ Returns t if successful."
 This function could be in the list `comint-output-filter-functions' or bound to
 a key."
  (interactive)
-  (let ((pmark (process-mark (get-buffer-process (current-buffer))))
-	(ctrl-m (concat (char-to-string 13) "$")))
+  (let ((pmark (process-mark (get-buffer-process (current-buffer)))))
    (save-excursion
      (goto-char
       (if (interactive-p) comint-last-input-end comint-last-output-start))
-      (while (re-search-forward ctrl-m pmark t)
+      (while (re-search-forward "\r+$" pmark t)
 	(replace-match "" t t)))))

 (provide 'shell)