;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!\207" [require cl-lib helm helm-help helm-utils] 2) (defvar helm-source-occur nil) #@121 This is just a flag to add to `helm-sources-using-default-as-input'. Don't set it to any value, it will have no effect. (defvar helm-source-moccur nil (#$ . 552)) (defvar helm-occur--buffer-list nil) (defvar helm-occur--buffer-tick nil) (defvar helm-occur-history nil) #@64 The regexp matching candidates in helm-occur candidate buffer. (defvar helm-occur--search-buffer-regexp "\\`\\([0-9]*\\)\\s-\\{1\\}\\(.*\\)\\'" (#$ . 827)) (defvar helm-occur-mode--last-pattern nil) #@30 Keymap used in occur source. (defvar helm-occur-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key "o" helm-occur-run-goto-line-ow "" helm-occur-run-goto-line-of "" helm-occur-run-save-buffer] 5) (#$ . 1032)) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\304\301\314\315&\210\306\316\310\311\317DD\320\304\301\314\321\322\323& \210\306\324\310\311\325DD\326\304\301\314\321&\210\306\327\310\311\330DD\331\304\301\314\321&\210\306\332\310\311\333DD\334\304\335\314\336&\210\306\337\310\311\340DD\341\304\301\314\342&\210\306\343\310\311\344DD\345\304\335\314\346&\210\347\350\351\352\304\301%\210\347\353\354\355\304\301%\207" [custom-declare-group helm-occur nil "Regexp related Applications and libraries for Helm." :group helm custom-declare-variable helm-occur-actions funcall function #[0 "\300\207" [(("Go to Line" . helm-occur-goto-line) ("Goto line other window (C-u vertically)" . helm-occur-goto-line-ow) ("Goto line new frame" . helm-occur-goto-line-of) ("Save buffer" . helm-occur-save-results))] 1] "Actions for helm-occur." :type (alist :key-type string :value-type function) helm-occur-use-ioccur-style-keys #[0 "\300\207" [nil] 1] "Similar to `helm-grep-use-ioccur-style-keys' but for multi occur.\n\nNote that if you define this variable with `setq' your change will\nhave no effect, use customize instead." boolean :set #[514 "L\210\211\203\301\302\303#\210\301\304\305#\207\301\306\307#\210\301\310\307#\207" [helm-occur-map define-key [right] helm-occur-right [left] helm-occur-run-default-action [right] nil [left]] 6 "\n\n(fn VAR VAL)"] helm-occur-always-search-in-current #[0 "\300\207" [nil] 1] "Helm multi occur always search in current buffer when non--nil." helm-occur-truncate-lines #[0 "\300\207" [t] 1] "Truncate lines in occur buffer when non nil." helm-occur-auto-update-on-resume #[0 "\300\207" [nil] 1] "Allow auto updating helm-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." helm-regexp (radio :tag "Allow auto updating helm-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-occur-candidate-number-limit #[0 "\300\207" [99999] 1] "Value of `helm-candidate-number-limit' for helm-occur." integer helm-occur-buffer-substring-fn-for-modes #[0 "\300\207" [((mu4e-headers-mode . buffer-substring))] 1] "Function to use to display buffer contents for major-mode.\n\nCan be one of `buffer-substring' or `buffer-substring-no-properties'.\n\nNote that when using `buffer-substring' initialization will be slower." (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))) custom-declare-face helm-moccur-buffer ((t (:foreground "DarkTurquoise" :underline t))) "Face used to highlight occur buffer names." helm-resume-need-update ((t (:background "red"))) "Face used to flash occur buffer when it needs update."] 10) #@670 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 and also much faster. (defalias 'helm-occur #[0 "\304pC\305\"@\306\307pC\310\311p!C$\210\214\312\211\313 \2037\212 @\211\262b\210\314\315!\211\205,\316!\262)\262\317 \320 }\210\321\216\322\323\300\324\325\326\327\330 \206R\314\315!\211\205P\316!\262\331\300\n>\205d\332\333\334 \206b`!\"\335 &\f)\266\202)\207" [helm-source-occur mark-ring helm-sources-using-default-as-input helm-occur-truncate-lines helm-occur-build-sources "Helm occur" helm-set-local-variable helm-occur--buffer-list helm-occur--buffer-tick buffer-chars-modified-tick nil 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*" :history helm-occur-history :default :preselect format "^%d:" line-number-at-pos :truncate-lines] 16 (#$ . 4451) nil]) #@71 Returns CANDIDATES prefixed with line number. (fn CANDIDATES SOURCE) (defalias 'helm-occur-transformer #[514 "\301\302\"\303\211:\203@@\262\304\"\2055\305\306\"\305\307\"\310\311\312\313\314\315\316\317!!%#\320!B\266\202B\262A\262\202\211\237\207" [helm-occur--search-buffer-regexp helm-attr buffer-name nil string-match match-string 1 2 format "%s:%s" propertize face helm-grep-lineno help-echo buffer-file-name get-buffer string-to-number] 18 (#$ . 5937)]) (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-moccur-class-p eieio-make-class-predicate helm-moccur-class helm-moccur-class--eieio-childp eieio-make-child-predicate helm-moccur-class-child-p make-obsolete "use (cl-typep ... \\='helm-moccur-class) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-in-buffer) ((buffer-name :initarg :buffer-name :initform nil) (moccur-buffers :initarg :moccur-buffers :initform nil)) nil] 6) #@74 Create a new object of class type `helm-moccur-class'. (fn &rest SLOTS) (defalias 'helm-moccur-class #[128 "\300\301\302#\207" [apply make-instance helm-moccur-class] 5 (#$ . 7002)]) (byte-code "\300\301\302\303#\300\207" [function-put helm-moccur-class compiler-macro helm-moccur-class--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'helm-moccur-class--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 (#$ . 7314)]) #@99 Build sources for helm-occur for each buffer in BUFFERS list. (fn BUFFERS &optional SOURCE-NAME) (defalias 'helm-occur-build-sources #[513 "\302\211:\203S@\262\303\206\304\305\306!\"\307\310\306!\311\312\313\314\315\316\302\317\320BBE\321\322\323\324\325\326\327\326\330\331\332\333\334\335\336\337\340\341\342\343 \344\345\346(&$B\262A\262\202\211\237\207" [helm-occur-candidate-number-limit helm-occur-map nil helm-make-source format "HO [%s]" buffer-name helm-moccur-class :buffer-name :match-part #[257 "\301\"\205 \302\303\"\207" [helm-occur--search-buffer-regexp string-match match-string 2] 4 "\n\n(fn CANDIDATE)"] :search #[257 "\300\301\"\203\302\303\304\"P\262\3051\306\307\310#0\207\307\207" [string-match "\\`\\^\\([^ ]*\\)" "^[0-9]* \\{1\\}" match-string 1 (invalid-regexp) re-search-forward nil t] 5 "\n\n(fn PATTERN)"] :init lambda with-current-buffer ((let* ((bsfn (or (cdr (assq major-mode helm-occur-buffer-substring-fn-for-modes)) #'buffer-substring-no-properties)) (contents (funcall bsfn (point-min) (point-max)))) (helm-attrset 'get-line bsfn) (with-current-buffer (helm-candidate-buffer 'local) (insert contents) (goto-char (point-min)) (let ((linum 1)) (insert (format "%s " linum)) (while (re-search-forward "\n" nil t) (cl-incf linum) (insert (format "%s " linum))))))) :filtered-candidate-transformer helm-occur-transformer :help-message helm-moccur-help-message :nomark t :migemo :history helm-occur-history :candidate-number-limit :action helm-occur-actions :requires-pattern 2 :follow 1 :group helm-occur :keymap :resume helm-occur-resume-fn :moccur-buffers] 42 (#$ . 7550)]) #@126 Runs helm-occur on a list of buffers. Each buffer's result is displayed in a separated source. (fn BUFFERS &optional INPUT) (defalias 'helm-multi-occur-1 #[513 "p\203\211\304\"B\202\305!\306 >??\307\310\311\312\211:\2038@\262\313\314!!B\262A\262\202\211\237\266\203$\210\315\316\317\320\321\322\323\324\325!\211\205P\326!\262\327 \330 &\f)\207" [helm-occur-always-search-in-current helm-sources-using-default-as-input helm--maybe-use-default-as-input helm-occur-truncate-lines remove helm-occur-build-sources helm-source-moccur helm-set-local-variable helm-occur--buffer-list helm-occur--buffer-tick nil buffer-chars-modified-tick get-buffer helm :sources :buffer "*helm moccur*" :history helm-occur-history :default thing-at-point symbol regexp-quote :input :truncate-lines] 18 (#$ . 9197)]) #@157 Jump to line number LINENO with METHOD. arg METHOD can be one of buffer, buffer-other-window, buffer-other-frame. (fn LINENO &optional (METHOD \='buffer)) (defalias 'helm-occur-action #[385 "\211\203 \211A\262\242\202\303\203\304\305\306\307G\\D\"\210\310\311!\210\312=\203-\313`\314\"\2020\315\314!\316 !\317\267\202M\320!\210\202M\321C\322\"\210\202M\323!\210rq\210\324!\210\211\325\211:\203\222@\262\212\3261}\n\203s\327\330 \322#\202y\331\330 \322#0\202\200\325\262)\203\213\211\332\224C\244\262A\262\202X\211\203\234\333\334\"b\210\325\266\203)\266\202\207" [major-mode helm-input helm-migemo-mode buffer signal wrong-number-of-arguments helm-occur-action 2 require helm-grep helm-occur-mode get-text-property buffer-name helm-attr helm-mm-split-pattern #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (buffer 57 buffer-other-window 64 buffer-other-frame 73)) 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] 12 (#$ . 10026)]) #@72 From multi occur, switch to buffer and CANDIDATE line. (fn CANDIDATE) (defalias 'helm-occur-goto-line #[257 "\300\301\"\207" [helm-occur-action buffer] 4 (#$ . 11169)]) #@110 Go to CANDIDATE line in other window. Same as `helm-occur-goto-line' but go in other window. (fn CANDIDATE) (defalias 'helm-occur-goto-line-ow #[257 "\300\301\"\207" [helm-occur-action buffer-other-window] 4 (#$ . 11347)]) #@104 Go to CANDIDATE line in new frame. Same as `helm-occur-goto-line' but go in new frame. (fn CANDIDATE) (defalias 'helm-occur-goto-line-of #[257 "\300\301\"\207" [helm-occur-action buffer-other-frame] 4 (#$ . 11579)]) #@54 Run goto line other window action from `helm-occur'. (defalias 'helm-occur-run-goto-line-ow #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-occur-goto-line-ow error "Running helm command outside of context"] 2 (#$ . 11803) nil]) (put 'helm-occur-run-goto-line-ow 'helm-only t) #@51 Run goto line new frame action from `helm-occur'. (defalias 'helm-occur-run-goto-line-of #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-occur-goto-line-of error "Running helm command outside of context"] 2 (#$ . 12126) nil]) (put 'helm-occur-run-goto-line-of 'helm-only t) (defalias 'helm-occur-run-default-action #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-occur-goto-line error "Running helm command outside of context"] 2 nil nil]) (put 'helm-occur-run-default-action 'helm-only t) #@52 Run moccur save results action from `helm-moccur'. (defalias 'helm-occur-run-save-buffer #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-occur-save-results error "Running helm command outside of context"] 2 (#$ . 12702) nil]) (put 'helm-moccur-run-save-buffer 'helm-only t) #@188 helm-occur action for right arrow. This is used when `helm-occur-use-ioccur-style-keys' is enabled. If follow is enabled (default) go to next source, otherwise execute persistent action. (defalias 'helm-occur-right #[0 "\300\301!\211\205\n\211\302V\262\203\303 \207\304 \207" [helm-attr follow 0 helm-next-source helm-execute-persistent-action] 3 (#$ . 13023) nil]) (put 'helm-occur-right 'helm-only t) (defvar helm-occur-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\301\322\323#\210\211\207" [make-sparse-keymap define-key " " helm-occur-mode-goto-line "" helm-occur-mode-goto-line-ow [C-down] helm-occur-mode-goto-line-ow-forward [C-up] helm-occur-mode-goto-line-ow-backward [M-down] helm-gm-next-file [M-up] helm-gm-precedent-file [134217838] [134217840] [134217806] [134217808] "b" helm-occur-mode-resume-session] 5)) (defalias 'helm-occur-mode-goto-line #[0 "\300`\301\"\211\205\302!\210\303 \207" [get-text-property helm-realvalue helm-occur-goto-line helm-match-line-cleanup-pulse] 3 nil nil]) (defalias 'helm-occur-mode-goto-line-ow #[0 "\300`\301\"\211\205\302!\210\303 \207" [get-text-property helm-realvalue helm-occur-goto-line-ow helm-match-line-cleanup-pulse] 3 nil nil]) #@12 (fn ARG) (defalias 'helm-occur-mode-goto-line-ow-forward-1 #[257 "\3011,\302=\204\303=\203\211y\210\304 r\305\306\307\310\311!\312\"\313$\216\314 \210\315 *\2620\207\210\316\207" [last-command (error) helm-occur-mode-goto-line-ow-forward helm-occur-mode-goto-line-ow-backward internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 helm-occur-mode-goto-line-ow recenter nil] 8 (#$ . 14390)]) #@12 (fn ARG) (defalias 'helm-occur-mode-goto-line-ow-forward #[257 "\300!\207" [helm-occur-mode-goto-line-ow-forward-1] 3 (#$ . 14870) "p"]) #@12 (fn ARG) (defalias 'helm-occur-mode-goto-line-ow-backward #[257 "\300[!\207" [helm-occur-mode-goto-line-ow-forward-1] 3 (#$ . 15016) "p"]) #@74 Save helm moccur results in a `helm-moccur-mode' buffer. (fn CANDIDATE) (defalias 'helm-occur-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 \210\320\321 \210\320\322 \305\323 \210\324\313\325\n\"\261\210\212r q\210eb\210\326y\210`d{)c\210)\212\327y\210m\204\344\330 \203\215\331 \332 \333T\305#\210S|\266\202\336\334\335\336`\337\"\"\211\262\211\203\335\340\341P\342\343\344\336`\344\"%c\210\345\331 \332 \335D#\210\345\331 \332 \346\347\350\306 !!\351P\352BBBB#\210\353\354\355#\210\353\356\357#\210\353\360\361#\210\210\326y\210\202p*\266\362 \210\363 \210)\364!\210\365\366\"\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 kill-all-local-variables t buffer-disable-undo make-sparse-keymap erase-buffer "-*- mode: helm-occur -*-\n\n" "Occur Results for `%s':\n\n" 1 -2 helm-pos-header-line-p point-at-bol point-at-eol set-text-properties assoc-default buffer-name get-text-property helm-cur-source propertize ":" face helm-moccur-buffer helm-realvalue add-text-properties keymap help-echo buffer-file-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-occur-mode-mouse-goto-line [mouse-3] ignore buffer-enable-undo helm-occur-mode pop-to-buffer message "Helm occur Results saved in `%s' buffer"] 16 (#$ . 15164)]) #@14 (fn EVENT) (defalias 'helm-occur-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-occur-mode helm-occur-mode-goto-line] 10 (#$ . 16823) "e"]) (put 'helm-moccur-mode-mouse-goto-line 'helm-only t) (defalias 'helm-occur-mode-resume-session #[0 "\303=\204 \304\305\306\307\211$\210\310 \n\"\207" [major-mode helm-occur--buffer-list helm-occur-mode--last-pattern helm-occur-mode cl--assertion-failed (eq major-mode 'helm-occur-mode) "Helm command called in wrong context" nil helm-multi-occur-1] 5 nil nil]) #@127 Returns current-buffer contents as a string with all lines numbered. The property 'buffer-name is added to the whole string. (defalias 'helm-occur-buffer-substring-with-linums #[0 "\300ed\"\301 \302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\212c\210)\313\314\315\"c\210\316\317\320\321#\203:\211T\262\314\315\"c\210\202%\322ed\301D#\266\323 *\262\207" [buffer-substring-no-properties buffer-name generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 1 format "%s " re-search-forward "\n" nil t add-text-properties buffer-string] 9 (#$ . 17626)]) #@91 The `revert-buffer-function' for `helm-occur-mode'. (fn &optional IGNORE-AUTO NOCONFIRM) (defalias 'helm-occur-mode--revert-buffer-function #[512 "eb\210\303\304\305\303\306#\205\344\307\310!\262\311y\210\304\312\303\306#\203\310y\210\306p`d|\210\313\314!\210\212\315\316!r\211q\210\317\311\320\321\322!\323\"\324$\216\325\303\211\326:\203o@\262\327\330!!\203`rq\210\331 )\206a\326\262\211P\262A\262\202E\266\203\325\261\210eb\210\303\211\303\332!\203\316\212\311y\210\304\333\334 \306#)\203\237\335\307\310!!\262\307\324!\262\203\266\336\"\203\266\337\340\341`\342\"$\262\211\203~rq\210\343\344!@\345#\325\261\210)\202~)\266*\210\346\347!\203\336\347ed\"\210\313\350!*\266\203\207" [helm-occur--buffer-list inhibit-read-only helm-pattern nil re-search-forward "^Occur Results for `\\(.*\\)'" t match-string 1 0 "^$" 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 helm-occur-buffer-substring-with-linums helm-mm-search "^\\([0-9]*\\)\\s-\\{1\\}\\(.*\\)$" point-at-eol string-to-number string-match format "%s:%d:%s" get-text-property buffer-name propertize helm-occur-filter-one-by-one helm-realvalue fboundp wgrep-cleanup-overlays "Reverting buffer done"] 15 (#$ . 18266)]) #@72 `filter-one-by-one' function for `helm-source-moccur'. (fn CANDIDATE) (defalias 'helm-occur-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 (#$ . 19633)]) (defvar helm-occur-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-occur-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-occur-mode-map definition-name helm-occur-mode] 4) (defvar helm-occur-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-occur-mode-abbrev-table helm-occur-mode-map variable-documentation put purecopy "Keymap for `helm-occur-mode'." boundp helm-occur-mode-syntax-table definition-name helm-occur-mode (lambda (#1=#:def-tmp-var) (defvar helm-occur-mode-syntax-table #1#)) make-syntax-table "Syntax table for `helm-occur-mode'." (lambda (#1#) (defvar helm-occur-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `helm-occur-mode'." derived-mode-parent special-mode] 5) #@279 Major mode to provide actions in helm moccur saved buffer. Special commands: \{helm-occur-mode-map} In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `helm-occur-mode-hook', as the final or penultimate step during initialization. (defalias 'helm-occur-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 \325 C#\210\327 !\210\330\f!\210  \306\331!\210r\332 q\210)\306\333!\210\334\306\335!\210!)\336\337!\207" [delay-mode-hooks major-mode mode-name helm-occur-mode-map helm-occur-mode-syntax-table helm-occur-mode-abbrev-table make-local-variable t special-mode helm-occur-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-occur--buffer-list helm-buffer-get revert-buffer-function helm-occur-mode--revert-buffer-function helm-occur-mode--last-pattern run-mode-hooks helm-occur-mode-hook local-abbrev-table helm-input] 5 (#$ . 21271) nil]) (put 'helm-moccur-mode 'helm-only t) (defalias 'helm-occur-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-occur--buffer-list helm-occur--buffer-tick helm-occur-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-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--hook71 make-byte-code "\302\216\300\242\303\304!)\207" vconcat vector [helm-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]) #@88 Invoke `helm-occur' from isearch. To use this bind it to a key in `isearch-mode-map'. (defalias 'helm-occur-from-isearch #[0 "\203 \202 \302 !pC\303 \210\304\"\207" [isearch-regexp isearch-string regexp-quote isearch-exit helm-multi-occur-1] 5 (#$ . 24436) nil]) #@283 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. To use this bind it to a key in `isearch-mode-map'. (defalias 'helm-multi-occur-from-isearch #[0 "\304\211\203\n \202 \305 !\306 \210\307\310\311\312\313 \314\315\316\317&\"\262\n\204' \203,?\202-\262\320\"\207" [isearch-regexp isearch-string current-prefix-arg helm-current-prefix-arg nil regexp-quote isearch-exit mapcar get-buffer helm-comp-read "Buffers: " helm-buffer-list :name "Occur in buffer(s)" :marked-candidates t helm-multi-occur-1] 12 (#$ . 24713) nil]) (provide 'helm-occur)