;ELC ;;; Compiled ;;; in Emacs version 24.5.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\300\305!\210\306\307\310\311\312\302%\210\313\314\315\316\317DD\320\312\307\321\322&\210\313\323\315\316\324DD\325\312\307\321\322&\210\313\326\315\316\327DD\330\312\307\321\331&\210\313\332\315\316\333DD\334\312\307\321\335&\210\336\337\340\341\312\307%\210\336\342\343\344\312\307%\207" [require cl-lib helm helm-help helm-utils helm-plugin 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 "\n\n(fn)"] "Helm multi occur always search in current buffer when non--nil." :type boolean helm-moccur-use-ioccur-style-keys #[0 "\300\207" [t] 1 "\n\n(fn)"] "Similar to `helm-grep-use-ioccur-style-keys' but for multi occur." helm-moccur-auto-update-on-resume #[0 "\300\207" [nil] 1 "\n\n(fn)"] "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" . helm-moccur-goto-line-ow) ("Goto line new frame" . helm-moccur-goto-line-of))] 1 "\n\n(fn)"] "Actions for helm-occur and helm-moccur." (alist :key-type string :value-type function) 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\304\317\320#\210 \203;\304\321\322#\210\304\323\324#\210\325\326\"\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 "" helm-yank-text-at-point "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) (#$ . 2423)) (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 (#$ . 3137)]) #@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 (#$ . 3488)]) #@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 (#$ . 3681)]) #@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 (#$ . 3840)]) (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\"\314\315%DC\216\316!\210\317 *\262\"\207" [helm-current-buffer helm-init-candidates-in-buffer global generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" insert-buffer-substring buffer-string] 10 "\n\n(fn)"] :get-line 'helm-regexp-get-line :persistent-action 'helm-regexp-persistent-action :persistent-help "Show this line" :multiline t :matchplugin nil :requires-pattern 2 :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)))) (defalias 'helm-regexp-get-line #[514 "\300 {\301\302\303\304!S#\305G\306\245S\307X\2033\211\302\310\302\311\"\312!#P\262T\262\202P\266\204\313#\207" [match-data propertize format "%5d: %s" line-number-at-pos 0 2 "" "\n %s'%s'" "Group %d: " match-string helm-realvalue] 15 "\n\n(fn S E)"]) (defalias 'helm-regexp-persistent-action #[257 "\300!\210\301 \207" [helm-goto-char helm-highlight-current-line] 3 "\n\n(fn PT)"]) (defalias 'helm-regexp-kill-new #[257 "\300!\210\301\302\"\207" [kill-new message "Killed: %s"] 4 "\n\n(fn INPUT)"]) #@65 Quote whitespace, if some, in string CANDIDATE. (fn CANDIDATE) (defalias 'helm-quote-whitespace #[257 "\300\301\302#\207" [replace-regexp-in-string " " "\\\\ "] 5 (#$ . 5653)]) (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 "\n\n(fn)"]) (defvar helm-multi-occur-buffer-list nil) (defvar helm-multi-occur-buffer-tick nil) #@51 Create the initial helm multi occur buffer. (fn) (defalias 'helm-moccur-init #[0 "\300\301\302\303!\211\304\211\305:\2036@\262rq\210\306 )\262\307\310G\311\211\312!!D$\210\211P\262A\262\202 \266\204\"\207" [helm-init-candidates-in-buffer global helm-attr moccur-buffers nil "" buffer-string add-text-properties 0 buffer-name get-buffer] 14 (#$ . 6109)]) (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 "\n\n(fn)"]) #@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\307U\203(\303 \202)`\304\"\206/d}\210\310!)U\203?\311\202B{$U\203L\306u\210\207" [format "%s:%d:%s" get-text-property helm-moccur--next-or-previous-char buffer-name previous-single-property-change 1 next-single-property-change line-number-at-pos ""] 9 (#$ . 6652)]) #@154 Jump to CANDIDATE with METHOD. arg METHOD can be one of buffer, buffer-other-window, buffer-other-frame. (fn CANDIDATE &optional (METHOD 'buffer) MARK) (defalias 'helm-moccur-action #[385 "\211\203 \211A\262\242\202\301\211A\262\242\203#\302\303\304\305G\\D\"\210\306\307!\210\310!\211@\311A@!\312!\313\301\"\203C\314!\210\202^\313\315\"\203R\316!\210\202^\313\317\"\203^\320!\210\321!\210\211\322C\322:\203\233@\240\210\212\323\324\325\326\327\330\331!\332\"\333\334%D\335\324\336\323EDC\217)\203\224\211\326\224C\244\262A\262\202f\211\203\245\337\340\"b\210\266\205\265\341 `\322\223\210\342`\343\"\266\204\207" [helm-input buffer signal wrong-number-of-arguments helm-moccur-action 3 require helm-grep helm-grep-split-line string-to-number helm-mm-split-pattern eql switch-to-buffer buffer-other-window switch-to-buffer-other-window buffer-other-frame switch-to-buffer-other-frame helm-goto-line nil #1=#:err funcall make-byte-code 0 "\301\300\242\302 \303#\207" vconcat vector [re-search-forward point-at-eol t] 4 "\n\n(fn)" invalid-regexp #[257 "\300\207" [nil] 2 "\n\n(fn ERR)"] apply min mark-marker push-mark nomsg] 19 (#$ . 7098)]) (defalias 'helm-moccur-persistent-action #[257 "\300!\210\301 \207" [helm-moccur-goto-line helm-highlight-current-line] 3 "\n\n(fn CANDIDATE)"]) #@84 From multi occur, switch to buffer and go to nth 1 CANDIDATE line. (fn CANDIDATE) (defalias 'helm-moccur-goto-line #[257 "\302\303\206 #\207" [current-prefix-arg helm-current-prefix-arg helm-moccur-action buffer] 5 (#$ . 8437)]) #@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 "\302\303\206 #\207" [current-prefix-arg helm-current-prefix-arg helm-moccur-action buffer-other-window] 5 (#$ . 8678)]) #@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 "\302\303\206 #\207" [current-prefix-arg helm-current-prefix-arg helm-moccur-action buffer-other-frame] 5 (#$ . 8962)]) #@68 Run goto line other window action from `helm-source-moccur'. (fn) (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 (#$ . 9238) nil]) #@65 Run goto line new frame action from `helm-source-moccur'. (fn) (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 (#$ . 9528) nil]) (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 "\n\n(fn)" nil]) (defvar helm-source-moccur nil) (byte-code "\300\301\302\303\304$\207" [eieio-defclass helm-source-multi-occur (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) (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)) nil] 5) (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\204u\316\317!\210\n\320=?\205 \211\204\302\305\211 \305\321\305:\203\275@\262\314\310!!\262:\203\275@\262U?\211\262?\211\262\203\275A\262A\262\202\207\266\206\205 \n\211\203\345\211\322=\204\323\323\324!\205 \325\326\305\327#\210?\205 \242\211\202 \325\330\305\331#\210?\205 \332\333\334\315\335\336\337 !\340\"\341\342%\"\210\333\343B B\344\343\333\"\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 error "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 "\n\n(fn)"] 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 "\n\n(fn)"] defalias #1=#:helm--hook21439 make-byte-code "\302\303DC\216\300\242\304\305!)\207" vconcat vector [helm-multi-occur-buffer-tick funcall #[0 "\300\301\302\"\210\303\302!\207" [remove-hook helm-after-update-hook #1# fmakunbound] 3 "\n\n(fn)"] message "Helm (m)occur Buffer have been udated"] 2 "\n\n(fn)" helm-after-update-hook add-hook] 13 "\n\n(fn)"]) #@72 `filter-one-by-one' function for `helm-source-moccur'. (fn CANDIDATE) (defalias 'helm-moccur-filter-one-by-one #[257 "\300\301!\210\302!\211@A@\3038\304\305\306\307\310\311 !!\312 &\313\304\305\314#\313\315\316\"\260B\207" [require helm-grep helm-grep-split-line 2 propertize face helm-moccur-buffer help-echo buffer-file-name get-buffer buffer-name ":" helm-grep-lineno helm-grep-highlight-match t] 13 (#$ . 12701)]) #@93 Main function to call `helm-source-moccur' with BUFFERS list. (fn BUFFERS &optional INPUT) (defalias 'helm-multi-occur-1 #[513 "\203\304p!\305 \"B\202\n\204\306\307\310\"\311\312\n#\210\313\314\"\210\313\315\316\211:\203B@\262\317\320!!B\262A\262\202)\211\237\266\203\"\266\321\322\302\323\324\325\326\327 \330\n\331\332&\f\207" [helm-moccur-always-search-in-current helm-current-buffer helm-source-moccur helm-moccur-map 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*" :history helm-occur-history :keymap :input :truncate-lines t] 15 (#$ . 13137)]) #@58 Run moccur save results action from `helm-moccur'. (fn) (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 (#$ . 13935) nil]) (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!\207" [get-text-property helm-realvalue helm-moccur-goto-line] 3 "\n\n(fn)" nil]) (defalias 'helm-moccur-mode-goto-line-ow #[0 "\300`\301\"\211\205 \302!\207" [get-text-property helm-realvalue helm-moccur-goto-line-ow] 3 "\n\n(fn)" nil]) (defalias 'helm-moccur-mode-goto-line-ow-forward-1 #[257 "\300\301\302\303\304\305\306!\307\"\310\311%D\312\301\313\300EDC\217\207" [#1=#:err funcall make-byte-code 0 "\301 r\302\303\304\305\306\307!\310\"\311\312%DC\216\313 \210\314 \210*\210\300y\207" vconcat vector [internal--before-save-selected-window funcall make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 "\n\n(fn)" helm-moccur-mode-goto-line-ow recenter] 8 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 9 "\n\n(fn ARG)"]) (defalias 'helm-moccur-mode-goto-line-ow-forward #[0 "\300\301!\207" [helm-moccur-mode-goto-line-ow-forward-1 1] 2 "\n\n(fn)" nil]) (defalias 'helm-moccur-mode-goto-line-ow-backward #[0 "\300\301!\207" [helm-moccur-mode-goto-line-ow-forward-1 -1] 2 "\n\n(fn)" 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 \210\321\313\322\n\"\261\210\212r q\210eb\210\323y\210`d{)c\210*\324 \210\325!\210)\326\327\"\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 erase-buffer "-*- mode: helm-moccur -*-\n\n" "Moccur Results for `%s':\n\n" 1 helm-moccur-mode pop-to-buffer message "Helm Moccur Results saved in `%s' buffer"] 10 (#$ . 15870)]) #@168 Hook run after entering helm-moccur mode. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar helm-moccur-mode-hook nil (#$ . 16670)) (byte-code "\300\301!\204\f\302\301\303\304#\210\300\207" [boundp helm-moccur-mode-map put definition-name helm-moccur-mode] 4) (defvar helm-moccur-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [helm-moccur-mode-map variable-documentation put purecopy "Keymap for `helm-moccur-mode'." boundp helm-moccur-mode-syntax-table definition-name helm-moccur-mode] 5) (defvar helm-moccur-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [helm-moccur-mode-syntax-table variable-documentation put purecopy "Syntax table for `helm-moccur-mode'." helm-moccur-mode-abbrev-table definition-name helm-moccur-mode] 5) (defvar helm-moccur-mode-abbrev-table (progn (define-abbrev-table 'helm-moccur-mode-abbrev-table nil) helm-moccur-mode-abbrev-table)) (byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [helm-moccur-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `helm-moccur-mode'." helm-moccur-mode derived-mode-parent special-mode] 5) #@272 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 step during initialization. (fn) (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 (#$ . 18014) nil]) (defalias 'helm-moccur-mode--revert-buffer-function #[512 "eb\210\302\303\304\302\305#\205\306\306\307!\262\310y\210\303\311\302\305#\203\307y\210\305p`d|\210\312\313!\210\212\314\315!r\211q\210\316\317\310\320\321\322!\323\"\324\325%DC\216\326\302\211\327:\203\211@\262\330\331!!\203erq\210\332 )\206f\327\262\327\230\204}\333\310G\334\211\331!!D$\210\211P\262A\262\202J\266\203\326\261\210eb\210\302\303\302\305#\203\274\335\336 \337 \"\262\211\203\223rq\210\340\341!@\342#\326\261\210)\202\223\210*\210)\312\343!)\266\203\207" [helm-multi-occur-buffer-list inhibit-read-only nil re-search-forward "^Moccur Results for `\\(.*\\)'" t match-string 1 0 "^$" message "Reverting buffer..." generate-new-buffer " *temp*" funcall make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" "\n" "" buffer-live-p get-buffer buffer-string add-text-properties buffer-name helm-moccur-get-line point-at-bol point-at-eol propertize helm-moccur-filter-one-by-one helm-realvalue "Reverting buffer done"] 19 "\n\n(fn &optional IGNORE-AUTO NOCONFIRM)"]) #@111 Preconfigured helm to build regexps. `query-replace-regexp' can be run from there against found regexp. (fn) (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 (#$ . 20325) nil]) #@37 Preconfigured helm for Occur. (fn) (defalias 'helm-occur #[0 "\302 \210\303p!C\304\305#\210\306\307\"\210\306\310\311\211:\2030@\262\312\313!!B\262A\262\202\211\237\266\203\"\266\314\315\300\316\317\320\321\322\300 >\205O\323\324\325\303 !\326`!#\327\330&\n\207" [helm-source-occur helm-sources-using-default-as-input 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 :sources :buffer "*helm occur*" :history helm-occur-history :preselect format "%s:%d:" regexp-quote line-number-at-pos :truncate-lines t] 13 (#$ . 20767) nil]) #@41 Invoke `helm-occur' from isearch. (fn) (defalias 'helm-occur-from-isearch #[0 "\203 \202 \303 !\304p!C\305 \210\306 \210\307\310\n#\210\311\312\"\210\311\313\314\211:\203>@\262\315\316!!B\262A\262\202%\211\237\266\203\"\210\317\320\302\321\322\323\324\325 \326\327&\n\207" [isearch-regexp isearch-string helm-source-occur 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 :sources :buffer "*helm occur*" :history helm-occur-history :input :truncate-lines t] 13 (#$ . 21461) nil]) #@277 Preconfigured helm for multi occur. BUFFERS is a list of buffers to search through. 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' or during the buffer selection. (fn BUFFERS) (defalias 'helm-multi-occur #[257 "\204 \203 \n?\202\n\303!)\207" [current-prefix-arg helm-current-prefix-arg helm-moccur-always-search-in-current helm-multi-occur-1] 3 (#$ . 22135) (byte-code "\300\301\302 \303\304$C\207" [helm-comp-read "Buffers: " helm-buffer-list :marked-candidates t] 5)]) #@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 (#$ . 22721) "p"]) (provide 'helm-regexp)