flash:moccur-edit

(setq moccur-use-ee t)
(setq moccur-split-word t)
(setq *moccur-buffer-name-exclusion-list*
      '(".+TAGS.+" "*Completions*" "*Messages*"))
(setq dmoccur-use-list t)
(setq dmoccur-list
      '(
        ("dir" default-directory ("\\.el$") dir)
        ))

(load "color-moccur")

(define-key dired-mode-map "O" 'dired-do-moccur)
(define-key Buffer-menu-mode-map "O" 'Buffer-menu-moccur)0

(load "moccur-edit")