# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 781146657 0
# Node ID 853d760cba83f849223f9d98f657148a4b7aa252
# Parent  c35d0ed03819f893e3256b738d38956014997b32
(shell-strip-ctrl-m): Function moved to comint.el and renamed.

diff -r c35d0ed03819 -r 853d760cba83 lisp/shell.el
--- a/lisp/shell.el	Mon Oct 03 00:25:59 1994 +0000
+++ b/lisp/shell.el	Mon Oct 03 01:10:57 1994 +0000
@@ -94,7 +94,6 @@
 ;;; m-c-b   shell-backward-command          Backward a shell command
 ;;; 	    dirs    			    Resync the buffer's dir stack
 ;;; 	    dirtrack-toggle                 Turn dir tracking on/off
-;;; 	    shell-strip-ctrl-m              Remove trailing ^Ms from output
 ;;;
 ;;; The shell mode hook is shell-mode-hook
 ;;; comint-prompt-regexp is initialised to shell-prompt-pattern, for backwards
@@ -809,19 +808,6 @@
 		 (message "Directory item: %d" index)
 		 t))))))
 
-(defun shell-strip-ctrl-m (&optional string)
-  "Strip trailing `^M' characters from the current output group.
-
-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)))))
-    (save-excursion
-      (goto-char
-       (if (interactive-p) comint-last-input-end comint-last-output-start))
-      (while (re-search-forward "\r+$" pmark t)
-	(replace-match "" t t)))))
-
 (provide 'shell)
 
 ;;; shell.el ends here