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
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
;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\300\306!\210\300\307!\210\310\311\312\313\314\302%\210\315\316\317\320\321DD\322\323\324\314\311&\210\315\325\317\320\326DD\327\323\330\314\311&\210\315\331\317\320\332DD\333\323\334\314\311&\210\315\335\317\320\336DD\337\314\311\323\340&\210\315\341\317\320\342DD\343\314\311\323\344&\210\315\345\317\320\346DD\347\314\311\323\344&\210\315\350\317\320\351DD\352\314\311\323\344&\210\315\353\317\320\354DD\355\314\311\323\344&\210\315\356\317\320\357DD\360\314\311\323\361&\210\315\362\317\320\363DD\364\323\365\314\311&\210\315\366\317\320\367DD\370\323\365\314\311&\210\315\371\317\320\372DD\373\323\374\314\311&\210\310\375\312\376\377\201@\314\311\314\201A&    \210\201B\201C\201D\201E\314\375%\210\201B\201F\201G\201H\314\375%\210\201B\201I\201J\201K\314\375%\210\201B\201L\201M\201N\314\375%\210\201B\201O\201P\201Q\314\375%\210\201B\201R\201S\201T\314\375%\210\201B\201U\201V\201W\314\375%\210\201B\201X\201Y\201Z\314\375%\210\201B\201[\201\\\201]\314\375%\207" [require cl-lib helm helm-types helm-utils helm-grep helm-regexp helm-help custom-declare-group helm-buffers nil "Buffers related Applications and libraries for Helm." :group custom-declare-variable helm-boring-buffer-regexp-list funcall function #[0 "\300\207" [("\\` " "\\`\\*helm" "\\`\\*Echo Area" "\\`\\*Minibuf")] 1] "The regexp list that match boring buffers.\nBuffer candidates matching these regular expression will be\nfiltered from the list of candidates if the\n`helm-skip-boring-buffers' candidate transformer is used." :type (repeat (choice regexp)) helm-white-buffer-regexp-list #[0 "\300\207" [nil] 1] "The regexp list of not boring buffers.\nThese buffers will be displayed even if they match one of\n`helm-boring-buffer-regexp-list'." (repeat (choice regexp)) helm-buffers-favorite-modes #[0 "\300\207" [(lisp-interaction-mode emacs-lisp-mode text-mode org-mode)] 1] "List of preferred mode to open new buffers with." (repeat (choice function)) helm-buffer-max-length #[0 "\300\207" [20] 1] "Max length of buffer names before truncate.\nWhen disabled (nil) use the longest buffer-name length found." (choice (const :tag "Disabled" nil) (integer :tag "Length before truncate")) helm-buffer-details-flag #[0 "\300\207" [t] 1] "Always show details in buffer list when non--nil." boolean helm-buffers-fuzzy-matching #[0 "\300\207" [nil] 1] "Fuzzy matching buffer names when non--nil.\nOnly buffer names are fuzzy matched when this is enabled,\n`major-mode' matching is not affected by this." helm-buffer-skip-remote-checking #[0 "\300\207" [nil] 1] "Ignore checking for `file-exists-p' on remote files." helm-buffers-truncate-lines #[0 "\300\207" [t] 1] "Truncate lines in `helm-buffers-list' when non--nil." helm-mini-default-sources #[0 "\300\207" [(helm-source-buffers-list helm-source-recentf helm-source-buffer-not-found)] 1] "Default sources list used in `helm-mini'.\n\nWhen adding a source here it is up to you to ensure the library of\nthis source is accessible and properly loaded." (repeat (choice symbol)) helm-buffers-end-truncated-string #[0 "\300\207" [#1="..."] 1 #1#] "The string to display at end of truncated buffer names." string helm-buffers-column-separator #[0 "\300\207" [#2="  "] 1 #2#] "Separator for columns in buffer listing." helm-buffer--pretty-names #[0 "\300\207" [((dired-mode . "Dired") (lisp-interaction-mode . "Lisp Inter"))] 1] "An alist specifying pretty names for modes.\nMost of the time buffer's `mode-name' is a string so no need to add it\nhere as there is no need to compute it, but sometimes it may be a\nmode-line specification which may be costly to compute, in this case\nadd here the pretty name as a string to avoid this costly computation.\nAlso if some pretty names are too long you can add your own\nabbreviation here." (alist :key-type symbol :value-type string) helm-buffers-faces "Customize the appearance of helm-buffers." :prefix "helm-" helm-faces custom-declare-face helm-buffer-saved-out ((t (:foreground "red" :background "black"))) "Face used for buffer files modified outside of emacs." helm-buffer-not-saved ((t (:foreground "Indianred2"))) "Face used for buffer files not already saved on disk." helm-buffer-modified ((t :inherit font-lock-comment-face)) "Face used for modified buffers." helm-buffer-size ((((background dark)) :foreground "RosyBrown") (((background light)) :foreground "SlateGray")) "Face used for buffer size." helm-buffer-process ((t (:foreground "Sienna3"))) "Face used for process status in buffer." helm-buffer-directory ((t (:foreground "DarkRed" :background "LightGray"))) "Face used for directories in `helm-buffers-list'." helm-buffer-file ((t :inherit font-lock-builtin-face)) "Face for buffer file names in `helm-buffers-list'." helm-buffer-archive ((t (:foreground "Gold"))) "Face for archive file names in `helm-buffers-list'." helm-non-file-buffer ((t (:inherit italic))) "Face used for non-file buffers in `helm-buffers-list'."] 10)
#@347 Allows recording local changes to a non-file buffer.
Typical usage of this var is for modes that want to see if
their buffers have changed since last visit.
Such programs may want to record tick counter after visiting their
buffers like this:
 
    (setq helm-buffers-tick-counter (buffer-modified-tick))
 
Note that this variable is buffer-local.
(defvar helm-buffers-tick-counter nil (#$ . 5449))
(make-variable-buffer-local 'helm-buffers-tick-counter)
#@36 Keymap for buffer sources in helm.
(defvar helm-buffer-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\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\345#\210\303\346\347#\210\303\350\351#\210\303\352\353#\210\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key [134217831 115] helm-buffer-run-zgrep "" helm-buffers-run-multi-occur "" helm-buffers-run-browse-project "o" helm-buffer-switch-other-window "" helm-buffer-switch-other-frame "=" helm-buffer-run-ediff [134217789] helm-buffer-run-ediff-merge [67108925] helm-buffer-diff-persistent [134217799] helm-buffer-revert-persistent "d" helm-buffer-run-kill-persistent [134217796] helm-buffer-run-kill-buffers "" helm-buffer-save-persistent [201326629] helm-buffer-run-query-replace-regexp [134217765] helm-buffer-run-query-replace [134217810] helm-buffer-run-rename-buffer [134217837] helm-toggle-all-marks [134217825] helm-mark-all "" helm-toggle-buffers-details "a" helm-buffers-toggle-show-hidden-buffers [201326624] helm-buffers-mark-similar-buffers] 5) (#$ . 5908))
(defvar helm-buffers-ido-virtual-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\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key "o" helm-ff-run-switch-other-window "" helm-ff-run-switch-other-frame [134217831 115] helm-ff-run-grep [134217831 122] helm-ff-run-zgrep [134217796] helm-ff-run-delete-file "" helm-ff-run-open-file-externally] 5))
(defvar helm-buffer-max-len-mode nil)
(defvar helm-buffers-in-project-p nil)
(defvar helm-source-buffers-list nil)
(defalias 'helm-buffers-list--init #[0 "\301\302!\210\303\304\305\306! \"\210\307\305\310\">\211\203\305\304!\202\"\311\305\304!\"\312\211\211:\203V@\262G\203:]\202;\211\262\210\313!G\203L]\202M\211\266\202A\262\202%B\266\205\314\315!\204g\316\315@\"\210\314\317!?\205s\316\317A\"\207" [helm-source-buffers-list require dired helm-attrset candidates helm-attr buffer-list helm-shadow-boring-buffers filtered-candidate-transformer helm-skip-boring-buffers nil helm-buffer--format-mode-name default-value helm-buffer-max-length helm-set-local-variable helm-buffer-max-len-mode] 8])
(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-buffers-p eieio-make-class-predicate helm-source-buffers helm-source-buffers--eieio-childp eieio-make-child-predicate helm-source-buffers-child-p make-obsolete "use (cl-typep ... \\='helm-source-buffers) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-sync helm-type-buffer) ((buffer-list :initarg :buffer-list :initform #'helm-buffer-list :custom function :documentation "  A function with no arguments to create buffer list.") (init :initform 'helm-buffers-list--init) (multimatch :initform nil) (match :initform 'helm-buffers-match-function) (persistent-action :initform 'helm-buffers-list-persistent-action) (keymap :initform helm-buffer-map) (migemo :initform 'nomultimatch) (volatile :initform t) (nohighlight :initform t) (resume :initform (lambda nil (setq helm-buffers-in-project-p nil))) (help-message :initform 'helm-buffer-help-message)) nil] 6)
#@76 Create a new object of class type `helm-source-buffers'.
 
