mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 21067e7cbe6d7a0f65ff5c317a96b5c337b0b3d8
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
 
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
 
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\302%\210\312\313\314\315\316DD\317\311\306\320\321&\210\312\322\314\315\323DD\324\311\306\320\321&\210\312\325\314\315\326DD\327\311\306\320\330&\210\312\331\314\315\332DD\333\311\306\320\334&\210\312\335\314\315\336DD\337\311\306\320\321&\210\312\340\314\315\341DD\342\311\306\320\343&\210\312\344\314\315\345DD\346\311\306\320\347&\210\312\350\314\315\351DD\352\311\306\320\321&\210\353\354\355\356\311\306%\210\353\357\360\361\311\306%\207" [require cl-lib helm helm-help helm-utils custom-declare-group helm-regexp nil "Regexp related Applications and libraries for Helm." :group custom-declare-variable helm-moccur-always-search-in-current funcall function #[0 "\300\207" [nil] 1] "Helm multi occur always search in current buffer when non--nil." :type boolean helm-moccur-use-ioccur-style-keys #[0 "\300\207" [t] 1] "Similar to `helm-grep-use-ioccur-style-keys' but for multi occur." helm-moccur-auto-update-on-resume #[0 "\300\207" [nil] 1] "Allow auto updating helm-(m)occur buffer when outdated.\nnoask => Always update without asking\nnil   => Don't update but signal buffer needs update\nnever => Never update and do not signal buffer needs update\nAny other non--nil value update after confirmation." (radio :tag "Allow auto updating helm-(m)occur buffer when outdated." (const :tag "Always update without asking" noask) (const :tag "Never update and do not signal buffer needs update" never) (const :tag "Don't update but signal buffer needs update" nil) (const :tag "Update after confirmation" t)) helm-source-multi-occur-actions #[0 "\300\207" [(("Go to Line" . helm-moccur-goto-line) ("Goto line other window (C-u vertically)" . helm-moccur-goto-line-ow) ("Goto line new frame" . helm-moccur-goto-line-of) ("Save buffer" . helm-moccur-save-results))] 1] "Actions for helm-occur and helm-moccur." (alist :key-type string :value-type function) helm-moccur-truncate-lines #[0 "\300\207" [t] 1] "When nil the (m)occur line that appears will not be truncated." helm-moccur-show-buffer-fontification #[0 "\300\207" [nil] 1] "Show fontification of searched buffer in results when non nil.\n\nThis enable or disable fontification globally in results, but you can\noverride this default setting with `helm-moccur-buffer-substring-fn-for-modes'." (radio :tag "Allow preserving fontification of searched buffer in results" (const :tag "Don't preserve buffer fontification" nil) (const :tag "Preserve buffer fontification" t)) helm-moccur-buffer-substring-fn-for-modes #[0 "\300\207" [((mu4e-headers-mode . buffer-substring) (package-menu-mode . buffer-substring-no-properties))] 1] "Alist that allow configuring the function to use for storing a buffer.\n\nCan be one of `buffer-substring' or `buffer-substring-no-properties'.\nAllow overriding the global effect of `helm-moccur-show-buffer-fontification'\nfor a specific mode." (alist :key-type (symbol :tag "Mode") :value-type (radio (const :tag "With text properties" buffer-substring) (const :tag "Without text properties" buffer-substring-no-properties))) helm-occur-show-buffer-name #[0 "\300\207" [nil] 1] "Show buffer name in `helm-occur' results when non-nil.\n\nNot that this doesn't affect `helm-moccur' results and\n`helm-moccur-mode' buffers where buffer names are always shown." custom-declare-face helm-moccur-buffer ((t (:foreground "DarkTurquoise" :underline t))) "Face used to highlight moccur buffer names." helm-resume-need-update ((t (:background "red"))) "Face used to flash moccur buffer when it needs update."] 8)
#@31 Keymap used in Moccur source.
(defvar helm-moccur-map (byte-code "\302 \303\"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210    \2035\304\317\320#\210\304\321\322#\210\323\324\"\207" [helm-map helm-moccur-use-ioccur-style-keys make-sparse-keymap set-keymap-parent define-key [M-down] helm-goto-next-file [M-up] helm-goto-precedent-file "o" helm-moccur-run-goto-line-ow "" helm-moccur-run-goto-line-of "" helm-moccur-run-save-buffer [right] helm-execute-persistent-action [left] helm-moccur-run-default-action delq nil] 5) (#$ . 3994))
(defvar helm-build-regexp-history nil)
(defvar helm-occur-history nil)
#@199 Query replace regexp from `helm-regexp'.
With a prefix arg replace only matches surrounded by word boundaries,
i.e Don't replace inside a word, regexp is surrounded with \bregexp\b.
 
(fn CANDIDATE)
(defalias 'helm-query-replace-regexp #[257 "\301\302\303!\"\207" [helm-input apply query-replace-regexp helm-query-replace-args] 6 (#$ . 4662)])
#@62 Kill regexp in a format usable in lisp code.
 
(fn CANDIDATE)
(defalias 'helm-kill-regexp-as-sexp #[257 "\301\302!!\207" [helm-input helm-regexp-kill-new prin1-to-string] 4 (#$ . 5013)])
#@57 Kill regexp as it is in `helm-pattern'.
 
(fn CANDIDATE)
(defalias 'helm-kill-regexp #[257 "\301!\207" [helm-input helm-regexp-kill-new] 3 (#$ . 5206)])
#@82 create arguments of `query-replace-regexp' action in `helm-regexp'.
 
(fn REGEXP)
(defalias 'helm-query-replace-args #[257 "\301 \302\303\304\203\305\202\306\203\307\202\306#\310#\205$\311 \205*\312 \257\207" [helm-current-prefix-arg helm-region-active-p query-replace-read-to format "Query replace %sregexp %s" "word " "" "in region " t region-beginning region-end] 9 (#$ . 5365)])
(defvar helm-source-regexp (helm-make-source "Regexp Builder" 'helm-source-in-buffer :init #[0 "\301\302\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314!\210\315 *\262\"\207" [helm-current-buffer helm-init-candidates-in-buffer global generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-buffer-substring buffer-string] 9] :get-line 'helm-regexp-get-line :persistent-action 'helm-regexp-persistent-action :persistent-help "Show this line" :multiline t :multimatch nil :requires-pattern 2 :group 'helm-regexp :mode-line "Press TAB to select action." :action '(("Kill Regexp as sexp" . helm-kill-regexp-as-sexp) ("Query Replace Regexp (C-u Not inside word.)" . helm-query-replace-regexp) ("Kill Regexp" . helm-kill-regexp))))
#@12 
 
(fn S E)
(defalias 'helm-regexp-get-line #[514 "\300 {\301\302\303\304!S#\305G\306\245S\307X\203<\310!\211\2034\302\311\312\313\314\"\302\315    \"$P\262\210T\262\202P\266\204\316#\207" [match-data propertize format "%5d: %s" line-number-at-pos 0 2 "" match-string "\n%s%s'%s'" make-string 10 32 "Group %d: " helm-realvalue] 17 (#$ . 6584)])
#@11 
 
(fn PT)
(defalias 'helm-regexp-persistent-action #[257 "\300!\210\301 \207" [helm-goto-char helm-highlight-current-line] 3 (#$ . 6954)])
#@14 
 
(fn INPUT)
(defalias 'helm-regexp-kill-new #[257 "\300\301!!\210\302\303\"\207" [kill-new substring-no-properties message "Killed: %s"] 4 (#$ . 7100)])
(defvar helm-source-occur nil)
(defalias 'helm-occur-init-source #[0 "?\205 \301\302\303\"\211\207" [helm-source-occur helm-make-source "Occur" helm-source-multi-occur] 3])
(defvar helm-multi-occur-buffer-list nil)
(defvar helm-multi-occur-buffer-tick nil)
#@110 [INTERNAL] Hide buffer name in results when non-nil.
Should be a local var to helm-buffer to allow resuming.
(defvar helm-occur--invisible nil (#$ . 7523))
#@45 Create the initial helm multi occur buffer.
(defalias 'helm-moccur-init #[0 "\303\304\305\306!\203 \307\202\310\311\211\312:\203[@\262rq\210    \n\236\211\203*\211A\262\210\313ef\314\"\2037\312\2028\315ed\"P)\262\316\317G\320\211\321!!D$\210\211P\262A\262\202\266\205\"\207" [helm-moccur-show-buffer-fontification major-mode helm-moccur-buffer-substring-fn-for-modes helm-init-candidates-in-buffer global helm-attr moccur-buffers buffer-substring buffer-substring-no-properties nil "" memql (32 9 10) " " add-text-properties 0 buffer-name get-buffer] 15 (#$ . 7685)])
(defalias 'helm-moccur--next-or-previous-char #[0 "\212\300\301\302\303#\206\304\301\302\303#)\207" [re-search-forward "^." nil t re-search-backward] 4])
#@53 Format line for `helm-source-moccur'.
 
(fn BEG END)
(defalias 'helm-moccur-get-line #[514 "\300\301\302U\203\303 \202\304\"\214\305`\304\"\206\306\307!\310U\203*\303 \202+`\304\"\2061d}\210\311!)U\203A\312\202D{$U\203N\313u\210\207" [format "%s:%d:%s" get-text-property helm-moccur--next-or-previous-char buffer-name previous-single-property-change point-at-bol 2 next-single-property-change line-number-at-pos "" 1] 9 (#$ . 8438)])
#@151 Jump to CANDIDATE with METHOD.
arg METHOD can be one of buffer, buffer-other-window, buffer-other-frame.
 
(fn CANDIDATE &optional (METHOD \='buffer))
(defalias 'helm-moccur-action #[385 "\211\203 \211A\262\242\202\302\203\303\304\305\306G\\D\"\210\307\310!\210\311!\211@\312A@!\313!\314\267\202G\315!\210\202G\316C\317\"\210\202G\320!\210rq\210\321!\210\211\322\211:\203\214@\262\212\3231w    \203m\324\325 \317#\202s\326\325 \317#0\202z\322\262)\203\205\211\327\224C\244\262A\262\202R\211\203\226\330\331\"b\210\322\266\203)\266\204\207" [helm-input helm-migemo-mode buffer signal wrong-number-of-arguments helm-moccur-action 2 require helm-grep helm-grep-split-line string-to-number helm-mm-split-pattern #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (buffer 51 buffer-other-window 58 buffer-other-frame 67)) switch-to-buffer helm-window-show-buffers t switch-to-buffer-other-frame helm-goto-line nil (invalid-regexp) helm-mm-migemo-forward point-at-eol re-search-forward 0 apply min] 14 (#$ . 8904)])
#@18 
 
(fn CANDIDATE)
(defalias 'helm-moccur-persistent-action #[257 "\300!\210\301 \207" [helm-moccur-goto-line helm-highlight-current-line] 3 (#$ . 9990)])
#@84 From multi occur, switch to buffer and go to nth 1 CANDIDATE line.
 
(fn CANDIDATE)
(defalias 'helm-moccur-goto-line #[257 "\300\301\"\207" [helm-moccur-action buffer] 4 (#$ . 10150)])
#@111 Go to CANDIDATE line in other window.
Same as `helm-moccur-goto-line' but go in other window.
 
(fn CANDIDATE)
(defalias 'helm-moccur-goto-line-ow #[257 "\300\301\"\207" [helm-moccur-action buffer-other-window] 4 (#$ . 10342)])
#@105 Go to CANDIDATE line in new frame.
Same as `helm-moccur-goto-line' but go in new frame.
 
(fn CANDIDATE)
(defalias 'helm-moccur-goto-line-of #[257 "\300\301\"\207" [helm-moccur-action buffer-other-frame] 4 (#$ . 10577)])
#@62 Run goto line other window action from `helm-source-moccur'.
(defalias 'helm-moccur-run-goto-line-ow #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-moccur-goto-line-ow error "Running helm command outside of context"] 2 (#$ . 10804) nil])
(put 'helm-moccur-run-goto-line-ow 'helm-only t)
#@59 Run goto line new frame action from `helm-source-moccur'.
(defalias 'helm-moccur-run-goto-line-of #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-moccur-goto-line-of error "Running helm command outside of context"] 2 (#$ . 11138) nil])
(put 'helm-moccur-run-goto-line-of 'helm-only t)
(defalias 'helm-moccur-run-default-action #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-moccur-goto-line error "Running helm command outside of context"] 2 nil nil])
(put 'helm-moccur-run-default-action 'helm-only t)
#@58 Hook that runs before initialization of the helm buffer.
(defvar helm-moccur-before-init-hook nil (#$ . 11728))
#@57 Hook that runs after initialization of the helm buffer.
(defvar helm-moccur-after-init-hook nil (#$ . 11846))
(defvar helm-source-moccur nil)
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-source-multi-occur-p eieio-make-class-predicate helm-source-multi-occur helm-source-multi-occur--eieio-childp eieio-make-child-predicate helm-source-multi-occur-child-p make-obsolete "use (cl-typep ... \\='helm-source-multi-occur) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-in-buffer) ((init :initform (lambda nil (require 'helm-grep) (helm-moccur-init))) (filter-one-by-one :initform 'helm-moccur-filter-one-by-one) (get-line :initform helm-moccur-get-line) (nohighlight :initform t) (nomark :initform t) (migemo :initform t) (action :initform 'helm-source-multi-occur-actions) (persistent-action :initform 'helm-moccur-persistent-action) (persistent-help :initform "Go to line") (resume :initform 'helm-moccur-resume-fn) (candidate-number-limit :initform 9999) (help-message :initform 'helm-moccur-help-message) (keymap :initform helm-moccur-map) (history :initform 'helm-occur-history) (requires-pattern :initform 2) (before-init-hook :initform 'helm-moccur-before-init-hook) (after-init-hook :initform 'helm-moccur-after-init-hook) (group :initform 'helm-regexp)) nil] 6)
#@80 Create a new object of class type `helm-source-multi-occur'.
 
(fn &rest SLOTS)
(defalias 'helm-source-multi-occur #[128 "\300\301\302#\207" [apply make-instance helm-source-multi-occur] 5 (#$ . 13276)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-source-multi-occur compiler-macro helm-source-multi-occur--anon-cmacro] 4)
#@26 
 
(fn WHOLE &rest SLOTS)
(defalias 'helm-source-multi-occur--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 13619)])
(defalias 'helm-moccur-resume-fn #[0 "r\304 q\210\305C\305\306\300!\210\305\211:\203,@\262\307\310!!\203%B\262A\262\202\211\237\266\203\211G\311\312!GU?\262\313\312\"\210\305\211:\203]@\262\314\310!!B\262A\262\202D\211\237\266\203\240\210\211\203j\242G\315V\204x\316\317\320\305\211$\210\n\321=?\205\211\204\305\305\211    \305\322\305:\203\300@\262\314\310!!\262:\203\300@\262U?\211\262?\211\262\203\300A\262A\262\202\212\266\206\205\n\211\203\350\211\323=\204\326\324\325!\205 \326\327\305\330#\210?\205 \242\211\202 \326\331\305\332#\210?\205 \333\334\335\315\336\337\340    !\341\"\342$\"\210\334\343B B\344\343\334\"\262\266\202)\207" [helm-multi-occur-buffer-list helm-multi-occur-buffer-tick helm-moccur-auto-update-on-resume helm--temp-hooks helm-buffer-get nil make-local-variable buffer-live-p get-buffer helm-attr moccur-buffers helm-attrset buffer-chars-modified-tick 0 cl--assertion-failed (> (length helm-multi-occur-buffer-list) 0) "helm-resume error: helm-(m)occur buffer list is empty" never t noask y-or-n-p "Helm (m)occur Buffer outdated, update? " run-with-idle-timer 0.1 #[0 "r\300 q\210\301 \210\302\303!\210\304\305!\210\302\306!)\207" [helm-buffer-get helm-force-update message "Helm (m)occur Buffer have been udated" sit-for 1 nil] 2] 0.1 #[0 "r\300 q\210\301\212eb\210\302y\210`)d\"\303\304\305#\210\306\307!\210\310!\210\311\312!\262)\207" [helm-buffer-get make-overlay 1 overlay-put face helm-resume-need-update sit-for 0.3 delete-overlay message "[Helm occur Buffer outdated (C-c C-u to update)]"] 5] defalias #1=#:helm--hook65 make-byte-code "\302\216\300\242\303\304!)\207" vconcat vector [helm-multi-occur-buffer-tick #[0 "\300\301\302\"\210\303\302!\207" [remove-hook helm-after-update-hook #1# fmakunbound] 3] message "Helm (m)occur Buffer have been udated"] 2 helm-after-update-hook add-hook] 13])
#@95 `filter-one-by-one' function for `helm-source-moccur'.
 
(fn CANDIDATE &optional OUTSIDE-HELM)
(defalias 'helm-moccur-filter-one-by-one #[513 "\301\302!\210\303!\211@A@\3048\305\306?\205r\307 q\210)\310\311\312\313\314 !!\315 &    \305\316\306?\205=r\307 q\210)#\305\310\317#\316\320\321\"\260B\207" [helm-occur--invisible require helm-grep helm-grep-split-line 2 propertize invisible helm-buffer-get face helm-moccur-buffer help-echo buffer-file-name get-buffer buffer-name ":" helm-grep-lineno helm-grep-highlight-match t] 16 (#$ . 15770)])
#@93 Main function to call `helm-source-moccur' with BUFFERS list.
 
(fn BUFFERS &optional INPUT)
(defalias 'helm-multi-occur-1 #[513 "\203\305p!\306    \"B\202\n\204\307\310\311\"\312\313\n#\210\314\315\"\210\314\316\317\211:\203B@\262\320\321!!B\262A\262\202)\211\237\266\203\"\266\322\323\302\324\325\326\327\330!\211\205Y\331!\262\332\333\334 \335\f\336\f&\207" [helm-moccur-always-search-in-current helm-current-buffer helm-source-moccur helm-moccur-map helm-moccur-truncate-lines buffer-name remove helm-make-source "Moccur" helm-source-multi-occur helm-attrset moccur-buffers helm-set-local-variable helm-multi-occur-buffer-list helm-multi-occur-buffer-tick nil buffer-chars-modified-tick get-buffer helm :sources :buffer "*helm multi occur*" :default thing-at-point symbol regexp-quote :history helm-occur-history :keymap :input :truncate-lines] 17 (#$ . 16335)])
#@52 Run moccur save results action from `helm-moccur'.
(defalias 'helm-moccur-run-save-buffer #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-moccur-save-results error "Running helm command outside of context"] 2 (#$ . 17233) nil])
(put 'helm-moccur-run-save-buffer 'helm-only t)
(defvar helm-moccur-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\307#\210\301\317\311#\210\301\320\313#\210\301\321\315#\210\211\207" [make-sparse-keymap define-key " " helm-moccur-mode-goto-line "" helm-moccur-mode-goto-line-ow [C-down] helm-moccur-mode-goto-line-ow-forward [C-up] helm-moccur-mode-goto-line-ow-backward [M-down] helm-gm-next-file [M-up] helm-gm-precedent-file [134217838] [134217840] [134217806] [134217808]] 5))
(defalias 'helm-moccur-mode-goto-line #[0 "\300`\301\"\211\205\302!\210\303 \207" [get-text-property helm-realvalue helm-moccur-goto-line helm-match-line-cleanup-pulse] 3 nil nil])
(defalias 'helm-moccur-mode-goto-line-ow #[0 "\300`\301\"\211\205\302!\210\303 \207" [get-text-property helm-realvalue helm-moccur-goto-line-ow helm-match-line-cleanup-pulse] 3 nil nil])
#@12 
 
(fn ARG)
(defalias 'helm-moccur-mode-goto-line-ow-forward-1 #[257 "\3001\301 r\302\303\304\305\306!\307\"\310$\216\311 \210\312 \210*\210\211y0\207\210\313\207" [(error) internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 helm-moccur-mode-goto-line-ow recenter nil] 8 (#$ . 18464)])
(defalias 'helm-moccur-mode-goto-line-ow-forward #[0 "\300\301!\207" [helm-moccur-mode-goto-line-ow-forward-1 1] 2 nil nil])
(defalias 'helm-moccur-mode-goto-line-ow-backward #[0 "\300\301!\207" [helm-moccur-mode-goto-line-ow-forward-1 -1] 2 nil nil])
#@74 Save helm moccur results in a `helm-moccur-mode' buffer.
 
(fn CANDIDATE)
(defalias 'helm-moccur-save-results #[257 "\304\305\306!\203;\307\310\"\262\311 \305:\2036@\262\230\203/\312\313\314\"!\204/\307\310\315\"\262A\262\202\266\211\262r\316!q\210\317\211\320 \321 \210\322\313\323\n\"\261\210\212r q\210eb\210\324y\210`d{)c\210)\212m\204\233\325\326 \327 \330\331\332\306\333`\334\"!!\335P\336BBBB#\210\337\340\341#\210\337\342\343#\210\337\344\345#\210\324y\210\202f*\266\346 \210)\347!\210\350\351\"\207" [buffer-read-only inhibit-read-only helm-input helm-buffer "*hmoccur*" nil get-buffer helm-read-string "OccurBufferName: " helm-buffer-list y-or-n-p format "Buffer `%s' already exists overwrite? " "*hmoccur " get-buffer-create t make-sparse-keymap erase-buffer "-*- mode: helm-moccur -*-\n\n" "Moccur Results for `%s':\n\n" 1 add-text-properties point-at-bol point-at-eol keymap help-echo buffer-file-name get-text-property buffer-name "\nmouse-1: set point\nmouse-2: jump to selection" (mouse-face highlight invisible nil) define-key [mouse-1] mouse-set-point [mouse-2] helm-moccur-mode-mouse-goto-line [mouse-3] ignore helm-moccur-mode pop-to-buffer message "Helm Moccur Results saved in `%s' buffer"] 17 (#$ . 19085)])
#@14 
 
(fn EVENT)
(defalias 'helm-moccur-mode-mouse-goto-line #[257 "\301!\211@\262\302\301!!\303!r\304\305\306\307\310!\311\"\312$\216\313@\314\"\210\315=\205-b\210\316 *\262\207" [major-mode event-end posn-point internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord helm-moccur-mode helm-moccur-mode-goto-line] 10 (#$ . 20355) "e"])
(put 'helm-moccur-mode-mouse-goto-line 'helm-only t)
(defvar helm-moccur-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [helm-moccur-mode-hook variable-documentation put "Hook run after entering helm-moccur mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp helm-moccur-mode-map definition-name helm-moccur-mode] 4)
(defvar helm-moccur-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [helm-moccur-mode-abbrev-table helm-moccur-mode-map variable-documentation put purecopy "Keymap for `helm-moccur-mode'." boundp helm-moccur-mode-syntax-table definition-name helm-moccur-mode (lambda (#1=#:def-tmp-var) (defvar helm-moccur-mode-syntax-table #1#)) make-syntax-table "Syntax table for `helm-moccur-mode'." (lambda (#1#) (defvar helm-moccur-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `helm-moccur-mode'." derived-mode-parent special-mode] 5)
#@281 Major mode to provide actions in helm moccur saved buffer.
 
Special commands:
\{helm-moccur-mode-map}
 
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `helm-moccur-mode-hook', as the final or penultimate step
during initialization.
(defalias 'helm-moccur-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 \306\331!\210r\332 q\210)\306\333!\210\334)\335\336!\207" [delay-mode-hooks major-mode mode-name helm-moccur-mode-map helm-moccur-mode-syntax-table helm-moccur-mode-abbrev-table make-local-variable t special-mode helm-moccur-mode "helm-moccur" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table helm-multi-occur-buffer-list helm-buffer-get revert-buffer-function helm-moccur-mode--revert-buffer-function run-mode-hooks helm-moccur-mode-hook local-abbrev-table] 5 (#$ . 22067) nil])
(put 'helm-moccur-mode 'helm-only t)
#@40 
 
(fn &optional IGNORE-AUTO NOCONFIRM)
(defalias 'helm-moccur-mode--revert-buffer-function #[512 "eb\210\304\305\306\304\307#\205\317\310\311!\262\312y\210\305\313\304\307#\203\311y\210\307p    \203*\314\202+\315`d|\210\316\317!\210\212\320\321!r\211q\210\322\312\323\324\325!\326\"\327$\216\330\304\211\331:\203\220@\262\332\333!!\203lrq\210ed\")\206m\331\262\331\230\204\204\334\312G\335\211\333!!D$\210\211P\262A\262\202N\266\203\330\261\210eb\210\304\336!\203\304\337\340 \341 \"\262\211\203\234rq\210\342\343\307\"@\344#\330\261\210)\202\234)\210*\210)\316\345!)\266\204\207" [helm-multi-occur-buffer-list helm-moccur-show-buffer-fontification inhibit-read-only helm-pattern nil re-search-forward "^Moccur Results for `\\(.*\\)'" t match-string 1 0 "^$" buffer-substring buffer-substring-no-properties message "Reverting buffer..." generate-new-buffer " *temp*" make-byte-code "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n" "" buffer-live-p get-buffer add-text-properties buffer-name helm-mm-search helm-moccur-get-line point-at-bol point-at-eol propertize helm-moccur-filter-one-by-one helm-realvalue "Reverting buffer done"] 20 (#$ . 23302)])
#@105 Preconfigured helm to build regexps.
`query-replace-regexp' can be run from there against found regexp.
(defalias 'helm-regexp #[0 "\214\301 \203\302p!\204\303 \304 }\210\305\306\307\310\311\312\313\314&)\207" [helm-source-regexp helm-region-active-p helm-current-buffer-narrowed-p region-beginning region-end helm :sources :buffer "*helm regexp*" :prompt "Regexp: " :history helm-build-regexp-history] 9 (#$ . 24534) nil])
#@649 Preconfigured helm for searching lines matching pattern in `current-buffer'.
 
When `helm-source-occur' is member of
`helm-sources-using-default-as-input' which is the default,
symbol at point is searched at startup.
 
When a region is marked search only in this region by narrowing.
 
To search in multiples buffers start from one of the commands listing
buffers (i.e. a helm command using `helm-source-buffers-list' like
`helm-mini') and use the multi occur buffers action.
 
This is the helm implementation that collect lines matching pattern
like vanilla emacs `occur' but have nothing to do with it, the search
engine beeing completely different.
(defalias 'helm-occur #[0 "\305 \210\306p!C\307\310#\210\311\312\"\210\311\313\314\211:\2030@\262\315\316!!B\262A\262\202\211\237\266\203\"\266\311\317    ?\"\210\214\314\211\320 \203b\212\n@\211\262b\210\321\322!\211\205W\323!\262)\262\324 \325 }\210\326\216\327\330\300\331\332\333\206{\321\322!\211\205y\323!\262\334\335\336\300 >\205\223\337\340\323\306 !\341\206\221`!#\342\f&\f)\266\202)\207" [helm-source-occur helm-occur-show-buffer-name mark-ring helm-sources-using-default-as-input helm-moccur-truncate-lines helm-occur-init-source buffer-name helm-attrset moccur-buffers helm-set-local-variable helm-multi-occur-buffer-list helm-multi-occur-buffer-tick nil buffer-chars-modified-tick get-buffer helm-occur--invisible use-region-p thing-at-point symbol regexp-quote region-beginning region-end #[0 "\300\301!\207" [deactivate-mark t] 2] helm :sources :buffer "*helm occur*" :default :history helm-occur-history :preselect format "%s:%d:" line-number-at-pos :truncate-lines] 17 (#$ . 24971) nil])
#@35 Invoke `helm-occur' from isearch.
(defalias 'helm-occur-from-isearch #[0 "\203    \202 \305    !\306p!C\307 \210\310 \210\311\312\n#\210\313\314\"\210\313\315\316\211:\203>@\262\317\320!!B\262A\262\202%\211\237\266\203\"\210\313\321 ?\"\210\322\323\302\324\325\326\327\330    \331\f&\n\207" [isearch-regexp isearch-string helm-source-occur helm-occur-show-buffer-name helm-moccur-truncate-lines regexp-quote buffer-name isearch-exit helm-occur-init-source helm-attrset moccur-buffers helm-set-local-variable helm-multi-occur-buffer-list helm-multi-occur-buffer-tick nil buffer-chars-modified-tick get-buffer helm-occur--invisible helm :sources :buffer "*helm occur*" :history helm-occur-history :input :truncate-lines] 13 (#$ . 26660) nil])
#@250 Invoke `helm-multi-occur' from isearch.
 
With a prefix arg, reverse the behavior of
`helm-moccur-always-search-in-current'.
The prefix arg can be set before calling
`helm-multi-occur-from-isearch' or during the buffer selection.
 
(fn &optional ARG)
(defalias 'helm-multi-occur-from-isearch #[256 "\305\211\203\n    \202 \306    !\307 \210\310\311\312 \313\314\315\316&\262 \204&\f\203+\n?\202,\n\317\")\207" [isearch-regexp isearch-string helm-moccur-always-search-in-current current-prefix-arg helm-current-prefix-arg nil regexp-quote isearch-exit helm-comp-read "Buffers: " helm-buffer-list :name "Occur in buffer(s)" :marked-candidates t helm-multi-occur-1] 11 (#$ . 27417) "p"])
(provide 'helm-regexp)