
(defconst moccur-source-prefix "@loc> " "\
Prefix for lines indicating source of matches.")

(defun moccur (regexp &optional file-regexp no-fold-search) "\
Show all lines of all buffers containing a match for REGEXP.
With optional FILE-REGEXP, a pattern matching to files in a single
directory, search matching files rather than current buffers.
The lines are shown in a buffer named *Moccur* which serves as a menu to
find any of the occurrences in this buffer.
\\[describe-mode] in that buffer explains how." (interactive "sRegexp to find occurrences of: 
sFiles to search (default current file buffers): ") (byte-code "ТУ\"…
 Б‰€ѓ! ФХЦ!† Ч!ШЩ!#‚# Ъ ЫЬ!ЭЖq€Б‰€Ю €Я €абв#€БББ
	
…
@		;…Z 	

…f г
!?
A‰€
ѓ| д
!‰	‚ѓ е	!‰
€
?†Ќ 	?ѓ” Б‚	q€?Љeb€Ж‰€жБЖ#…щ з\\‰€иe`\"йк\"q€…У а
л#€Б‰€c€	q€мн!€о €`п €р`#)€сз!*€‚Ґ ))€Љq€?…тc€…у	!)€‚J +€ЭVѓIq€ф €хц!…8зb€чшБЖ#…8цз!€eb€щ!€ъы\"€Ж‚Nъь!€Б,‡" [file-regexp nil buffers occbuf matches firstmatch t buffer-read-only regexp currbuf currfile kill-buf case-fold-search no-fold-search linenum tag moccur-source-prefix beg equal "" directory-files expand-file-name file-name-directory "." full file-name-nondirectory buffer-list get-buffer-create "*Moccur*" 0 widen erase-buffer insert "Lines matching '" "':

" get-file-buffer find-file-noselect buffer-file-name re-search-forward 1 count-lines format "
%4d:" "
" forward-word -1 beginning-of-line end-of-line append-to-buffer forward-line "

" kill-buffer moccur-mode fboundp outline-minor-mode search-forward "" pop-to-buffer message "%d matches." "No matches."] 31))

(defun moccur-to nil "\
Go to the line where this occurrence was found." (interactive) (byte-code "И=?ѓ ЙК!‚Ђ ЖЖЖЖЉЛ €`‰€М €Н	`\"‰€ОП
\"ѓe Р
СТС!O!‰€УФХQЖЗ#ѓ_ НЦЧ!ТЧ!\"Ш
!‰€?…\\ ЩЪ
\"‚b ЙЫ!‚h ЙЬ!)€…o … ЩЭ
#€Ю!€Я!,‡" [major-mode beg line lineno dstbuf moccur-source-prefix nil t moccur-mode error "'moccur-to' must be called within a moccur buffer." beginning-of-line end-of-line buffer-substring string-match "^[ ]*[0-9]+:" string-to-int 0 match-end re-search-backward "^" "\"?\\([^\" 
]+\\)\"?" match-beginning 1 find-file-noselect message "moccur-to: file '%s' is not readable" "No moccur header line for file." "Not an moccur occurrence line." "Selection <%s> line %d." pop-to-buffer goto-line] 19))

(fset (quote moccur-mode-goto-occurrence) (quote moccur-to))

(defun moccur-mode nil "\
Major mode for output from \\[moccur].
Move point to one of the occurrences in this buffer,
then use \\[moccur-to] to go to the same occurrence
in the buffer that the occurrenc was found in.
\\{occur-mode-map}" (byte-code "Г €Д!€Е‰€Ж‰‡" [moccur-mode-map major-mode mode-name kill-all-local-variables use-local-map moccur-mode "Moccur"] 4))

(defvar moccur-mode-map nil)

(byte-code "ѓ Б‚ В ‰€ГДЕ#€ГЖЕ#€ГЗЕ#€ИЙ!‡" [moccur-mode-map nil make-sparse-keymap define-key "" moccur-to " " "" provide hmoccur] 7)