Function: net-utils-remove-ctrl-m-filter

net-utils-remove-ctrl-m-filter is a byte-compiled function defined in net-utils.el.gz.

Signature

(net-utils-remove-ctrl-m-filter PROCESS OUTPUT-STRING)

Documentation

Remove trailing control Ms.

Source Code

;; Defined in /usr/src/emacs/lisp/net/net-utils.el.gz
(defun net-utils-remove-ctrl-m-filter (process output-string)
  "Remove trailing control Ms."
  (with-current-buffer (process-buffer process)
    (save-excursion
      (let ((inhibit-read-only t)
            (filtered-string output-string))
        (while (string-match "\r" filtered-string)
          (setq filtered-string
                (replace-match "" nil nil filtered-string)))
        ;; Insert the text, moving the process-marker.
        (goto-char (process-mark process))
        (insert filtered-string)
        (set-marker (process-mark process) (point))))))