>>254
こんな感じかな？テストしていないので動くかどうかは知らない。

(defun replace-regexp-3times (&optional delimited)
(narrow-to-region start end)
(save-excursion
(let ((i 0))
(while (< i 3)
(let ((regexp (read-string "regexp: "))
(to-string (reaad-string "to-string: ")))
(replace-regexp regexp, to-string))
(goto-char (point-min))
(setq i (1+ i)))))
(widen))