(fn &rest SLOTS)
(defalias 'helm-source-buffers #[128 "\300\301\302#\207" [apply make-instance helm-source-buffers] 5 (#$ . 9456)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-source-buffers compiler-macro helm-source-buffers--anon-cmacro] 4)
#@26 
 
(fn WHOLE &rest SLOTS)
(defalias 'helm-source-buffers--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 (#$ . 9778)])
(defvar helm-source-buffer-not-found (byte-code "\300\301\302\303\304\305\306\"$\207" [helm-make-source "Create buffer" helm-source-dummy :action helm-make-actions "Create buffer (C-u choose mode)" #[257 "\203 \303\304\305    \"!\206B\n\306\211\307\306:\203@@\262\211A\262\242\262\310\"\2035\262\306\211\262\2026\307\203@A\262\202\266\204\311!\203Tr\211q\210 \210)\202X\312!\210\313!\207" [helm-current-prefix-arg helm-buffers-favorite-modes auto-mode-alist intern-soft helm-comp-read "Major-mode: " nil t string-match get-buffer-create set-buffer-major-mode switch-to-buffer] 9 "\n\n(fn CANDIDATE)"]] 7))
(defvar helm-source-ido-virtual-buffers (helm-make-source "Ido virtual buffers" 'helm-source-sync :candidates #[0 "\305\211\306 \205\307 \210\f+\207" [ido-process-ignore-lists ido-ignored-list ido-temp-list ido-use-virtual-buffers ido-virtual-buffers nil t ido-add-virtual-buffers-to-list] 3] :fuzzy-match helm-buffers-fuzzy-matching :keymap helm-buffers-ido-virtual-map :help-message 'helm-buffers-ido-virtual-help-message :action '(("Find file" . helm-find-many-files) ("Find file other window" . find-file-other-window) ("Find file other frame" . find-file-other-frame) ("Find file as root" . helm-find-file-as-root) ("Grep File(s) `C-u recurse'" . helm-find-files-grep) ("Zgrep File(s) `C-u Recurse'" . helm-ff-zgrep) ("View file" . view-file) ("Delete file(s)" . helm-delete-marked-files) ("Open file externally (C-u to choose)" . helm-open-file-externally))))
#@138 Return the current list of buffers.
Currently visible buffers are put at the end of the list.
See `ido-make-buffer-list' for more infos.
(defalias 'helm-buffer-list #[0 "\304\305!\210\306\307\211\211\310\307!,\207" [ido-use-virtual-buffers ido-ignore-buffers ido-ignored-list ido-process-ignore-lists require ido t nil ido-make-buffer-list] 4 (#$ . 11521)])
#@37 Return size of BUFFER.
 
(fn BUFFER)
(defalias 'helm-buffer-size #[257 "r\211q\210\214~\210\300\301d!\301e!Z!*\207" [helm-file-human-size position-bytes] 5 (#$ . 11889)])
#@78 
 
(fn BUF-NAME PREFIX HELP-ECHO SIZE MODE DIR FACE1 FACE2 PROC DETAILS TYPE)
(defalias 'helm-buffer--show-details #[2827 "\300\n\301 \302    \303\304    &PC\205;        \301\2031\305\306\307\n!\310 !$\2026\305\311\f\"\302\n#E\"\207" [append propertize face help-echo type format "(%s %s in `%s')" process-name process-status "(in `%s')"] 21 (#$ . 12065)])
#@65 Prevent using `format-mode-line' as much as possible.
 
(fn BUF)
(defalias 'helm-buffer--format-mode-name #[257 "r\211q\210    \236\211\211\203\211A\202-\n;\211\211\203\n\202)\303\211\211\205%\304\n!\262\262\262\262\262\262)\207" [major-mode helm-buffer--pretty-names mode-name t format-mode-line] 9 (#$ . 12436)])
#@33 
 
(fn BUFFER &optional DETAILS)
(defalias 'helm-buffer--details #[513 "\304\305!\210\306!\307!\310\311!\312\311#\313!rq\210\211\205 \314!\262)\315!\211\205-\314!\262\316!\205A\317!\205A\310\320\312\321#\322\323!\205J\323!\203X\324!\262\324!\262\211\203r\325\n \n\326\327\330\331& \202v\203\220    \203\220\325\n \n\332\327\330\331& \202v\333\n\"\203\256\325\n \n\334\327\330\305& \202v\203\325\335!\203\325\336!\204\325\325\n \n\337\327\330\340& \202v\203\365\335!\204\365\325\n \n\341\327\330\342& \202v\203\343!\203\325\n \n\344\327\330\345& \202v\2030\325\n \n\332\327\330\331& \202vrq\210 \205= \346 U?)\203]\325\205I\n \n\344\327\347& \202v\325\205e\n \n\350\327\351& \207" [default-directory helm-buffer-skip-remote-checking dired-buffers helm-buffers-tick-counter require dired helm-buffer--format-mode-name get-buffer propertize helm-buffer-size face get-buffer-process abbreviate-file-name buffer-file-name buffer-name file-remote-p "@ " helm-ff-prefix fboundp tramp-archive-file-name-p helm-url-unhex-string helm-buffer--show-details helm-buffer-archive helm-buffer-process nil filebuf helm-buffer-file rassoc helm-buffer-directory file-exists-p verify-visited-file-modtime helm-buffer-saved-out modout helm-buffer-not-saved notsaved buffer-modified-p helm-buffer-modified mod buffer-modified-tick nofile-mod helm-non-file-buffer nofile] 23 (#$ . 12767)])
#@135 Transformer function to highlight BUFFERS list.
Should be called after others transformers i.e (boring buffers).
 
(fn BUFFERS SOURCE)
(defalias 'helm-highlight-buffers #[514 "\306\211\211\211\211\211\211\211\211\211\211 :\203\305 @\262 \203#\307 \310\"\202'\307 !\262\211A\262\242\262\n\211A\262\242\262    \211A\262\242\262@\262\311\n!    V\203W\312\n    \n#\202f    \313    \nG\\\311 !Z\314\"P\262G\262 V\203u\313 ]Z\314\"P\262\205\214\315\316\n\"\262\317\f\205\224\320!\203\256!\f\260\202\263\n!\321\f!)BB\262 A\262\f\202\f\211\237\207" [helm-buffer-details-flag helm-buffer-max-length helm-buffers-end-truncated-string helm-buffer-max-len-mode helm-buffers-fuzzy-matching helm-pattern nil helm-buffer--details details string-width helm-substring-by-width make-string 32 format "%7s" helm-buffers--pattern-sans-filters "" get-buffer helm-fuzzy-matching-highlight-fn helm-buffers-column-separator] 21 (#$ . 14292)])
#@15 
 
(fn BUFFER)
(defalias 'helm-buffer--get-preselection #[257 "\304!\211\203\305rq\210)!\203\306\307!P\262\310    \2045\n\247\2035\311!\nV\2035\312\313\n #!\202B\312!    \203@\314\202A\315PP\207" [default-directory helm-buffer-details-flag helm-buffer-max-length helm-buffers-end-truncated-string buffer-name file-remote-p "@ " helm-url-unhex-string "^" string-width regexp-quote helm-substring-by-width "$" "[[:blank:]]+"] 8 (#$ . 15271)])
(defalias 'helm-toggle-buffers-details #[0 "\203\302 \303!    ?\304\305\306\307\310\311\"\312\"\313$!\207\314\315!\207" [helm-alive-p helm-buffer-details-flag helm-get-selection helm-buffer--get-preselection helm-update make-byte-code 0 "\302\3032,\211\205+\304\301\305\302#\211\203$\306 \210\300\307 \232\203'\310\303\302\"\210\202'\305\262\210\2020\207" vconcat vector [t --cl-block-nil-- re-search-forward nil helm-mark-current-line helm-get-selection throw] 5 error "Running helm command outside of context"] 10 nil nil])
(put 'helm-toggle-buffers-details 'helm-only t)
#@28 
 
(fn &optional SEPARATOR)
(defalias 'helm-buffers--pattern-sans-filters #[256 "\301!\302\211:\203$@\262\303\304O\305\235\204\211C\244\262A\262\202\306\307\206-\310#\207" [helm-pattern helm-mm-split-pattern nil 0 1 ("*" "/" "@" "!") mapconcat identity " "] 8 (#$ . 16317)])
#@26 
 
(fn CANDIDATES SOURCE)
(defalias 'helm-buffers-sort-transformer #[514 "\303\230\203\207    \203\304 \n\")\207\305\306\"\207" [helm-pattern helm-buffers-fuzzy-matching helm-fuzzy-sort-fn "" helm-buffers--pattern-sans-filters sort #[514 "\300!\300!W\207" [string-width] 5 "\n\n(fn S1 S2)"]] 5 (#$ . 16615)])
(defalias 'helm-buffers-mark-similar-buffers-1 #[0 "\301\302 !r\303\304\305\306\307!\310\"\311$\216\312@\313\"\210\314 \315\304\316\317\320\321##\212\322 b\210\323 \210\324 \211\205:\212\211b\210\325y\210`)\211\206?d`W\203j\326 \210\317\320\321#\327 \204`\315\304\316#=\203`\330 \210\210\331y\210\320\210\202?\266)\326 \210\332\333\"\210\334\335G\"\266\202*\207" [helm-marked-candidates internal--before-with-selected-window helm-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord helm-get-current-source get-text-property type helm-get-selection nil withprop helm-get-previous-header-pos helm-next-line helm-get-next-header-pos -1 helm-mark-current-line helm-this-visible-mark helm-make-visible-mark 1 helm-display-mode-line t message "%s candidates marked"] 11])
#@79 Mark All buffers that have same property `type' than current.
i.e same color.
(defalias 'helm-buffers-mark-similar-buffers #[0 "\2033\302 \211G\303Y\2030\304\305 !r\306\307\310\311\312!\313\"\314$\216\315@\316\"\210    *\262\2030\317 \2022\320 \207\321\322!\207" [helm-alive-p helm-visible-mark-overlays helm-marked-candidates 1 internal--before-with-selected-window helm-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord helm-unmark-all helm-buffers-mark-similar-buffers-1 error "Running helm command outside of context"] 8 (#$ . 17790) nil])
(put 'helm-buffers-mark-similar-buffers 'helm-only t)
#@20 
 
(fn PATTERN MJM)
(defalias 'helm-buffer--match-mjm #[514 "\300\301\"\205\252\302\303\304O\305\"\211\304\211\211:\203C@\262\300\306\"\2032\300\303\304O\"C\244\262\202<\211\300\"C\244\262A\262\202\304\307\304:\203c@\262\247\211\262?\211\262\203cA\262\202G\266\203\304\307\304:\203\205@\262\247\211\262?\211\262\203\205A\262\202i\266\203\203\224\204\224?\206\246\203\234\211\206\246\205\246\205\246?\266\202\266\205\207" [string-match "\\`\\*" split-string 1 nil "," "\\`!" t] 14 (#$ . 18468)])
(defvar helm-buffer--memo-hash (make-hash-table :test 'equal))
#@16 
 
(fn PATTERN)
(defalias 'helm-buffer--memo-pattern #[257 "\301\"\206?\302\211\303\304\"\211@\305\230\203*\306\307\310\311\312\313!\314\"\315\316%A\304#\202;\306\307\310\317\312\313!\320\"\321\316%\304#\266\202#\207" [helm-buffer--memo-hash gethash puthash split-string-and-unquote "" "^" mapconcat make-byte-code 257 "\211\301\230\203\302\303\300\"\203\207\304!\207" vconcat vector ["$" string-match "$\\'" regexp-quote] 4 "\n\n(fn C)" "\211\301\230\203\302\303\300\"\203\207\304\305\306!#\207" ["$" string-match "$\\'" format "[^%s]*%s" regexp-quote] 6] 12 (#$ . 19092)])
#@44 
 
(fn PATTERN CANDIDATE &optional NOFUZZY)
(defalias 'helm-buffer--match-pattern #[770 "\203\211\204    \204\302\303\"\204\304\202\305    \203 \306\202!\302\302\307\"\2037\211\310\311O!\"?\202>\211!\"\207" [helm-buffers-fuzzy-matching helm-migemo-mode string-match "\\`\\^" helm-buffer--memo-pattern identity helm-mm-migemo-string-match "\\`!" 1 nil] 10 (#$ . 19697)])
#@18 
 
(fn CANDIDATE)
(defalias 'helm-buffers--match-from-mjm #[257 "\302\303\304#\305!\306!\307\310\307:\2034@\262\311\312\"\203)\262\307\211\262\202*\310\2034A\262\202\266\204\211\203O\205Prq\210\313    !\314\"\262)\202P\310\207" [helm-pattern major-mode replace-regexp-in-string "^\\s-\\{1\\}" "" get-buffer helm-mm-split-pattern nil t string-match "\\`\\*" symbol-name helm-buffer--match-mjm] 11 (#$ . 20092)])
#@18 
 
(fn CANDIDATE)
(defalias 'helm-buffers--match-from-pat #[257 "\301!\302\211:\203\"@\262\303\304\"\204B\262A\262\202\211\237\266\204\211A\203V\302\305:\203L@\262\306#\211\262\203LA\262\202/\211\205Q\305\266\203\202W\305\207" [helm-pattern helm-mm-split-pattern nil string-match "\\`\\(\\*\\|/\\|@\\)" t helm-buffer--match-pattern] 10 (#$ . 20532)])
#@18 
 
(fn CANDIDATE)
(defalias 'helm-buffers--match-from-inside #[257 "\302\303\304#\305!\306!\307\310\307:\2037@\262\311\312\"\203,\313\314\"\262\307\211\262\202-\310\2037A\262\202\266\204\203^\211\203^rq\210\212eb\210    \203U\315\307\310#\202Z\316\307\310#*\202_\310\207" [helm-pattern helm-migemo-mode replace-regexp-in-string "^\\s-\\{1\\}" "" get-buffer helm-mm-split-pattern nil t string-match "\\`@\\(.*\\)" match-string 1 helm-mm-migemo-forward re-search-forward] 11 (#$ . 20923)])
#@18 
 
(fn CANDIDATE)
(defalias 'helm-buffers--match-from-directory #[257 "\302\303\304#\305!\306!\206\307\"\242    \310!\311\211:\2035@\262\312\313\"\203.B\262A\262\202\211\237\266\204\211\203n\211\311\314\311:\203i@\262\205X\312\315\311O\316!\"\211\262?\211\262\203iA\262\202A\266\203\202o\314\207" [dired-buffers helm-pattern replace-regexp-in-string "^\\s-\\{1\\}" "" get-buffer buffer-file-name rassoc helm-mm-split-pattern nil string-match "\\`/" t 1 helm-basedir] 13 (#$ . 21441)])
#@52 Default function to match buffers.
 
(fn CANDIDATE)
(defalias 'helm-buffers-match-function #[257 "\300!\205\301!\205\302!\205\303!\207" [helm-buffers--match-from-pat helm-buffers--match-from-mjm helm-buffers--match-from-inside helm-buffers--match-from-directory] 3 (#$ . 21966)])
#@122 Query replace in marked buffers.
If REGEXP-FLAG is given use `query-replace-regexp'.
 
(fn &optional REGEXP-FLAG BUFFERS)
(defalias 'helm-buffer-query-replace-1 #[512 "\203\303\202    \304\206\305 \306\307\306#\310:\203W@\262\311 \312\313\314\315\316!\317\"\320$\216\321!\210\212\306eb\210\322\323@A@\306\f\320\n8\310\n\257\"\210+\210A\262\202\310\266\203)\207" [helm--reading-passwd-or-string case-fold-search multi-query-replace-map "Query replace regexp" "Query replace" helm-marked-candidates t query-replace-read-args nil current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 switch-to-buffer apply perform-replace] 17 (#$ . 22262)])
#@18 
 
(fn CANDIDATE)
(defalias 'helm-buffer-query-replace-regexp #[257 "\300\301!\207" [helm-buffer-query-replace-1 regexp] 3 (#$ . 22983)])
#@18 
 
(fn CANDIDATE)
(defalias 'helm-buffer-query-replace #[257 "\300 \207" [helm-buffer-query-replace-1] 2 (#$ . 23126)])
#@62 Toggle diff buffer CANDIDATE with it's file.
 
(fn CANDIDATE)
(defalias 'helm-buffer-toggle-diff #[257 "\301\302\303\"\211\203\304\302!\210\305\"\202\306\307!!\207" [helm-current-buffer get-buffer-window "*Diff*" visible kill-buffer set-window-buffer diff-buffer-with-file get-buffer] 5 (#$ . 23251)])
#@43 Toggle diff buffer without quitting helm.
(defalias 'helm-buffer-diff-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset diff-action helm-buffer-toggle-diff helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 23565) nil])
(put 'helm-buffer-diff-persistent 'helm-only t)
#@18 
 
(fn CANDIDATE)
(defalias 'helm-revert-buffer #[257 "r\211q\210\300 \211\205\301!\205\302\303\211\"\262)\207" [buffer-file-name file-exists-p revert-buffer t] 5 (#$ . 23922)])
#@15 
 
(fn IGNORE)
(defalias 'helm-revert-marked-buffers #[257 "\300\301\302 \"\207" [mapc helm-revert-buffer helm-marked-candidates] 4 (#$ . 24111)])
#@18 
 
(fn CANDIDATE)
(defalias 'helm-buffer-revert-and-update #[257 "r\301 q\210\300 \302\303 !\304:\203!@\262\305!\210A\262\202 \266\203*\306 \210\307!\266\202)\207" [helm-marked-candidates helm-buffer-get helm-buffers--quote-truncated-buffer helm-get-selection nil helm-revert-buffer helm-unmark-all helm-update] 7 (#$ . 24263)])
#@38 Revert buffer without quitting helm.
(defalias 'helm-buffer-revert-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset revert-action (helm-buffer-revert-and-update . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 24610) nil])
(put 'helm-buffer-revert-persistent 'helm-only t)
#@18 
 
(fn CANDIDATE)
(defalias 'helm-buffer-save-and-update #[257 "r\302 q\210\301 \303\304\305\"\305\304:\203.@\262r\306!q\210\307 \203&\310 \210)A\262\202\266    \2037\311 \210\312\313!!)\266\202)\207" [enable-recursive-minibuffers helm-marked-candidates helm-buffer-get helm-get-selection nil t get-buffer buffer-file-name save-buffer helm-unmark-all helm-update regexp-quote] 7 (#$ . 24990)])
#@36 Save buffer without quitting helm.
(defalias 'helm-buffer-save-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset save-action (helm-buffer-save-and-update . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 25401) nil])
(put 'helm-buffer-save-persistent 'helm-only t)
#@18 
 
(fn CANDIDATE)
(defalias 'helm-buffers-rename-buffer #[257 "r\211q\210\300\301\302\303 \"\304\")\207" [rename-buffer helm-read-string "New name: " buffer-name t] 5 (#$ . 25771)])
#@59 Run rename buffer action from `helm-source-buffers-list'.
(defalias 'helm-buffer-run-rename-buffer #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-buffers-rename-buffer error "Running helm command outside of context"] 2 (#$ . 25958) nil])
(put 'helm-buffer-run-rename-buffer 'helm-only t)
#@36 Kill buffer without quitting helm.
(defalias 'helm-buffer-run-kill-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset kill-action (helm-buffers-persistent-kill . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 26293) nil])
(put 'helm-buffer-run-kill-persistent 'helm-only t)
#@15 
 
(fn IGNORE)
(defalias 'helm-kill-marked-buffers #[257 "\301 \303\304\"\305!\203r\306 q\210\307\211)\310\311\"\207" [helm-buffer helm-marked-candidates helm-visible-mark-overlays cl-count-if kill-buffer buffer-live-p helm-buffer-get nil message "Killed %s buffer(s)"] 7 (#$ . 26672)])
#@57 Run kill buffer action from `helm-source-buffers-list'.
(defalias 'helm-buffer-run-kill-buffers #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-kill-marked-buffers error "Running helm command outside of context"] 2 (#$ . 26971) nil])
(put 'helm-buffer-run-kill-buffers 'helm-only t)
#@50 Run Grep action from `helm-source-buffers-list'.
(defalias 'helm-buffer-run-grep #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-grep-buffers error "Running helm command outside of context"] 2 (#$ . 27300) nil])
(put 'helm-buffer-run-grep 'helm-only t)
#@50 Run Grep action from `helm-source-buffers-list'.
(defalias 'helm-buffer-run-zgrep #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-zgrep-buffers error "Running helm command outside of context"] 2 (#$ . 27599) nil])
(put 'helm-buffer-run-zgrep 'helm-only t)
#@66 Run Query replace regexp action from `helm-source-buffers-list'.
(defalias 'helm-buffer-run-query-replace-regexp #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-buffer-query-replace-regexp error "Running helm command outside of context"] 2 (#$ . 27901) nil])
(put 'helm-buffer-run-query-replace-regexp 'helm-only t)
#@59 Run Query replace action from `helm-source-buffers-list'.
(defalias 'helm-buffer-run-query-replace #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-buffer-query-replace error "Running helm command outside of context"] 2 (#$ . 28263) nil])
(put 'helm-buffer-run-query-replace 'helm-only t)
#@68 Run switch to other window action from `helm-source-buffers-list'.
(defalias 'helm-buffer-switch-other-window #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-buffer-switch-buffers-other-window error "Running helm command outside of context"] 2 (#$ . 28597) nil])
(put 'helm-buffer-switch-other-window 'helm-only t)
#@67 Run switch to other frame action from `helm-source-buffers-list'.
(defalias 'helm-buffer-switch-other-frame #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action switch-to-buffer-other-frame error "Running helm command outside of context"] 2 (#$ . 28958) nil])
(put 'helm-buffer-switch-other-frame 'helm-only t)
#@201 Switch to buffer candidates and replace current buffer.
 
If more than one buffer marked switch to these buffers in separate windows.
If a prefix arg is given split windows vertically.
 
(fn CANDIDATE)
(defalias 'helm-buffer-switch-buffers #[257 "\300 \301!\207" [helm-marked-candidates helm-window-show-buffers] 4 (#$ . 29306)])
#@60 Switch to marked buffers in other windows.
 
(fn CANDIDATE)
(defalias 'helm-buffer-switch-buffers-other-window #[257 "\300 \301\302\"\207" [helm-marked-candidates helm-window-show-buffers t] 5 (#$ . 29641)])
#@51 Run ediff action from `helm-source-buffers-list'.
(defalias 'helm-buffer-run-ediff #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ediff-marked-buffers error "Running helm command outside of context"] 2 (#$ . 29855) nil])
(put 'helm-buffer-run-ediff 'helm-only t)
#@51 Run ediff action from `helm-source-buffers-list'.
(defalias 'helm-buffer-run-ediff-merge #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ediff-marked-buffers-merge error "Running helm command outside of context"] 2 (#$ . 30165) nil])
(put 'helm-buffer-run-ediff-merge 'helm-only t)
#@56 Persistent action to kill buffer.
 
(fn BUFFER-OR-NAME)
(defalias 'helm-buffers-persistent-kill-1 #[257 "\302!\303\304\302!\"\203\305\211\262\204$\304\302    !\"\203/\306\211\262\203/\307\310\"\210\311\312!\2025\313!\210\314 \207" [helm-current-buffer helm-buffer get-buffer nil eql "helm-current-buffer" "helm-buffer" message "Can't kill `%s' without quitting session" sit-for 1 kill-buffer helm-delete-current-selection] 7 (#$ . 30493)])
#@15 
 
(fn BUFFER)
(defalias 'helm-buffers--quote-truncated-buffer #[257 "\303!\205    \304!\211\203\305rq\210)!\203\306\307!P\262\211\2056\310    \2034\n\2034\311    \312#\2025!\207" [default-directory helm-buffer-max-length helm-buffer-details-flag bufferp buffer-name file-remote-p "@ " helm-url-unhex-string regexp-quote helm-substring-by-width ""] 7 (#$ . 30949)])
#@15 
 
(fn BUFFER)
(defalias 'helm-buffers-persistent-kill #[257 "\300 \301 \302\303\304\305\306!\307\"\310$\216\311:\2037@\262\312\313\314\315!\"!\210\316!\210\317\311!\210\320!\210A\262\202\311\266\202)\207" [helm-marked-candidates helm-get-selection make-byte-code 0 "r\303 q\210\304\211)\305\306\300!!\207" vconcat vector [helm-marked-candidates helm-visible-mark-overlays helm-buffer-get nil helm-force-update helm-buffers--quote-truncated-buffer] 4 nil helm-preselect format "^%s" helm-buffers--quote-truncated-buffer helm-buffers-persistent-kill-1 message helm--remove-marked-and-update-mode-line] 10 (#$ . 31328)])
#@18 
 
(fn CANDIDATE)
(defalias 'helm-buffers-list-persistent-action #[257 "\302!\303 \204\304\305    !\"\204\304\305!\"\204 \306!\2026\2033\307\310\311\"!\2033\312!\2026\306    !\207" [helm-persistent-action-display-window helm-current-buffer window-buffer helm-follow-mode-p eql get-buffer switch-to-buffer window-dedicated-p next-window 1 delete-window] 6 (#$ . 31967)])
#@148 Ediff 2 marked buffers or CANDIDATE and `helm-current-buffer'.
With optional arg MERGE call `ediff-merge-buffers'.
 
(fn CANDIDATE &optional MERGE)
(defalias 'helm-ediff-marked-buffers #[513 "\301 G\302\211\303\267\202+\304\305!\210\202/\262\301 @\262\202/\301 @\262\301 A@\262\202/\304\306!\210\203:\307\"\202>\310\"\207" [helm-current-buffer helm-marked-candidates nil #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 11 1 18 2 29)) error "Error:You have to mark at least 1 buffer" "Error:Too many buffers marked!" ediff-merge-buffers ediff-buffers] 8 (#$ . 32354)])
#@100 Ediff merge `helm-current-buffer' with CANDIDATE.
See `helm-ediff-marked-buffers'.
 
(fn CANDIDATE)
(defalias 'helm-ediff-marked-buffers-merge #[257 "\300\301\"\207" [helm-ediff-marked-buffers t] 4 (#$ . 32986)])
#@113 Multi occur action for `helm-source-buffers-list'.
Can be used by any source that list buffers.
 
(fn CANDIDATE)
(defalias 'helm-multi-occur-as-action #[257 "\203        ?\202\n    \303 \304\n\305\306#\307\306\307:\2039@\262\310\311\"\205(\312\313\"\211\262?\211\262\2039A\262\202\266\203\314\")\207" [helm-current-prefix-arg helm-moccur-always-search-in-current helm-pattern helm-marked-candidates split-string " " t nil string-match "\\`@\\(.*\\)" match-string 1 helm-multi-occur-1] 10 (#$ . 33206)])
#@42 Run `helm-multi-occur-as-action' by key.
(defalias 'helm-buffers-run-multi-occur #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-multi-occur-as-action error "Running helm command outside of context"] 2 (#$ . 33726) nil])
(put 'helm-buffers-run-multi-occur 'helm-only t)
(defalias 'helm-buffers-toggle-show-hidden-buffers #[0 "\203*\302\303    \"\304>\203\305\303\306\307\304\"B    #\210\202'\305\303\304\307\306\"B    #\210\310 \207\311\312!\207" [helm-alive-p helm-source-buffers-list helm-attr filtered-candidate-transformer helm-shadow-boring-buffers helm-attrset helm-skip-boring-buffers remove helm-force-update error "Running helm command outside of context"] 7 nil nil])
(put 'helm-buffers-toggle-show-hidden-buffers 'helm-only t)
#@39 Browse project from buffer.
 
(fn BUF)
(defalias 'helm-buffers-browse-project #[257 "r\211q\210\301!)\207" [helm-current-prefix-arg helm-browse-project] 3 (#$ . 34509)])
#@45 Run `helm-buffers-browse-project' from key.
(defalias 'helm-buffers-run-browse-project #[0 "\203    \203\f\302\303!\207\304\305!\207\306\307!\207" [helm-alive-p helm-buffers-in-project-p user-error "You are already browsing this project" helm-exit-and-execute-action helm-buffers-browse-project error "Running helm command outside of context"] 2 (#$ . 34685) nil])
#@23 
 
(fn BUFFERS SOURCE)
(defalias 'helm-skip-boring-buffers #[514 "\302    #\207" [helm-boring-buffer-regexp-list helm-white-buffer-regexp-list helm-skip-entries] 6 (#$ . 35057)])
#@132 Buffers matching `helm-boring-buffer-regexp' will be
displayed with the `file-name-shadow' face if available.
 
(fn BUFFERS SOURCE)
(defalias 'helm-shadow-boring-buffers #[514 "\301\"\207" [helm-boring-buffer-regexp-list helm-shadow-entries] 5 (#$ . 35241)])
#@39 Preconfigured `helm' to list buffers.
(defalias 'helm-buffers-list #[0 "\204    \303\304\305\"\306\307\310\311\312\313    \314\n&\207" [helm-source-buffers-list helm-buffer-map helm-buffers-truncate-lines helm-make-source "Buffers" helm-source-buffers helm :sources (helm-source-buffers-list helm-source-ido-virtual-buffers helm-source-buffer-not-found) :buffer "*helm buffers*" :keymap :truncate-lines] 9 (#$ . 35507) nil])
#@63 Preconfigured `helm' lightweight version (buffer -> recentf).
(defalias 'helm-mini #[0 "\303\304!\210\204 \305\306\307\"\310\311    \312\313\314\315\316\n&\207" [helm-source-buffers-list helm-mini-default-sources helm-buffers-truncate-lines require helm-x-files helm-make-source "Buffers" helm-source-buffers helm :sources :buffer "*helm mini*" :ff-transformer-show-only-basename nil :truncate-lines] 9 (#$ . 35936) nil])
#@36 Drop into `helm-mini' from `helm'.
(defalias 'helm-quit-and-helm-mini #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-run-after-exit helm-mini error "Running helm command outside of context"] 2 (#$ . 36365) nil])
(provide 'helm-buffers)