;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\300\305!\210\306\307\310\311\312\302%\210\313\314\315\316\317DD\320\321\322\312\307&\210\313\323\315\316\324DD\325\321\326\312\307&\210\313\327\315\316\330DD\331\312\307\321\332&\210\313\333\315\316\334DD\335\312\307\321\336&\210\313\337\315\316\340DD\341\312\307\321\322&\207" [require cl-lib helm helm-utils helm-help helm-elisp custom-declare-group helm-ring nil "Ring related Applications and libraries for Helm." :group custom-declare-variable helm-kill-ring-threshold funcall function #[0 "\300\207" [3] 1] "Minimum length of a candidate to be listed by `helm-source-kill-ring'." :type integer helm-kill-ring-max-offset #[0 "\300\207" [400] 1] "Max number of chars displayed per candidate in kill-ring browser.\nWhen `t', don't truncate candidate, show all.\nBy default it is approximatively the number of bits contained in five lines\nof 80 chars each, i.e. 80*5.\nNote that if you set this to nil multiline will be disabled, i.e. you\nwill not have separators between candidates any more." (choice (const :tag "Disabled" t) (integer :tag "Max candidate offset")) helm-kill-ring-actions #[0 "\300\207" [(("Yank marked" . helm-kill-ring-action-yank) ("Delete marked" . helm-kill-ring-action-delete) ("Search from candidate" . helm-kill-ring-search-from-string))] 1] "List of actions for kill ring source." (alist :key-type string :value-type function) helm-kill-ring-separator #[0 "\300\207" [#1="\n"] 1 #1#] "The separator used to separate marked candidates when yanking." string helm-register-max-offset #[0 "\300\207" [160] 1] "Max size of string register entries before truncating."] 8) #@35 Keymap for `helm-show-kill-ring'. (defvar helm-kill-ring-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\207" [helm-map make-sparse-keymap set-keymap-parent define-key [134217849] helm-next-line [134217845] helm-previous-line [134217796] helm-kill-ring-delete "" helm-kill-ring-run-search-from-string "" helm-kill-ring-toggle-truncated " " helm-kill-ring-kill-selection "d" helm-kill-ring-run-persistent-delete] 5) (#$ . 1754)) #@53 Source for browse and insert contents of kill-ring. (defvar helm-source-kill-ring (helm-make-source "Kill Ring" 'helm-source-sync :init #[0 "\302\300\"\210\302\303 \"\207" [last-command helm-kill-ring-max-offset helm-set-attr multiline] 3] :candidates 'helm-kill-ring-candidates :filtered-candidate-transformer 'helm-kill-ring-transformer :action 'helm-kill-ring-actions :persistent-action 'ignore :help-message 'helm-kill-ring-help-message :persistent-help "DoNothing" :keymap helm-kill-ring-map :migemo t :multiline 'helm-kill-ring-max-offset :group 'helm-ring) (#$ . 2304)) (defalias 'helm-kill-ring-candidates #[0 "\302\303\304#\305\306!\307=\203\211A\202\211\310\211:\2038@\262G W\2041\311\312\"\2041B\262A\262\202\211\237\207" [kill-ring helm-kill-ring-threshold helm-fast-remove-dups :test equal helm-get-attr last-command yank nil string-match "\\`[\n[:blank:]]+\\'"] 7]) #@62 Ensure CANDIDATES are not read-only. (fn CANDIDATES SOURCE) (defalias 'helm-kill-ring-transformer #[514 "\300\211:\203(@\262\301\302\303#\203\304\302G\305$\210B\262A\262\202\211\237\207" [nil get-text-property 0 read-only set-text-properties (read-only nil)] 10 (#$ . 3211)]) (defvar helm-kill-ring--truncated-flag nil) #@64 Toggle truncated view of candidates in helm kill-ring browser. (defalias 'helm-kill-ring-toggle-truncated #[0 "\203 ?\303 \304\305\"\306\307 \203\310\202\n\"\210\311!\207\312\313!\207" [helm-alive-p helm-kill-ring--truncated-flag helm-kill-ring-max-offset helm-get-selection make-closure #[0 "\301\300!\207" [V0 helm-kill-ring--preselect-fn] 2] helm-set-attr multiline 15000000 helm-update error "Running helm command outside of context"] 5 (#$ . 3555) nil]) (put 'helm-kill-ring-toggle-truncated 'helm-only t) #@114 Store the real value of candidate in kill-ring. Same as `helm-kill-selection-and-quit' called with a prefix arg. (defalias 'helm-kill-ring-kill-selection #[0 "\300\301!\207" [helm-kill-selection-and-quit t] 2 (#$ . 4083) nil]) (put 'helm-kill-ring-kill-selection 'helm-only t) #@85 Internal, used to preselect CANDIDATE when toggling truncated view. (fn CANDIDATE) (defalias 'helm-kill-ring--preselect-fn #[257 "\300\3012<\211\205;\3021\303 ?\205\304 0\202\210\305\211\2035\211\230\203.\306\301\305\"\266\202\307 \266\202\305\266\202\2020\207" [t --cl-block-nil-- (debug error) helm-pos-header-line-p helm-get-selection nil throw helm-next-line] 6 (#$ . 4366)]) #@181 Insert concatenated marked candidates in current-buffer. When two prefix args are given prompt to choose separator, otherwise use `helm-kill-ring-separator' as default. (fn STR) (defalias 'helm-kill-ring-action-yank #[257 "\302 \303\232\203\304\305!\202 \306\307!\310\311:\203-@\262\211PP\262A\262\202\211\312!@P\266\203!\207" [helm-current-prefix-arg helm-kill-ring-separator helm-marked-candidates (16) read-string "Separator: " helm-kill-ring-action-yank-1 butlast nil "" last] 10 (#$ . 4773)]) #@231 Insert STR in `kill-ring' and set STR to the head. When called with a prefix arg, point and mark are exchanged without activating region. If this action is executed just after `yank', replace with STR as yanked string. (fn STR) (defalias 'helm-kill-ring-action-yank-1 #[257 "\306\307\"\310\311G\312$\210r\313!\203\206p\211q\210\306\314\"\216\315 \"\316 \2035\n\2035\317 \320 |\210\321\322 \"\323=\204I\324 \210\325\326\312#\202\200\327`\330\327!W\211\203c \206Z\331`\330\327!\"\210\202n \206h\331\330\327!`\"\210\312\332 `\223\210\325\326\312\333%)\266\202*\207" [helm-current-buffer kill-ring delete-selection-mode helm-source-kill-ring inhibit-read-only yank-undo-function make-closure #[512 "\304\300!\210\211\203\305\306 \307#\210\n\310\232\204\205#\311\307!\312 ` \223\210b\207" [V0 yank-window-start helm-current-prefix-arg helm-current-buffer insert-for-yank set-window-start selected-window t (4) mark mark-marker] 6 "\n\n(fn &optional BEFORE YANK-POP)"] set-text-properties 0 nil buffer-live-p #[0 "\301\300!\207" [V0 kill-new] 2] delete region-active-p region-beginning region-end helm-get-attr last-command yank push-mark run-with-timer 0.01 t mark delete-region mark-marker pop] 10 (#$ . 5300)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias helm-kill-ring-action helm-kill-ring-action-yank nil make-obsolete "2.4.0"] 4) #@18 (fn CANDIDATE) (defalias 'helm-kill-ring-search-from-string #[257 "\300\301\"@\302pC\303\304!!\"\207" [split-string "\n" helm-multi-occur-1 regexp-quote substring-no-properties] 7 (#$ . 6696)]) (defalias 'helm-kill-ring-run-search-from-string #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-kill-ring-search-from-string error "Running helm command outside of context"] 2 nil nil]) (put 'helm-kill-ring-run-search-from-string 'helm-only t) #@60 Delete marked candidates from `kill-ring'. (fn CANDIDATE) (defalias 'helm-kill-ring-action-delete #[257 "\301 \302:\203@\262\303\"A\262\202\302\207" [kill-ring helm-marked-candidates nil delete] 6 (#$ . 7185)]) #@18 (fn CANDIDATE) (defalias 'helm-kill-ring-persistent-delete #[257 "\301\216\302 \303:\203*@\262\304\305\306\307!\"!\210\310\"\311 \210\312!\210A\262\202\266)\303\207" [kill-ring #[0 "r\302 q\210\303\211)\304\305\303\306\"\211\205\307!\262!\207" [helm-marked-candidates helm-visible-mark-overlays helm-buffer-get nil helm-force-update helm-get-selection t regexp-quote] 5] helm-marked-candidates nil helm-preselect format "^%s" regexp-quote delete helm-delete-current-selection helm--remove-marked-and-update-mode-line] 8 (#$ . 7415)]) #@44 Delete current candidate without quitting. (defalias 'helm-kill-ring-run-persistent-delete #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-set-attr quick-delete (helm-kill-ring-persistent-delete . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 7977) nil]) (put 'helm-kill-ring-run-persistent-delete 'helm-only t) #@89 Delete marked candidates from `kill-ring'. This is a command for `helm-kill-ring-map'. (defalias 'helm-kill-ring-delete #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-kill-ring-action-delete error "Running helm command outside of context"] 2 (#$ . 8379) nil]) (put 'helm-kill-ring-delete 'helm-only t) #@47 Return line string at position POS. (fn POS) (defalias 'helm-mark-ring-line-string-at-pos #[257 "\212\211b\210\300y\210\301\302\303!\304\"@\305\300G\306$\210\211\307\230\203 \310\202!\211\262)\207" [0 split-string thing-at-point line "[\n ]" remove-text-properties (read-only) "" ""] 7 (#$ . 8729)]) (defalias 'helm-mark-ring-get-candidates #[0 "r\302!\203 \206p\211q\210\303\304!\203\305 B\202 \211\306\307d!\310!G\306\211\211:\203g@\262\311\312\310!\313Q\307!\314 !#\262\203S\315\"\204\\BC\244\262A\262\306\262\202*\266\210)\207" [helm-current-buffer mark-ring buffer-live-p mark t mark-marker nil line-number-at-pos number-to-string format "%" "d: %s" helm-mark-ring-line-string-at-pos assoc] 13]) #@18 (fn CANDIDATE) (defalias 'helm-mark-ring-default-action #[257 "\303!\304!\211\2033\305!\210\306\307!\210\310 \210r\311!\203 \206#p\211q\210 \204+`)\312!\210\313 \207\314\n\"\315\316!\207" [helm-current-buffer helm-yank-point mark-ring copy-marker marker-buffer switch-to-buffer helm-log-run-hook helm-goto-line-before-hook helm-match-line-cleanup buffer-live-p helm-goto-char helm-highlight-current-line delete error "Marker points to no buffer"] 6 (#$ . 9494)]) (defvar helm-source-mark-ring (helm-make-source "mark-ring" 'helm-source-sync :candidates 'helm-mark-ring-get-candidates :action '(("Goto line" . helm-mark-ring-default-action)) :persistent-help "Show this line" :group 'helm-ring)) (defvar helm-source-global-mark-ring (helm-make-source "global-mark-ring" 'helm-source-sync :candidates 'helm-global-mark-ring-get-candidates :action '(("Goto line" . helm-mark-ring-default-action)) :persistent-help "Show this line" :group 'helm-ring)) #@15 (fn MARKER) (defalias 'helm-global-mark-ring-format-buffer #[257 "r\301!q\210\211b\210\302y\210\303\304!\211;\204\305\2028\211\306\307\310\311#)\266\203?\262\2037\211\312\313\"@\262\2028\305\262\314\302G\315$\210\316\317\320 \301!$\262)\207" [inhibit-changing-match-data marker-buffer 0 thing-at-point line "" "\\`\n?\\'" nil t string-match split-string "[\n ]" remove-text-properties (read-only) format "%7d:%s: %s" line-number-at-pos] 10 (#$ . 10464)]) (defalias 'helm-global-mark-ring-get-candidates #[0 "\211\205P\211\301\211\211\211\211:\203M@\262\302!\262\303\304\305\306\"\"\206&??\205-\307!\262\203C\310\"\204CBC\244\262A\262\301\262\202 \266\206\207" [global-mark-ring nil marker-buffer string-match "^ " format "%s" helm-global-mark-ring-format-buffer assoc] 12]) #@31 See (info "(emacs)Registers") (defvar helm-source-register (helm-make-source "Registers" 'helm-source-sync :candidates 'helm-register-candidates :action-transformer 'helm-register-action-transformer :persistent-help "" :multiline t :action '(("Delete Register(s)" lambda (_candidate) (cl-loop for candidate in (helm-marked-candidates) for register = (car candidate) do (setq register-alist (delq (assoc register register-alist) register-alist))))) :group 'helm-ring) (#$ . 11311)) #@56 Collecting register contents and appropriate commands. (defalias 'helm-register-candidates #[0 "\303\211\211\211\211\211\211\211:\203u@\262\211A\262 \242\262\304!\262\305! >\205-\306\262\203K\305! >\204D\307\310\311\nD\"\210\312H\202M\262\247\203]\313!\314\315E\202S\316!\203\203\317!\211\204o\320C\202~\321\322!\323\313\324 !!R\325\314E\262\202S:\203\225\326@!\203\225\327\325D\202S\330!\203\267\331\332!\203\267\332\203\252\202\255\312\234!\203\267\333\334D\202S\330!\203\305\335H\311=\204\321:\203\327\336@!\203\327\337\325D\202S:\203\357@\340=\203\357\341\342A!\343Q\325D\202S:\203@\344=\203\345A@\323\313AA@!\343\260\325D\202S:\2032\346\347G\"\346\350\351\352\353\n@C\354#\355 \356Z\"#\314D\262\202S;\205S\357\335G\n^#G\nV\203K\360\202L\361P\314\362\363\364\257\262\203j\346\365@#ABBB\262A\262 \303\262\202 \237\207" [register-alist cl-struct-registerv-tags helm-register-max-offset nil single-key-description type-of t signal wrong-type-argument registerv 1 int-to-string insert-register increment-register markerp marker-buffer "a marker in no buffer" "a buffer position:" buffer-name ", position " marker-position jump-to-register window-configuration-p "window configuration." vectorp fboundp undo-tree-register-data-p "Undo-tree entry." undo-tree-restore-state-from-register 0 frame-configuration-p "frame configuration." file "file:" prin1-to-string "." file-query "file:a file-query reference: file " format "%4d" "%s: %s\n" truncate-string-to-width mapconcat identity "^J" window-width 15 substring-no-properties "[...]" "" kill-new append-to-register prepend-to-register "Register %3s:\n %s"] 18 (#$ . 11798)]) #@82 Decide actions by the contents of register. (fn ACTIONS REGISTER-AND-FUNCTIONS) (defalias 'helm-register-action-transformer #[514 "\300A\301\211:\203$@\262\236\211\203AC\244\262\210A\262\202\302\"\207" [((insert-register "Insert Register" lambda (c) (insert-register (car c))) (kill-new "Kill Register" lambda (c) (with-temp-buffer (insert-register (car c)) (kill-new (buffer-string)))) (jump-to-register "Jump to Register" lambda (c) (jump-to-register (car c))) (append-to-register "Append Region to Register" lambda (c) (append-to-register (car c) (region-beginning) (region-end))) (prepend-to-register "Prepend Region to Register" lambda (c) (prepend-to-register (car c) (region-beginning) (region-end))) (increment-register "Increment Prefix Arg to Register" lambda (c) (increment-register helm-current-prefix-arg (car c))) (undo-tree-restore-state-from-register "Restore Undo-tree register" lambda (c) (and (fboundp 'undo-tree-restore-state-from-register) (undo-tree-restore-state-from-register (car c))))) nil append] 9 (#$ . 13544)]) #@51 Preconfigured `helm' for `helm-source-mark-ring'. (defalias 'helm-mark-ring #[0 "\300\301\302\303\304\305\306&\207" [helm :sources helm-source-mark-ring :resume noresume :buffer "*helm mark*"] 7 (#$ . 14611) nil]) #@58 Preconfigured `helm' for `helm-source-global-mark-ring'. (defalias 'helm-global-mark-ring #[0 "\300\301\302\303\304\305\306&\207" [helm :sources helm-source-global-mark-ring :resume noresume :buffer "*helm global mark*"] 7 (#$ . 14832) nil]) #@86 Preconfigured `helm' for `helm-source-global-mark-ring' and `helm-source-mark-ring'. (defalias 'helm-all-mark-rings #[0 "\300\301\302\303\304\305\306&\207" [helm :sources (helm-source-mark-ring helm-source-global-mark-ring) :resume noresume :buffer "*helm mark ring*"] 7 (#$ . 15081) nil]) #@43 Preconfigured `helm' for Emacs registers. (defalias 'helm-register #[0 "\300\301\302\303\304\305\306&\207" [helm :sources helm-source-register :resume noresume :buffer "*helm register*"] 7 (#$ . 15378) nil]) #@150 Preconfigured `helm' for `kill-ring'. It is drop-in replacement of `yank-pop'. First call open the kill-ring browser, next calls move to next line. (defalias 'helm-show-kill-ring #[0 "\303\304\305\306\n\307\310\311\312\313\304&)\207" [helm-kill-ring--truncated-flag enable-recursive-minibuffers helm-source-kill-ring nil t helm :sources :buffer "*helm kill ring*" :resume noresume :allow-nest] 9 (#$ . 15594) nil]) #@194 Preconfigured helm for keyboard macros. Define your macros with `f3' and `f4'. See (info "(emacs) Keyboard Macros") for detailed infos. This command is useful when used with persistent action. (defalias 'helm-execute-kmacro #[0 "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332&\333\334&\335\336$)\207" [helm-quit-if-no-candidate #[0 "\300\301!\207" [message "No kbd macro has been defined"] 2] helm :sources helm-make-source "Kmacro" helm-source-sync :candidates #[0 "\301\302 B\303\304#\207" [kmacro-ring helm-fast-remove-dups kmacro-ring-head :test equal] 4] :multiline t :candidate-transformer #[257 "\211\300\211:\203 @\262\301\302@\300\"\303#B\262A\262\202\211\237\207" [nil propertize help-key-description helm-realvalue] 8 "\n\n(fn CANDIDATES)"] :persistent-help "Execute kmacro" :help-message helm-kmacro-help-message :action helm-make-actions "Execute kmacro (`C-u ' to execute times)" helm-kbd-macro-execute "Concat marked macros" helm-kbd-macro-concat-macros "Delete marked macros" helm-kbd-macro-delete-macro "Edit marked macro" helm-kbd-macro-edit-macro :group helm-ring :buffer "*helm kmacro*"] 25 (#$ . 16020) nil]) #@18 (fn CANDIDATE) (defalias 'helm-kbd-macro-execute #[257 "\302\"\303 \210\304!\210\305 \"\207" [kmacro-ring helm-current-prefix-arg delete kmacro-push-ring kmacro-split-ring-element kmacro-exec-ring-item] 4 (#$ . 17237)]) #@18 (fn CANDIDATE) (defalias 'helm-kbd-macro-concat-macros #[257 "\301 \211A\205b\302 \210\303\304\305\211:\203\\@\262\306!\203N\307\310\305\211T\211\262\203DGW\203DH\262\311\312!!B\262\202$\211\237\266\204\"\262\202U\211@C\244\262A\262\202\266\202\313#\211\207" [last-kbd-macro helm-marked-candidates kmacro-push-ring mapconcat identity nil vectorp append -1 key-description vector ""] 16 (#$ . 17470)]) #@18 (fn CANDIDATE) (defalias 'helm-kbd-macro-delete-macro #[257 "\301 \302 \210\211\303:\203@\262\304\"A\262\202\266\305 \207" [kmacro-ring helm-marked-candidates kmacro-push-ring nil delete kmacro-pop-ring1] 7 (#$ . 17911)]) #@18 (fn CANDIDATE) (defalias 'helm-kbd-macro-edit-macro #[257 "\301 \210\302\"\303!\210\304 \207" [kmacro-ring kmacro-push-ring delete kmacro-split-ring-element kmacro-edit-macro] 4 (#$ . 18154)]) (provide 'helm-ring)