07/04/04 22:25:12 KjFn8NtG0
間違えた。こうかな？
(in-package "editor")
(defun replace-regexp (regexp replacement &optional noerror)
(interactive "*sReplace regexp: \nswith: "
:default0 *last-search-regexp* :history0 'search
:default1 *last-replace-regexp* :history1 'search)
(perform-replace (decode-escape-sequence regexp t) replacement nil t (interactive-p) noerror))
(in-package "user")