| 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\202 P\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\"\2061 d}\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\300 A\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?\205 r\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 \325 C#\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!!\203l rq\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\234 rq\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) | |
