;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'compile) #@52 Find the start position of the compilation output. (defalias 'winnow-results-start #[0 "\212eb\210\300\301!\210\302\301!)\207" [compilation-next-error 1 point-at-bol] 2 (#$ . 106)]) #@50 Find the end position of the compilation output. (defalias 'winnow-results-end #[0 "\212db\210\300\301!\210\302\303!)\207" [compilation-next-error -1 point-at-bol 2] 2 (#$ . 294)]) #@263 Exclude the REGEXP matching lines from the compilation results. Ignores read-only-buffer to exclude lines from a result. See `flush-lines' for additional details about arguments REGEXP, RSTART, REND, INTERACTIVE. (fn REGEXP &optional RSTART REND INTERACTIVE) (defalias 'winnow-exclude-lines #[1025 "\301\206\302 \206 \303 \304$\210eb)\207" [inhibit-read-only t winnow-results-start winnow-results-end flush-lines] 12 (#$ . 482) (keep-lines-read-args "Flush lines containing match for regexp")]) #@268 Limit the compilation results to the lines matching REGEXP. Ignores read-only-buffer to focus on matching lines from a result. See `keep-lines' for additional details about arguments REGEXP, RSTART, REND, INTERACTIVE. (fn REGEXP &optional RSTART REND INTERACTIVE) (defalias 'winnow-match-lines #[1025 "\301\206\302 \206 \303 \304$\210eb)\207" [inhibit-read-only t winnow-results-start winnow-results-end keep-lines] 12 (#$ . 1000) (keep-lines-read-args "Keep lines containing match for regexp")]) #@91 Non-nil if Winnow mode is enabled. Use the command `winnow-mode' to change this variable. (defvar winnow-mode nil (#$ . 1519)) (make-variable-buffer-local 'winnow-mode) #@700 Filter compilation results by matching/excluding lines. This is a minor mode. If called interactively, toggle the `Winnow mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `winnow-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. This is invaluable for excluding or limiting to matching `ag-mode' results. \{winnow-mode-map} (fn &optional ARG) (defalias 'winnow-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312\203;\313\202<\314\"\210\315\316!\203^\302 \203P\211\302 \232\203^\317\320\203Z\321\202[\322\323#\210\210\324 \210\207" [winnow-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks winnow-mode-hook winnow-mode-on-hook winnow-mode-off-hook called-interactively-p any message "Winnow mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 1695) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar winnow-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\302\300\304\305#\210\302\300\306\307C#\207" [winnow-mode-hook variable-documentation put "Hook run after entering or leaving `winnow-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil] 4) #@27 Keymap for `winnow-mode'. (defvar winnow-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\211\262\306!\203\207\211<\203!\307!\207\310\311\"\207" [make-sparse-keymap define-key "x" winnow-exclude-lines "m" winnow-match-lines keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 5) (#$ . 3428)) (byte-code "\301\302\303\303\211%\210\304\305!\207" [winnow-mode-map add-minor-mode winnow-mode nil provide winnow] 6)