Re: not-replace-regexp.el

[Ehud Karni]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On Sat, 07 Aug 2004 13:22:46 -0500, Joe Corneli <address@hidden> wrote:
>
> ;; I'm not sure why there isn't a standard short-hand for the idiom
> ;;
> ;;   (while (re-search-forward regexp nil t)
> ;;    (replace-match to-string nil nil))
> ;;
> ;; However, it is not clear whether there is any benefit to a shorter
> ;; version it unless it really was adopted as a new standard, since
> ;; the above is so ubiquitous at this point in time, and any new
> ;; short-hand would likely to confuse most people.

I wrote some time ago (1995) the following 2 simple functions that
I use as short-hand for the above.

(defun replace-regexp-whole-buffer (REGEXP TO-STRING)
"Replace REGEXP in the whole buffer with TO-STRING (exactly as is).
Saves cursor position. Can be undone by UNDO only !"
       (let ((pos (point-marker)))
           (goto-char (point-min))
           (while (re-search-forward REGEXP nil t)
               (replace-match TO-STRING t t))
           (goto-char pos)))

(defun replace-string-whole-buffer (STRING TO-STRING)
"Replace STRING in the whole buffer with TO-STRING (exactly as is).
Saves cursor position. Can be undone by UNDO only !"
       (let ((pos (point-marker)))
           (goto-char (point-min))
           (while (search-forward STRING nil t)
               (replace-match TO-STRING t t))
           (goto-char pos)))

Ehud.


- --
 Ehud Karni           Tel: +972-3-7966-561  /"\
 Mivtach - Simon      Fax: +972-3-7966-667  \ /  ASCII Ribbon Campaign
 Insurance agencies   (USA) voice mail and   X   Against   HTML   Mail
 http://www.mvs.co.il  FAX:  1-815-5509341  / \
 GnuPG: 98EA398D <http://www.keyserver.net/>    Better Safe Than Sorry
-----BEGIN PGP SIGNATURE-----
Comment: use http://www.keyserver.net/ to get my key (and others)

iD8DBQFBFkaMLFvTvpjqOY0RAjLeAJ9msGz1PFSpUTWwX4YAGI7l7Y8aCwCfUhaQ
EJK/LXVtZyzIAdW+45V8EOU=
=/vwy
-----END PGP SIGNATURE-----