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

Chizi123
2018-11-18 c655eea759be1db69c5e6b45c228139d8390122a
commit | author | age
5cb5f7 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (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)
16 #@31 Keymap used in Moccur source.
17 (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))
18 (defvar helm-build-regexp-history nil)
19 (defvar helm-occur-history nil)
20 #@199 Query replace regexp from `helm-regexp'.
21 With a prefix arg replace only matches surrounded by word boundaries,
22 i.e Don't replace inside a word, regexp is surrounded with \bregexp\b.
23
24 (fn CANDIDATE)
25 (defalias 'helm-query-replace-regexp #[257 "\301\302\303!\"\207" [helm-input apply query-replace-regexp helm-query-replace-args] 6 (#$ . 4662)])
26 #@62 Kill regexp in a format usable in lisp code.
27
28 (fn CANDIDATE)
29 (defalias 'helm-kill-regexp-as-sexp #[257 "\301\302!!\207" [helm-input helm-regexp-kill-new prin1-to-string] 4 (#$ . 5013)])
30 #@57 Kill regexp as it is in `helm-pattern'.
31
32 (fn CANDIDATE)
33 (defalias 'helm-kill-regexp #[257 "\301!\207" [helm-input helm-regexp-kill-new] 3 (#$ . 5206)])
34 #@82 create arguments of `query-replace-regexp' action in `helm-regexp'.
35
36 (fn REGEXP)
37 (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)])
38 (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))))
39 #@12 
40
41 (fn S E)
42 (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)])
43 #@11 
44
45 (fn PT)
46 (defalias 'helm-regexp-persistent-action #[257 "\300!\210\301 \207" [helm-goto-char helm-highlight-current-line] 3 (#$ . 6954)])
47 #@14 
48
49 (fn INPUT)
50 (defalias 'helm-regexp-kill-new #[257 "\300\301!!\210\302\303\"\207" [kill-new substring-no-properties message "Killed: %s"] 4 (#$ . 7100)])
51 (defvar helm-source-occur nil)
52 (defalias 'helm-occur-init-source #[0 "?\205 \301\302\303\"\211\207" [helm-source-occur helm-make-source "Occur" helm-source-multi-occur] 3])
53 (defvar helm-multi-occur-buffer-list nil)
54 (defvar helm-multi-occur-buffer-tick nil)
55 #@110 [INTERNAL] Hide buffer name in results when non-nil.
56 Should be a local var to helm-buffer to allow resuming.
57 (defvar helm-occur--invisible nil (#$ . 7523))
58 #@45 Create the initial helm multi occur buffer.
59 (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)])
60 (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])
61 #@53 Format line for `helm-source-moccur'.
62
63 (fn BEG END)
64 (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)])
65 #@151 Jump to CANDIDATE with METHOD.
66 arg METHOD can be one of buffer, buffer-other-window, buffer-other-frame.
67
68 (fn CANDIDATE &optional (METHOD \='buffer))
69 (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)])
70 #@18 
71
72 (fn CANDIDATE)
73 (defalias 'helm-moccur-persistent-action #[257 "\300!\210\301 \207" [helm-moccur-goto-line helm-highlight-current-line] 3 (#$ . 9990)])
74 #@84 From multi occur, switch to buffer and go to nth 1 CANDIDATE line.
75
76 (fn CANDIDATE)
77 (defalias 'helm-moccur-goto-line #[257 "\300\301\"\207" [helm-moccur-action buffer] 4 (#$ . 10150)])
78 #@111 Go to CANDIDATE line in other window.
79 Same as `helm-moccur-goto-line' but go in other window.
80
81 (fn CANDIDATE)
82 (defalias 'helm-moccur-goto-line-ow #[257 "\300\301\"\207" [helm-moccur-action buffer-other-window] 4 (#$ . 10342)])
83 #@105 Go to CANDIDATE line in new frame.
84 Same as `helm-moccur-goto-line' but go in new frame.
85
86 (fn CANDIDATE)
87 (defalias 'helm-moccur-goto-line-of #[257 "\300\301\"\207" [helm-moccur-action buffer-other-frame] 4 (#$ . 10577)])
88 #@62 Run goto line other window action from `helm-source-moccur'.
89 (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])
90 (put 'helm-moccur-run-goto-line-ow 'helm-only t)
91 #@59 Run goto line new frame action from `helm-source-moccur'.
92 (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])
93 (put 'helm-moccur-run-goto-line-of 'helm-only t)
94 (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])
95 (put 'helm-moccur-run-default-action 'helm-only t)
96 #@58 Hook that runs before initialization of the helm buffer.
97 (defvar helm-moccur-before-init-hook nil (#$ . 11728))
98 #@57 Hook that runs after initialization of the helm buffer.
99 (defvar helm-moccur-after-init-hook nil (#$ . 11846))
100 (defvar helm-source-moccur nil)
101 (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)
102 #@80 Create a new object of class type `helm-source-multi-occur'.
103
104 (fn &rest SLOTS)
105 (defalias 'helm-source-multi-occur #[128 "\300\301\302#\207" [apply make-instance helm-source-multi-occur] 5 (#$ . 13276)])
106 (byte-code "\300\301\302\303#\300\207" [function-put helm-source-multi-occur compiler-macro helm-source-multi-occur--anon-cmacro] 4)
107 #@26 
108
109 (fn WHOLE &rest SLOTS)
110 (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)])
111 (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])
112 #@95 `filter-one-by-one' function for `helm-source-moccur'.
113
114 (fn CANDIDATE &optional OUTSIDE-HELM)
115 (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)])
116 #@93 Main function to call `helm-source-moccur' with BUFFERS list.
117
118 (fn BUFFERS &optional INPUT)
119 (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)])
120 #@52 Run moccur save results action from `helm-moccur'.
121 (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])
122 (put 'helm-moccur-run-save-buffer 'helm-only t)
123 (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))
124 (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])
125 (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])
126 #@12 
127
128 (fn ARG)
129 (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)])
130 (defalias 'helm-moccur-mode-goto-line-ow-forward #[0 "\300\301!\207" [helm-moccur-mode-goto-line-ow-forward-1 1] 2 nil nil])
131 (defalias 'helm-moccur-mode-goto-line-ow-backward #[0 "\300\301!\207" [helm-moccur-mode-goto-line-ow-forward-1 -1] 2 nil nil])
132 #@74 Save helm moccur results in a `helm-moccur-mode' buffer.
133
134 (fn CANDIDATE)
135 (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)])
136 #@14 
137
138 (fn EVENT)
139 (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"])
140 (put 'helm-moccur-mode-mouse-goto-line 'helm-only t)
141 (defvar helm-moccur-mode-hook nil)
142 (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)
143 (defvar helm-moccur-mode-map (make-sparse-keymap))
144 (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)
145 #@281 Major mode to provide actions in helm moccur saved buffer.
146
147 Special commands:
148 \{helm-moccur-mode-map}
149
150 In addition to any hooks its parent mode `special-mode' might have run,
151 this mode runs the hook `helm-moccur-mode-hook', as the final or penultimate step
152 during initialization.
153 (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])
154 (put 'helm-moccur-mode 'helm-only t)
155 #@40 
156
157 (fn &optional IGNORE-AUTO NOCONFIRM)
158 (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)])
159 #@105 Preconfigured helm to build regexps.
160 `query-replace-regexp' can be run from there against found regexp.
161 (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])
162 #@649 Preconfigured helm for searching lines matching pattern in `current-buffer'.
163
164 When `helm-source-occur' is member of
165 `helm-sources-using-default-as-input' which is the default,
166 symbol at point is searched at startup.
167
168 When a region is marked search only in this region by narrowing.
169
170 To search in multiples buffers start from one of the commands listing
171 buffers (i.e. a helm command using `helm-source-buffers-list' like
172 `helm-mini') and use the multi occur buffers action.
173
174 This is the helm implementation that collect lines matching pattern
175 like vanilla emacs `occur' but have nothing to do with it, the search
176 engine beeing completely different.
177 (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])
178 #@35 Invoke `helm-occur' from isearch.
179 (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])
180 #@250 Invoke `helm-multi-occur' from isearch.
181
182 With a prefix arg, reverse the behavior of
183 `helm-moccur-always-search-in-current'.
184 The prefix arg can be set before calling
185 `helm-multi-occur-from-isearch' or during the buffer selection.
186
187 (fn &optional ARG)
188 (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"])
189 (provide 'helm-regexp)