;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require cl-lib helm helm-help helm-utils] 2) #@107 This will be the name of the source related to `current-buffer'. Don't use it as it value changes always. (defvar helm-source-occur nil (#$ . 200)) #@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 (#$ . 355)) (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\\}\\(.*\\)\\'" (#$ . 630)) (defvar helm-occur-mode--last-pattern nil) (defvar helm-occur--initial-pos 0) #@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\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) (#$ . 870)) (byte-code "\301\302\303\304\305\306%\210\307\310\311\312\313DD\314\305\302\315\316&\210\307\317\311\312\320DD\321\305\302\315\322\323\324& \210\307\325\311\312\326DD\327\305\302\315\322&\210\307\330\311\312\331DD\332\305\302\315\322&\210\307\333\311\312\334DD\335\305\336\315\337&\210\307\340\311\312\341DD\342\305\302\315\343&\210\307\344\311\312\345DD\346\305\336\315\347&\210\307\350\311\312\351DD\352\305\336\315\322&\210\353\354\355\356\357Y\205\215\360\361\"BC\362\305\302%\210\353\363\355\356\357Y\205\241\364\365\"BC\366\305\302%\207" [emacs-major-version 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))) helm-occur-keep-closest-position #[0 "\300\207" [t] 1] "When non nil select closest candidate from point after update.\nThis happen only in `helm-source-occur' which is always related to `current-buffer'." custom-declare-face helm-moccur-buffer t append 27 (:extend t) (:foreground "DarkTurquoise" :underline t) "Face used to highlight occur buffer names." helm-resume-need-update (:extend t) (:background "red") "Face used to flash occur buffer when it needs update."] 10) (defalias 'helm-occur--select-closest-candidate #[0 "\306\307\"?\206 \310\230?\205\372\311\312 !r\313\314\"\216\315@\316\"\210\317\320\321\n\"\317\211\211\3221\356\317\3232\347\323\317\324 \206\311eb\210\325\230\203L`\262d\262\202\210\326\3272\206\211\205\205\330 \211\203~\331\332 \333 \"\230\203\201\334y\210`\262\330 \206sd\262\335\327\317\"\266\202Q\317\262\210\202Q0\266\212\203\260\203\260b\210\336\337\326#\203\251\340\341\342!!B\262\202\224\343 \"\262)\205\311\336\344\345\"\326#\205\311\346 \210\347*!b\262+\f=\203\331\317+\326\202\343+\203\342\317\202\343\211)\266\2020)0\266\205\202\367\210\326+\350\351!\266\205*\262\207" [helm-buffer helm-pattern helm-source-occur inhibit-quit throw-on-input helm-occur--initial-pos get-buffer-window visible "" internal--before-with-selected-window helm-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord nil helm-get-attr name (quit) #1=#:input input-pending-p "Helm occur" t --cl-block-nil-- helm-get-next-header-pos buffer-substring-no-properties point-at-bol point-at-eol 1 throw re-search-forward "^[0-9]+" string-to-number match-string 0 helm-closest-number-in-list format "^%s" helm-mark-current-line overlay-start eval (ignore nil) helm-selection-overlay quit-flag] 14]) #@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 "\306pC\307\"@\310\311pC\312\313p!C$\210\314\315\316#\210 \203$\317 \320\321\322\"\210\214\323 \324V?\205. \325\211\326 \203T\212\f@\211\262b\210\327\330!\211\205I\331!\262)\262\332 \333 }\210\334\216\335\336\300\337\340\341\342\343 \206o\327\330!\211\205m\331!\262\344\300 >\205\201\345\346\317 \206`!\"\347 &\f*\266\203)\207" [helm-source-occur helm-occur-keep-closest-position helm-occur--initial-pos helm-sources-using-default-as-input mark-ring 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 helm-set-attr header-name #[257 "\301\302\303!\"\207" [helm-current-buffer format "HO [%s]" buffer-name] 5 "\n\n(fn NAME)"] line-number-at-pos add-hook helm-after-update-hook helm-occur--select-closest-candidate buffer-size 2000000 nil use-region-p thing-at-point symbol regexp-quote region-beginning region-end #[0 "\300\301!\210\302\303\304\"\207" [deactivate-mark t remove-hook helm-after-update-hook helm-occur--select-closest-candidate] 3] helm :sources :buffer "*helm occur*" :history helm-occur-history :default :preselect format "^%d:" :truncate-lines] 17 (#$ . 5991) nil]) #@49 Run helm-occur on all visible buffers in frame. (defalias 'helm-occur-visible-buffers #[0 "\300\301!\210\302 \204\303 \203\304\305!\207\306 \307\310\311\"!\207" [require helm-buffers one-window-p region-active-p call-interactively helm-occur helm-buffers-get-visible-buffers helm-multi-occur-1 mapcar get-buffer] 5 (#$ . 7910) nil]) #@70 Return 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-get-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 (#$ . 8254)]) (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 (#$ . 9322)]) (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 (#$ . 9634)]) #@101 Build sources for `helm-occur' for each buffer in BUFFERS list. (fn BUFFERS &optional SOURCE-NAME) (defalias 'helm-occur-build-sources #[513 "\302\211C\302\211:\203a@\262\303!\240\210\304\206\242\305\306\307\310\"\311\242\312\313\314\315\316\317\302\320\321BBE\322\323\324\325\326\327\330\327\331\332\333\334\335\336\337\340\341\342\343\344 \345\346\347,&&B\262A\262\302\262\202\237\207" [helm-occur-candidate-number-limit helm-occur-map nil buffer-name helm-make-source helm-moccur-class :header-name make-closure #[257 "\301\302\303\230\203 \300\242\202\"\207" [V0 format "HO [%s]" "Helm occur"] 5 "\n\n(fn NAME)"] :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-set-attr 'get-line bsfn) (with-current-buffer (helm-candidate-buffer 'global) (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] 46 (#$ . 9870)]) #@127 Run `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\306\"B\202\307\310:\203'@\262\311!\262A\262\202\312V\266\203?\2051 \313\314@\"\205CA?\205C\315\"\316 >??\317\320\321\310\211:\203j@\262\322\323!!B\262A\262\202Q\211\237\266\203$\210\203\263 \203\263\211\310\211\211:\203\247@\262\314\f\323\324\325\"!\"\203\234\262\310\211\262\202\235\326\203\247A\262\202|\266\203\327 (\330\331\332\"\210\333\216\334\335\336\337\340\341\342\343\344!\211\205\307\345!\262\346 \347)&\f+\207" [helm-occur-always-search-in-current helm-sources-using-default-as-input helm-maybe-use-default-as-input helm-occur-keep-closest-position helm-current-buffer helm-source-occur remove 0 nil buffer-size 2000000 helm-occur-build-sources eql "Helm occur" helm-source-moccur helm-set-local-variable helm-occur--buffer-list helm-occur--buffer-tick buffer-chars-modified-tick get-buffer helm-get-attr buffer-name t line-number-at-pos add-hook helm-after-update-hook helm-occur--select-closest-candidate #[0 "\300\301\302\"\207" [remove-hook helm-after-update-hook helm-occur--select-closest-candidate] 3] helm :sources :buffer "*helm moccur*" :history helm-occur-history :default thing-at-point symbol regexp-quote :input :truncate-lines helm-occur--initial-pos helm-occur-truncate-lines] 18 (#$ . 11672)]) #@153 Jump to line number LINENO with METHOD. 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\266)\266\325\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-get-attr helm-mm-split-pattern #s(hash-table size 3 test eq 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 (#$ . 13142)]) #@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 (#$ . 14278)]) #@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 (#$ . 14456)]) #@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 (#$ . 14688)]) #@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 (#$ . 14912) 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 (#$ . 15235) 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 (#$ . 15811) nil]) (put 'helm-moccur-run-save-buffer 'helm-only t) #@190 `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-get-attr follow 0 helm-next-source helm-execute-persistent-action] 3 (#$ . 16132) 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\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\"\216\307 \210\310 *\2620\207\210\311\207" [last-command (error) helm-occur-mode-goto-line-ow-forward helm-occur-mode-goto-line-ow-backward internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] helm-occur-mode-goto-line-ow recenter nil] 5 (#$ . 17501)]) #@12 (fn ARG) (defalias 'helm-occur-mode-goto-line-ow-forward #[257 "\300!\207" [helm-occur-mode-goto-line-ow-forward-1] 3 (#$ . 17948) "p"]) #@12 (fn ARG) (defalias 'helm-occur-mode-goto-line-ow-backward #[257 "\300[!\207" [helm-occur-mode-goto-line-ow-forward-1] 3 (#$ . 18094) "p"]) #@74 Save helm moccur results in a `helm-moccur-mode' buffer. (fn CANDIDATE) (defalias 'helm-occur-save-results #[257 "\304\305\306\304!\203;\307\310\304\"\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 (#$ . 18242)]) #@14 (fn EVENT) (defalias 'helm-occur-mode-mouse-goto-line #[257 "\301!\211@\262\302\301!!\303!r\304\305\"\216\306@\307\"\210\310=\205&b\210\311 *\207" [major-mode event-end posn-point internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord helm-occur-mode helm-occur-mode-goto-line] 7 (#$ . 19907) "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]) #@126 Return 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\304\"r\211q\210\305\306\"\216\212c\210)\307\310\311\307\"c\210\312\313\314\304#\2034\211T\262\310\311\"c\210\202\315ed\301D#\266\316 *\207" [buffer-substring-no-properties buffer-name generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] 1 format "%s " re-search-forward "\n" nil add-text-properties buffer-string] 9 (#$ . 20671)]) #@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\353\307\310!\262\311y\210\304\312\303\306#\203\310y\210\306p`d|\210\313\314!\210\212\315\316\306\"r\211q\210\317\320\"\216\321\303\211\322\303:\203m@\262\323\324!!\203[rq\210\325 )\206\\\322\262P\262A\262\303\262\202@\266\205\321\261\210eb\210\303\211\303\211\326 !\203\325\212\311y\210\304\327\330 \306#)\203\237\331\307\310!!\262\307\332!\262\203\270\333 \"\203\270\334\335\336`\337\"$\262\203\317rq\210\340\341!@\342#\321\261\210)\303\262\202~)\266*\210\343\344!\203\345\344ed\"\210\313\345!*\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-closure #[0 "\301\300!\205 \302\300!\207" [V0 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 2 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"] 16 (#$ . 21280)]) #@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!\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] 13 (#$ . 22652)]) (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 (#$ . 24283) 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\312\305\211 \305\211\211\211:\203\305@\262\314\310!!\262:\203\305@\262U?\211\262?\211\262\203\305A\262A\262\305\262\202\213\266\207\205 \n\211\203\355\211\322=\204\333\323\324!\205 \325\326\305\327#\210?\205 \242\211\202 \325\326\305\330#\210?\205 \331\332\333\334\"\"\210\332\335B B\336\335\332\"\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-get-attr moccur-buffers helm-set-attr 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 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 "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--hook100 make-closure #[0 "\302\216\300\242\303\304!)\207" [V0 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] 14]) #@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 \303 !pC\304\305 \210\306\")\207" [isearch-regexp isearch-string helm-occur-always-search-in-current regexp-quote t isearch-exit helm-multi-occur-1] 5 (#$ . 27431) 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' \205(\317\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 (#$ . 27752) nil]) (provide 'helm-occur)