Re: replace-regexp

[Emanuel Berg via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org>]

> Again, I don't think the user, not even the Lisp user,
> should do this thing. I'll see if I can show you what
> I mean, later.

Here, what is wrong with this?

(defun replace-regexp-1 (regexp to-string &optional beg end)
  (interactive
   `(,(read-from-minibuffer "regexp: ")
     ,(read-from-minibuffer "to string: ")
     ,@(if (use-region-p)
           (list (region-beginning) (region-end))
         (list (point-min) (point-max))) ))
  (let ((beg-set (or beg (point-min)))
        (end-set (or end (point-max))) )
    (save-excursion
      (goto-char end-set)
      (while (re-search-backward regexp beg-set t)
        (replace-match to-string) ))))

Works interactively and non-interactively using the same good
function... or?

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