Mercurial > emacs
changeset 9244:853d760cba83
(shell-strip-ctrl-m): Function moved to comint.el and renamed.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 03 Oct 1994 01:10:57 +0000 |
| parents | c35d0ed03819 |
| children | b2440a22efc2 |
| files | lisp/shell.el |
| diffstat | 1 files changed, 0 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- 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