Re: Any way to remove ^L or ^M from some buffer outputs?

[Emanuel Berg]

Patrick Mahan wrote:

> (defun cut-ctrlM ()
>   "Cut all visible ^M."
>   (interactive)
>   (beginning-of-buffer)
>   (while (search-forward "\r" nil t)
>     (replace-match "" nil t))
>   (not-modified)
>   (beginning-of-buffer))

Well, yeah, if we want to replace (not hide), only,
as always, the byte compiler is your friend!

  In cut-ctrlM:
  [...]Warning: ‘beginning-of-buffer’ is for interactive use only; use
      ‘(goto-char (point-min))’ instead.
  [...]Warning: ‘not-modified’ is for interactive use only; use
      ‘set-buffer-modified-p’ instead.
  [...]Warning: ‘beginning-of-buffer’ is for interactive use only; use
      ‘(goto-char (point-min))’ instead.

And... maybe wrap it in `save-excursion' as well?

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal