置換時にインクリメンタルサーチからはじめ、そのまま置換する

ireplace-query-replace-interactive.el

;;--------------------------------------------------------------------------
;; 置換時にインクリメンタルサーチからはじめ、そのまま置換する
;;
;; EmacsWiki: Incremental Search And Replace
;; http://www.emacswiki.org/emacs/IncrementalSearchAndReplace
;;-------------------------------------------------------------------------
(defvar ireplace-isearch-mode-map
  (let ((map (make-sparse-keymap)))
    ;; Maintain any customizations to isearch-mode-map.
    (set-keymap-parent map isearch-mode-map)
    (define-key map "\r" 'isearch-query-replace)
    map)
  "Keymap for `ireplace-mode'.")

(defun ireplace-query-replace-interactive ()
  "Query replace using Isearch.

  \\{ireplace-isearch-mode-map}"
  (interactive)
  (let ((isearch-mode-map ireplace-isearch-mode-map))
    (call-interactively 'isearch-forward)))

(defun ireplace-query-replace-regexp-interactive ()
  "Query replace using Isearch.

  \\{ireplace-isearch-mode-map}"
  (interactive)
  (let ((isearch-mode-map ireplace-isearch-mode-map))
    ;; TODO: Change Isearch's mini-buffer string to "Query replace".
    (call-interactively 'isearch-forward-regexp)))

(global-set-key "\C-q" 'ireplace-query-replace-interactive)
(global-set-key "\M-q" 'ireplace-query-replace-regexp-interactive)