;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\302%\207" [require cl-lib helm helm-help helm-utils custom-declare-group helm-regexp nil "Regexp related Applications and libraries for Helm." :group] 6) (defvar helm-build-regexp-history nil) #@200 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 (#$ . 366)]) #@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 (#$ . 717)]) #@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 (#$ . 909)]) #@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 (#$ . 1067)]) (defvar helm-source-regexp (helm-make-source "Regexp Builder" 'helm-source-in-buffer :init #[0 "\301\302\303\304\305\"r\211q\210\306\307\"\216\310!\210\311 *\262\"\207" [helm-current-buffer helm-init-candidates-in-buffer global generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-buffer-substring buffer-string] 6] :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)))) #@12 (fn S E) (defalias 'helm-regexp-get-line #[514 "\300 {\301\302\303\304!S#\305G\306\245S\307X\203<\310!\211\2034\302\311\312\313\314\"\302\315 \"$P\262\210T\262\202P\266\204\316#\207" [match-data propertize format "%5d: %s" line-number-at-pos 0 2 "" match-string "\n%s%s'%s'" make-string 10 32 "Group %d: " helm-realvalue] 17 (#$ . 2260)]) #@11 (fn PT) (defalias 'helm-regexp-persistent-action #[257 "\300!\210\301 \207" [helm-goto-char helm-highlight-current-line] 3 (#$ . 2630)]) #@14 (fn INPUT) (defalias 'helm-regexp-kill-new #[257 "\300\301!!\210\302\303\"\207" [kill-new substring-no-properties message "Killed: %s"] 4 (#$ . 2776)]) #@105 Preconfigured helm to build regexps. `query-replace-regexp' can be run from there against found regexp. (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 (#$ . 2939) nil]) (provide 'helm-regexp)