| 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\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 anymore separators between candidates." (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))] 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) | |
| 16 | #@35 Keymap for `helm-show-kill-ring'. | |
| 17 | (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\211\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-toggle-truncated " " helm-kill-ring-kill-selection] 5) (#$ . 2009)) | |
| 18 | #@53 Source for browse and insert contents of kill-ring. | |
| 19 | (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-attrset 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) (#$ . 2443)) | |
| 20 | (defalias 'helm-kill-ring-candidates #[0 "\302\303\304#\305\211:\203* @\262G W\204# \306\307\"\204# B\262A\262\202 \211\237\207" [kill-ring helm-kill-ring-threshold helm-fast-remove-dups :test equal nil string-match "\\`[\n[:blank:]]+\\'"] 6]) | |
| 21 | #@62 Ensure CANDIDATES are not read-only. | |
| 22 | ||
| 23 | (fn CANDIDATES SOURCE) | |
| 24 | (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 (#$ . 3282)]) | |
| 25 | (defvar helm-kill-ring--truncated-flag nil) | |
| 26 | #@64 Toggle truncated view of candidates in helm kill-ring browser. | |
| 27 | (defalias 'helm-kill-ring-toggle-truncated #[0 "\203% ?\303 \304\305\306\307\310!\311\"\312$\313\314 \203 \315\202 \n\"\210\316!\207\317\320!\207" [helm-alive-p helm-kill-ring--truncated-flag helm-kill-ring-max-offset helm-get-selection make-byte-code 0 "\301\300!\207" vconcat vector [helm-kill-ring--preselect-fn] 2 helm-attrset multiline 15000000 helm-update error "Running helm command outside of context"] 7 (#$ . 3626) nil]) | |
| 28 | (put 'helm-kill-ring-toggle-truncated 'helm-only t) | |
| 29 | #@114 Store the real value of candidate in kill-ring. | |
| 30 | Same as `helm-kill-selection-and-quit' called with a prefix arg. | |
| 31 | (defalias 'helm-kill-ring-kill-selection #[0 "\300\301!\207" [helm-kill-selection-and-quit t] 2 (#$ . 4186) nil]) | |
| 32 | (put 'helm-kill-ring-kill-selection 'helm-only t) | |
| 33 | #@85 Internal, used to preselect CANDIDATE when toggling truncated view. | |
| 34 | ||
| 35 | (fn CANDIDATE) | |
| 36 | (defalias 'helm-kill-ring--preselect-fn #[257 "\300\3012; \211\205: \3021 \303 ?\205 \304 0\202 \210\305\211\2033 \211\230\203- \306\301\305\"\210\2026 \307 \210\2026 \305\262\210\202 0\207" [t --cl-block-nil-- (debug error) helm-pos-header-line-p helm-get-selection nil throw helm-next-line] 6 (#$ . 4469)]) | |
| 37 | #@181 Insert concatenated marked candidates in current-buffer. | |
| 38 | ||
| 39 | When two prefix args are given prompt to choose separator, otherwise | |
| 40 | use `helm-kill-ring-separator' as default. | |
| 41 | ||
| 42 | (fn STR) | |
| 43 | (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 (#$ . 4875)]) | |
| 44 | #@231 Insert STR in `kill-ring' and set STR to the head. | |
| 45 | ||
| 46 | When called with a prefix arg, point and mark are exchanged without | |
| 47 | activating region. | |
| 48 | If this action is executed just after `yank', | |
| 49 | replace with STR as yanked string. | |
| 50 | ||
| 51 | (fn STR) | |
| 52 | (defalias 'helm-kill-ring-action-yank-1 #[257 "\306\307\310\311\312!\313\"\314\315%\316\317G\320$\210r\321!\203 \206\" p\211q\210\306\317\322\311\312!\323\"\324$\216\325 \"\326 \203E \n\203E \327 \330 |\210\331\332 \"\333=\204Y \334 \210\335\336\320#\202\220 \337`\340\337!W \211\203s \206j \341`\340\337!\"\210\202~ \206x \341\340\337!`\"\210\320\342 `\223\210\335\343\320\344%)\266\202*\207" [helm-current-buffer kill-ring delete-selection-mode helm-source-kill-ring inhibit-read-only yank-undo-function make-byte-code 512 "\304\300!\210\211\203 \305\306 \307#\210\n\310\232\204 \205# \311\307!\312 ` \223\210b\207" vconcat vector [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 "\301\300!\207" [kill-new] 2 delete region-active-p region-beginning region-end helm-attr last-command yank push-mark run-with-timer 0.01 t mark delete-region mark-marker 0.01 pop] 10 (#$ . 5402)]) | |
| 53 | (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) | |
| 54 | #@60 Delete marked candidates from `kill-ring'. | |
| 55 | ||
| 56 | (fn CANDIDATE) | |
| 57 | (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 (#$ . 6852)]) | |
| 58 | #@89 Delete marked candidates from `kill-ring'. | |
| 59 | ||
| 60 | This is a command for `helm-kill-ring-map'. | |
| 61 | (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 (#$ . 7082) nil]) | |
| 62 | #@47 Return line string at position POS. | |
| 63 | ||
| 64 | (fn POS) | |
| 65 | (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) "" "<EMPTY LINE>"] 7 (#$ . 7390)]) | |
| 66 | (defalias 'helm-mark-ring-get-candidates #[0 "r\302!\203 \206 p\211q\210\303\304!\203 \305 B\202 \211\306\307d!\310!G\306\211:\203_ @\262\311\312\310!\313Q\307!\314!#\262\211\203O \315\"\204X \211BC\244\262A\262\202) \266\206)\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] 12]) | |
| 67 | #@18 | |
| 68 | ||
| 69 | (fn CANDIDATE) | |
| 70 | (defalias 'helm-mark-ring-default-action #[257 "\303!\304!\211\2035 \305!\210\306\307!\210\310 \210r\311!\203 \206# p\211q\210 \204+ `)\312!\210\313 \202= \314\n\"\315\316!\262\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 (#$ . 8142)]) | |
| 71 | (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)) | |
| 72 | (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)) | |
| 73 | #@15 | |
| 74 | ||
| 75 | (fn MARKER) | |
| 76 | (defalias 'helm-global-mark-ring-format-buffer #[257 "r\301!q\210\211b\210\302y\210\303\304!\211;\203( \211\305\306\307\310#)\266\203?\262\204, \311\2024 \211\312\313\"@\262\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 "<EMPTY LINE>" split-string "[\n ]" remove-text-properties (read-only) format "%7d:%s: %s" line-number-at-pos] 10 (#$ . 9119)]) | |
| 77 | (defalias 'helm-global-mark-ring-get-candidates #[0 "\211\205J \211\301\211\211\211:\203H @\262\302!\262\303\304\305\306\"\"\206% ??\205, \307!\262\203A \310\"\204A \211BC\244\262A\262\202\n \266\204\207" [global-mark-ring nil marker-buffer string-match "^ " format "%s" helm-global-mark-ring-format-buffer assoc] 11]) | |
| 78 | #@31 See (info "(emacs)Registers") | |
| 79 | (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) (#$ . 9944)) | |
| 80 | #@56 Collecting register contents and appropriate commands. | |
| 81 | (defalias 'helm-register-candidates #[0 "\302\211\211\211\211:\2034@\262\211A\262\242\262\303!\262\247\203* \304!\305\306E\202\307!\203P \310!\211\204< \311C\202K \312\313!\314\304\315\n!!R\316\305E\262\202:\203b \317@!\203b \320\316D\202\321!\203| \322\323!\203| \323\324\234!\203| \325\326D\202\321!\203\212 \327H\330=\204\226 :\203\234 \331@!\203\234 \332\316D\202:\203\265 @\333=\203\265 \334\335A!\336Q\316D\202:\203\325 @\337=\203\325 \340A@\314\304AA@!\336\260\316D\202:\203\371 \341\342G\"\341\343\344\345\346 @C\347#\350 \351Z\"#\305D\262\202;\205\352\327G ^#G V\203\353\202\354P\305\355\356F\262\203-\341\357@#ABBB\262A\262\202 \211\237\207" [register-alist helm-register-max-offset nil single-key-description 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 1 "Undo-tree entry." undo-tree-restore-state-from-register 0 registerv 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 "[...]" "" append-to-register prepend-to-register "Register %3s:\n %s"] 15 (#$ . 10430)]) | |
| 82 | #@82 Decide actions by the contents of register. | |
| 83 | ||
| 84 | (fn ACTIONS REGISTER-AND-FUNCTIONS) | |
| 85 | (defalias 'helm-register-action-transformer #[514 "\300A\301\211:\203$ @\262\236\211\203 AC\244\262\210A\262\202 \302\"\207" [((insert-register "Insert Register" lambda (c) (insert-register (car c))) (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 (#$ . 11955)]) | |
| 86 | #@51 Preconfigured `helm' for `helm-source-mark-ring'. | |
| 87 | (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 (#$ . 12912) nil]) | |
| 88 | #@58 Preconfigured `helm' for `helm-source-global-mark-ring'. | |
| 89 | (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 (#$ . 13133) nil]) | |
| 90 | #@86 Preconfigured `helm' for `helm-source-global-mark-ring' and `helm-source-mark-ring'. | |
| 91 | (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 (#$ . 13382) nil]) | |
| 92 | #@43 Preconfigured `helm' for Emacs registers. | |
| 93 | (defalias 'helm-register #[0 "\300\301\302\303\304\305\306&\207" [helm :sources helm-source-register :resume noresume :buffer "*helm register*"] 7 (#$ . 13679) nil]) | |
| 94 | #@150 Preconfigured `helm' for `kill-ring'. | |
| 95 | It is drop-in replacement of `yank-pop'. | |
| 96 | ||
| 97 | First call open the kill-ring browser, next calls move to next line. | |
| 98 | (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 (#$ . 13895) nil]) | |
| 99 | #@194 Preconfigured helm for keyboard macros. | |
| 100 | Define your macros with `f3' and `f4'. | |
| 101 | See (info "(emacs) Keyboard Macros") for detailed infos. | |
| 102 | This command is useful when used with persistent action. | |
| 103 | (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 <n>' to execute <n> 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 (#$ . 14321) nil]) | |
| 104 | #@18 | |
| 105 | ||
| 106 | (fn CANDIDATE) | |
| 107 | (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 (#$ . 15538)]) | |
| 108 | #@18 | |
| 109 | ||
| 110 | (fn CANDIDATE) | |
| 111 | (defalias 'helm-kbd-macro-concat-macros #[257 "\301 \211A\205^ \302 \210\303\304\305\211:\203X @\262\306!\203J \307\310\305\211T\211\262GW\203@ H\262\311\312!!B\262\202$ \211\237\266\204\"\262\202Q \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 (#$ . 15771)]) | |
| 112 | #@18 | |
| 113 | ||
| 114 | (fn CANDIDATE) | |
| 115 | (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 (#$ . 16204)]) | |
| 116 | #@18 | |
| 117 | ||
| 118 | (fn CANDIDATE) | |
| 119 | (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 (#$ . 16447)]) | |
| 120 | (provide 'helm-ring) | |
