- 255 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/11/06(金) 20:24:04 ]
- >>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))
