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)