gistfile1.el

;; egg-grep.el へ grep-edit.elを組み込む

;; grep-edit.elの設定
(add-hook 'egg-grep-setup-hook
          (lambda ()
            (define-key egg-grep-mode-map "\M-r" 'grep-narrow-down)
            (define-key egg-grep-mode-map " "
              'self-insert-command)
            (define-key egg-grep-mode-map [backspace]
              'backward-delete-char-untabify)
            (define-key egg-grep-mode-map "\C-c\C-r"
              'grep-edit-remove-change)
            (define-key egg-grep-mode-map "\C-c\C-e"
              'grep-edit-finish-edit)
            (define-key egg-grep-mode-map "\C-c\C-u"
              'grep-edit-remove-all-change)
            (define-key grep-mode-map '[up] nil)
            (define-key grep-mode-map "\C-c\C-c" 'grep-edit-finish-edit)
            (message (substitute-command-keys "\\[grep-edit-finish-edit] to apply changes."))
            (set (make-local-variable 'inhibit-read-only) t)

            (add-hook 'after-change-functions 'grep-mode-change-face nil t)
            ;;(remove-hook 'after-change-functions 'grep-mode-change-face)
            (setq grep-edit-change-face-flg nil)))