-
Notifications
You must be signed in to change notification settings - Fork 0
/
grep-buffers.elc
executable file
·30 lines (26 loc) · 3.21 KB
/
grep-buffers.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
;ELC
;;; Compiled by Administrator@ALTU on Mon May 19 20:17:07 2008
;;; from file c:/emacs/grep-buffers.el
;;; in Emacs version 23.0.0.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19.29")))
(error "`grep-buffers.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@27 grep-buffers buffer name.
(defvar grep-buffers-buffer-name "*grep-buffers*" (#$ . 572))
#@34 Regexp history for grep-buffers.
(defvar grep-buffers-regexp-history nil (#$ . 666))
#@22 Current match index.
(defvar grep-buffers-match-index -1 (#$ . 757))
#@57 Grep buffers that have file names associated with them.
(defalias 'grep-buffers #[nil "\306\307 \310\"\311\312!\313\314\315\"\316\317$\320\317\"\210\321\n!\210\212\nq\210\322 \210\323\n!\210\314\324\"c\210\325\326 \"\210\nq\210db\210\327c\210\330W\203N \331 \210\332\304!\210\333\202^ \334 \210\333\316\211\"\210\335\316!\336\"eb\210\337\316!\210\316#\340 +\207" [regexp buffers grep-buffers-buffer-name emacs-major-version compilation-parse-errors-function grep-buffers-match-index sort buffer-list #[(elt1 elt2) "\302!\227\302 !\227\231\207" [elt1 elt2 buffer-name] 3] thing-at-point symbol read-string format "grep buffers for [%s]: " nil grep-buffers-regexp-history add-to-list get-buffer-create erase-buffer display-buffer "grep buffers for '%s' ...\n\n" mapcar #[(x) "\306!\205: q\210\212\307 \310\216eb\210\311\n\312\313#\2059 \314\315`\"\316 \317 {\212q\210\320\321\f$c\210+\317 b\210\202 +\207" [x save-match-data-internal regexp substr line grep-buffers-buffer-name buffer-file-name match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward nil t count-lines 1 point-at-bol point-at-eol format "%s:%d:%s\n"] 5] "\ngrep finished\n" 22 compilation-mode make-local-variable grep-buffers-parse-matches grep-mode -1 grep-buffers-next-match set-buffer-modified-p force-mode-line-update overlay-arrow-position next-error-function buffer-read-only] 5 (#$ . 832) nil])
#@100 Parse the grep buffer for matches.
See variable `compilation-parse-errors-function' for interface.
(defalias 'grep-buffers-parse-matches #[(limit-search find-at-least) "\212q\210eb\210\304\305\306\304\307#\2059 \310\311!\312\310\313!! \212\314 \210\315 )\212q\210\316\n!\210\314 \210\315 )BC\244*\202 )\207" [grep-buffers-buffer-name compilation-error-list line-of-match buffer-of-match nil re-search-forward "^\\(.+?\\):\\([0-9]+?\\):\\(.+?\\)$" t match-string 1 string-to-number 2 beginning-of-line point-marker goto-line] 4 (#$ . 2289)])
(defalias 'grep-buffers-next-match #[(&optional arg reset) "\306 \203 \307\2022 \307U\203 \310\311 e\"\312Z\202 \n\\\n\307W\203( \307\n\fGV\2032 \fG\f\n\234\313\314@!!\210\315@!b\210\316 \313\314A!!\210\315A!b)\207" [match-info reset grep-buffers-match-index arg compilation-error-list overlay-arrow-position nil 0 count-lines point-at-bol 2 pop-to-buffer marker-buffer marker-position point-marker] 3])
(provide 'grep-buffers)