07/04/04 22:45:41 KjFn8NtG0
>>471
じゃあこうかな？
(in-package "editor")
(defun replace-regexp (regexp replacement &optional arg noerror)
(interactive "*sReplace regexp: \nswith: \np"
:default0 *last-search-regexp* :history0 'search
:default1 *last-replace-regexp* :history1 'search)
(when arg
(setq regexp (decode-escape-sequence regexp t)))
(perform-replace regexp replacement nil t (interactive-p) noerror))
(in-package "user")