replace-regionなども修正

同じようにreplace-regionも修正

コード

(defmacro replace-region-maker (name &optional op)
  `(defun ,name (beg end from to) (interactive "r\nstarget:\nswith:" :default1 replace-region-last-from :default2 replace-region-last-to)
     (setf replace-region-last-to to)
     (setf replace-region-last-from from)
     (when (> beg end)  (rotatef beg end))
     (save-excursion
       (goto-char beg)
       (save-restriction
	 (narrow-to-region beg end)
	 (replace-buffer from to ,@op)))))
;;replace-string-region
(replace-region-maker replace-string-region (:case-fold t :literal t))

;;replace-regexp-region
(replace-region-maker replace-regexp-region (:regexp t))

(global-set-key #\M-r 'replace-string-region)
(global-set-key #\M-e 'replace-regexp-region)