emacsd/elpa/helm-20191026.431/helm-buffers.elc

;ELC
;;; Compiled
;;; in Emacs version 26.3
;;; 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\300\310!\210\311\312\313\314\315\302%\210\316\317\320\321\322DD\323\324\325\315\312&\210\316\326\320\321\327DD\330\324\331\315\312&\210\316\332\320\321\333DD\334\324\335\315\312&\210\316\336\320\321\337DD\340\315\312\324\341&\210\316\342\320\321\343DD\344\315\312\324\345&\210\316\346\320\321\347DD\350\315\312\324\345&\210\316\351\320\321\352DD\353\315\312\324\345&\210\316\354\320\321\355DD\356\315\312\324\345&\210\316\357\320\321\360DD\361\315\312\324\362&\210\316\363\320\321\364DD\365\315\312\324\366&\210\316\367\320\321\370DD\371\324\372\315\312&\210\316\373\320\321\374DD\375\324\372\315\312&\210\316\376\320\321\377DD\201@\324\201A\315\312&\210\316\201B\320\321\201CDD\201D\315\312\324\345&\210\311\201E\313\201F\201G\201H\315\312\315\201I&	\210\201J\201K\201L\201M\315\201E%\210\201J\201N\201O\201P\315\201E%\210\201J\201Q\201R\201S\315\201E%\210\201J\201T\201U\201V\315\201E%\210\201J\201W\201X\201Y\315\201E%\210\201J\201Z\201[\201\\\315\201E%\210\201J\201]\201^\201_\315\201E%\210\201J\201`\201a\201b\315\201E%\210\201J\201c\201d\201e\315\201E%\207" [require cl-lib helm helm-types helm-utils helm-grep helm-regexp helm-help helm-occur 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-buffers-left-margin-width #[0 "\207" [helm-left-margin-width] 1] "`left-margin-width' value for `helm-mini' and `helm-buffers-list'." integer 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 computa
#@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 (#$ . 5911))
(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\303
\354\355#\210\356\357!\203\221\303
\360\361#\210\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key [134217831 115] helm-buffer-run-zgrep "" helm-buffers-run-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 "s" helm-buffer-run-save-some-buffers [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 fboundp tab-bar-mode "" helm-buffers-switch-to-buffer-new-tab] 5) (#$ . 6370))
(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 (#$ . 10069)])
(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 (#$ . 10392)])
#@63 

(fn CANDIDATE &optional (DISPLAY-FUNC \='switch-to-buffer))
(defalias 'helm-buffers-create-new-buffer-1 #[385 "\211\203
\211
A\262\242\202\303
\203\304\305\306\307G\\D\"\210\203)\310\311\312	\"!\206^\n\313\211\314\313:\203\\@\262\211A\262\242\262\315	\"\203Q\262
\313\211\262\202R\314\203\\A\262\202.\266\204\316!
\203pr\211q\210
 \210)\202t\317
!\210
!\266\202\207" [helm-current-prefix-arg helm-buffers-favorite-modes auto-mode-alist switch-to-buffer signal wrong-number-of-arguments helm-buffers-create-new-buffer-1 2 intern-soft helm-comp-read "Major-mode: " nil t string-match get-buffer-create set-buffer-major-mode] 11 (#$ . 10631)])
#@18 

(fn CANDIDATE)
(defalias 'helm-buffers-create-new-buffer #[257 "\300
!\207" [helm-buffers-create-new-buffer-1] 3 (#$ . 11311)])
#@18 

(fn CANDIDATE)
(defalias 'helm-buffers-create-new-buffer-ow #[257 "\300
\301\"\207" [helm-buffers-create-new-buffer-1 switch-to-buffer-other-window] 4 (#$ . 11447)])
#@56 Run create new buffer other window action from keymap.
(defalias 'helm-buffers-not-found-run-switch-ow #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-buffers-create-new-buffer-ow error "Running helm command outside of context"] 2 (#$ . 11621) nil])
(put 'helm-buffers-not-found-run-switch-ow 'helm-only t)
#@18 

(fn CANDIDATE)
(defalias 'helm-buffers-create-new-buffer-of #[257 "\300
\301\"\207" [helm-buffers-create-new-buffer-1 switch-to-buffer-other-frame] 4 (#$ . 11974)])
#@55 Run create new buffer other frame action from keymap.
(defalias 'helm-buffers-not-found-run-switch-of #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-buffers-create-new-buffer-of error "Running helm command outside of context"] 2 (#$ . 12147) nil])
(put 'helm-buffers-not-found-run-switch-of 'helm-only t)
#@51 Keymap for `helm-source-buffer-not-found' source.
(defvar helm-buffer-not-found-map (byte-code "\301 \302
\"\210\303
\304\305#\210\303
\306\307#\210\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key "o" helm-buffers-not-found-run-switch-ow "" helm-buffers-not-found-run-switch-of] 5) (#$ . 12499))
(defvar helm-source-buffer-not-found (byte-code "\301\302\303\304\305\306\307\310\311\312\313&\314&\207" [helm-buffer-not-found-map helm-make-source "Create buffer" helm-source-dummy :action helm-make-actions "Create buffer (C-u choose mode)" helm-buffers-create-new-buffer "Create buffer other window (C-u choose mode)" helm-buffers-create-new-buffer-ow "Create buffer other frame (C-u choose mode)" helm-buffers-create-new-buffer-of :keymap] 11))
(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 (#$ . 14148)])
#@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 (#$ . 14516)])
#@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 (#$ . 14692)])
#@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 (#$ . 15063)])
#@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&\202v
rq\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 (#$ . 15394)])
#@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\262V\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!)B
B\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 (#$ . 16919)])
#@15 

(fn BUFFER)
(defalias 'helm-buffer--get-preselection #[257 "\304
!\211\203\305r
q\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 (#$ . 17898)])
(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\262
A\262\202\306\307\206-\310#\207" [helm-pattern helm-mm-split-pattern nil 0 1 ("*" "/" "@" "!") mapconcat identity " "] 8 (#$ . 18944)])
#@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 (#$ . 19242)])
#@23 

(fn &optional TYPE)
(defalias 'helm-buffers-mark-similar-buffers-1 #[256 "\301\302 !r\303\304\305\306\307!\310\"\311$\216\312
@\313\"\210\314 \206'\315\304\316\317\320\321##\212\322 b\210\323 \210\324 \211\205>\212\211b\210\325y\210`)\211\206Cd`
W\203n\326 \210\317\320\321#\327 \204d\315\304\316#=\203d\330 \210\210\331y\210\320\210\202C\266)\326 \210\332\333\"\210\205\202\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"] 12 (#$ . 19565)])
#@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 (#$ . 20477) 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\262
A\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 (#$ . 21155)])
(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 (#$ . 21779)])
#@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 (#$ . 22384)])
#@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
\205Pr
q\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 (#$ . 22779)])
#@18 

(fn CANDIDATE)
(defalias 'helm-buffers--match-from-pat #[257 "\301
!\302\211:\203\"@\262\303\304\"\204

B\262
A\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 (#$ . 23219)])
#@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^r
q\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 (#$ . 23610)])
#@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\262
A\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 (#$ . 24128)])
#@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 (#$ . 24653)])
#@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+\210
A\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 (#$ . 24949)])
#@18 

(fn CANDIDATE)
(defalias 'helm-buffer-query-replace-regexp #[257 "\300\301!\207" [helm-buffer-query-replace-1 regexp] 3 (#$ . 25670)])
#@18 

(fn CANDIDATE)
(defalias 'helm-buffer-query-replace #[257 "\300 \207" [helm-buffer-query-replace-1] 2 (#$ . 25813)])
#@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
!\203\"\310
!\202(\311\312\313!\"\262
\207" [helm-current-buffer get-buffer-window "*Diff*" visible kill-buffer set-window-buffer get-buffer buffer-file-name diff-buffer-with-file user-error "Buffer `%s' is not associated to a file" buffer-name] 7 (#$ . 25938)])
#@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 (#$ . 26375) 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 (#$ . 26732)])
#@15 

(fn IGNORE)
(defalias 'helm-revert-marked-buffers #[257 "\300\301\302 \"\207" [mapc helm-revert-buffer helm-marked-candidates] 4 (#$ . 26921)])
#@18 

(fn CANDIDATE)
(defalias 'helm-buffer-revert-and-update #[257 "r\301 q\210\300 \302\303 !
\304
:\203!
@\262
\305
!\210
A\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 (#$ . 27073)])
#@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 (#$ . 27420) 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
\204\306\307\310\304\211$\210
\304
:\2039
@\262
r\311
!q\210\312 \2031\313 \210)
A\262\202\266	\203B\314 \210\315\316!!)\266\202)\207" [enable-recursive-minibuffers helm-marked-candidates helm-buffer-get helm-get-selection nil t cl--assertion-failed marked "No buffers need to be saved" get-buffer buffer-file-name save-buffer helm-unmark-all helm-update regexp-quote] 8 (#$ . 27800)])
#@18 

(fn CANDIDATE)
(defalias 'helm-buffer-save-some-buffers #[257 "\300\301!\210\302\303!\207" [helm-buffers-mark-similar-buffers-1 mod helm-buffer-save-and-update nil] 3 (#$ . 28301)])
#@50 Save unsaved file buffers without quitting helm.
(defalias 'helm-buffer-run-save-some-buffers #[0 "\203
\301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset save-some-action (helm-buffer-save-some-buffers . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 28491) nil])
(put 'helm-buffer-run-save-some-buffers 'helm-only t)
#@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 (#$ . 28894) 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 (#$ . 29264)])
#@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 (#$ . 29451) 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 (#$ . 29786) 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 (#$ . 30165)])
#@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 (#$ . 30464) 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 (#$ . 30793) 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 (#$ . 31092) 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 (#$ . 31394) 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 (#$ . 31756) 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 (#$ . 32090) 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 (#$ . 32451) nil])
(put 'helm-buffer-switch-other-frame 'helm-only t)
#@75 Run switch to buffer in other tab action from `helm-source-buffers-list'.
(defalias 'helm-buffers-switch-to-buffer-new-tab #[0 "\301\302!\204
\303\304\305\306\211$\210\203\307\310!\207\311\312!\207" [helm-alive-p fboundp tab-bar-mode cl--assertion-failed (fboundp 'tab-bar-mode) "Tab-bar-mode not available" nil helm-exit-and-execute-action switch-to-buffer-other-tab error "Running helm command outside of context"] 5 (#$ . 32798) nil])
(put 'helm-buffers-switch-to-buffer-new-tab '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 (#$ . 33305)])
#@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 (#$ . 33640)])
#@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 (#$ . 33854) 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 (#$ . 34164) 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 (#$ . 34492)])
#@15 

(fn BUFFER)
(defalias 'helm-buffers--quote-truncated-buffer #[257 "\303
!\205	\304
!\211\203\305r
q\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 (#$ . 34948)])
#@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
!\210
A\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 (#$ . 35327)])
#@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 (#$ . 35966)])
#@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\304\"\203\305\306!\210\202>\303\307\"\203%\262\301 @\262
\202>\303\310\"\203:\301 @\262\301 A@\262
\202>\305\311!\210\203I\312\"\202M\313\"\207" [helm-current-buffer helm-marked-candidates nil eql 0 error "Error:You have to mark at least 1 buffer" 1 2 "Error:Too many buffers marked!" ediff-merge-buffers ediff-buffers] 8 (#$ . 36353)])
#@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 (#$ . 36927)])
#@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	\304 \305\306\307\310\n!\"\206\311\312#\313\312\313:\203B@\262\314\315\"\2051\316\317\"\211\262?\211\262\203BA\262\202\266\203\320\")\207" [helm-current-prefix-arg helm-occur-always-search-in-current helm-buffer helm-pattern helm-marked-candidates split-string buffer-local-value helm-input-local get-buffer " " t nil string-match "\\`@\\(.*\\)" match-string 1 helm-multi-occur-1] 10 (#$ . 37147)])
#@42 Run `helm-multi-occur-as-action' by key.
(defalias 'helm-buffers-run-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 (#$ . 37747) nil])
(put 'helm-buffers-run-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 (#$ . 38518)])
#@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 (#$ . 38694) 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 (#$ . 39066)])
#@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 (#$ . 39250)])
#@39 Preconfigured `helm' to list buffers.
(defalias 'helm-buffers-list #[0 "\204	\304\305\306\"\307\310\311\312\313\314	\315\n\316&\n\207" [helm-source-buffers-list helm-buffer-map helm-buffers-truncate-lines helm-buffers-left-margin-width 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 :left-margin-width] 11 (#$ . 39516) nil])
#@62 Preconfigured `helm' displaying `helm-mini-default-sources'.
(defalias 'helm-mini #[0 "\304\305!\210\204
\306\307\310\"\311\312	\313\314\315\316\317\n\320&\n\207" [helm-source-buffers-list helm-mini-default-sources helm-buffers-truncate-lines helm-buffers-left-margin-width require helm-x-files helm-make-source "Buffers" helm-source-buffers helm :sources :buffer "*helm mini*" :ff-transformer-show-only-basename nil :truncate-lines :left-margin-width] 11 (#$ . 40002) 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 (#$ . 40487) nil])
(provide 'helm-buffers)