Replace all occurrences of regexp in file, preserving location of point

global replace regexp

(defun global-replace-regexp (regexp to-string &optional delimited start end)
  ""
  (interactive
   (let ((common
	  (query-replace-read-args
	   (concat "Replace"
		   (if current-prefix-arg " word" "")
		   " regexp"
		   (if (and transient-mark-mode mark-active) " in region" ""))
	   t)))
     (list (nth 0 common) (nth 1 common) (nth 2 common)
           (point-min) (point-max))))
  (save-excursion
    (perform-replace regexp to-string nil t delimited nil nil start end)))