Mercurial > emacs

changeset 7610:d3ad01575684

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(shell-strip-ctrl-m): Strip multiple ^Ms.
author Richard M. Stallman <rms@gnu.org>
date Sun, 22 May 1994 00:51:36 +0000
parents 79f2be712106
children f93e2ddcf8c2
files lisp/shell.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/shell.el	Sun May 22 00:04:09 1994 +0000
+++ b/lisp/shell.el	Sun May 22 00:51:36 1994 +0000
@@ -810,12 +810,11 @@
 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)