Re: delete all whitespace (space) in a region

[Emanuel Berg]

tpeplt wrote:

> Emacs 28 added the function ‘replace-string-in-region’.
>
> (defun my-delete-all-whitespace-region (beg end)
>   (interactive "r")
>   (save-excursion
>     (replace-string-in-region " " "" beg end)))

(defun delete-all-whitespace (&optional beg end)
  (interactive
    (when (use-region-p)
      (list (region-beginning) (region-end)) ))
  (or beg (setq beg (point-min)))
  (or end (setq end (point-max)))
  (save-mark-and-excursion
    (replace-string-in-region " " "" beg end) ))

A pretty fancy interface to a one-liner function with
hardcoded data :)

-- 
underground experts united
https://dataswamp.org/~incal