mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 8f6f2705a38e2515b6c57fda12c5be29fb9a798f
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
 
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
 
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(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)
#@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\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))
#@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-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))
(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])
#@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 (#$ . 3282)])
(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\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])
(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 (#$ . 4186) 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\2033\211\230\203-\306\301\305\"\210\2026\307 \210\2026\305\262\210\2020\207" [t --cl-block-nil-- (debug error) helm-pos-header-line-p helm-get-selection nil throw helm-next-line] 6 (#$ . 4469)])
#@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 (#$ . 4875)])
#@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\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)])
(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)
#@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 (#$ . 6852)])
#@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 (#$ . 7082) nil])
#@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) "" "<EMPTY LINE>"] 7 (#$ . 7390)])
(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:\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])
#@18 
 
(fn CANDIDATE)
(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)])
(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;\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)])
(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])
#@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) (#$ . 9944))
#@56 Collecting register contents and appropriate commands.
(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 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))) (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)])
#@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 (#$ . 12912) 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 (#$ . 13133) 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 (#$ . 13382) 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 (#$ . 13679) 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 (#$ . 13895) 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 <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])
#@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 (#$ . 15538)])
#@18 
 
(fn CANDIDATE)
(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)])
#@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 (#$ . 16204)])
#@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 (#$ . 16447)])
(provide 'helm-ring)