diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-10-03 01:10:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-10-03 01:10:57 +0000 |
| commit | d87146724c2444bfd9c2e7fdfb8c949e89e3c517 (patch) | |
| tree | dea305541cc7962bf17c8db68e3eaca761960381 /lisp/shell.el | |
| parent | 113d90153155c1aa917cfcabc1523b4c93082353 (diff) | |
| download | emacs-d87146724c2444bfd9c2e7fdfb8c949e89e3c517.tar.gz | |
(shell-strip-ctrl-m): Function moved to comint.el and renamed.
Diffstat (limited to 'lisp/shell.el')
| -rw-r--r-- | lisp/shell.el | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index 6571c0d4d58..becd26f65b0 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -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 @@ Returns t if successful." (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 |