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

Chizi123
2018-11-18 21067e7cbe6d7a0f65ff5c317a96b5c337b0b3d8
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\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)
16 #@347 Allows recording local changes to a non-file buffer.
17 Typical usage of this var is for modes that want to see if
18 their buffers have changed since last visit.
19 Such programs may want to record tick counter after visiting their
20 buffers like this:
21
22     (setq helm-buffers-tick-counter (buffer-modified-tick))
23
24 Note that this variable is buffer-local.
25 (defvar helm-buffers-tick-counter nil (#$ . 5449))
26 (make-variable-buffer-local 'helm-buffers-tick-counter)
27 #@36 Keymap for buffer sources in helm.
28 (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))
29 (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))
30 (defvar helm-buffer-max-len-mode nil)
31 (defvar helm-buffers-in-project-p nil)
32 (defvar helm-source-buffers-list nil)
33 (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])
34 (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)
35 #@76 Create a new object of class type `helm-source-buffers'.
36
37 (fn &rest SLOTS)
38 (defalias 'helm-source-buffers #[128 "\300\301\302#\207" [apply make-instance helm-source-buffers] 5 (#$ . 9456)])
39 (byte-code "\300\301\302\303#\300\207" [function-put helm-source-buffers compiler-macro helm-source-buffers--anon-cmacro] 4)
40 #@26 
41
42 (fn WHOLE &rest SLOTS)
43 (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)])
44 (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))
45 (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))))
46 #@138 Return the current list of buffers.
47 Currently visible buffers are put at the end of the list.
48 See `ido-make-buffer-list' for more infos.
49 (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)])
50 #@37 Return size of BUFFER.
51
52 (fn BUFFER)
53 (defalias 'helm-buffer-size #[257 "r\211q\210\214~\210\300\301d!\301e!Z!*\207" [helm-file-human-size position-bytes] 5 (#$ . 11889)])
54 #@78 
55
56 (fn BUF-NAME PREFIX HELP-ECHO SIZE MODE DIR FACE1 FACE2 PROC DETAILS TYPE)
57 (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)])
58 #@65 Prevent using `format-mode-line' as much as possible.
59
60 (fn BUF)
61 (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)])
62 #@33 
63
64 (fn BUFFER &optional DETAILS)
65 (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)])
66 #@135 Transformer function to highlight BUFFERS list.
67 Should be called after others transformers i.e (boring buffers).
68
69 (fn BUFFERS SOURCE)
70 (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)])
71 #@15 
72
73 (fn BUFFER)
74 (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)])
75 (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])
76 (put 'helm-toggle-buffers-details 'helm-only t)
77 #@28 
78
79 (fn &optional SEPARATOR)
80 (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)])
81 #@26 
82
83 (fn CANDIDATES SOURCE)
84 (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)])
85 (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])
86 #@79 Mark All buffers that have same property `type' than current.
87 i.e same color.
88 (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])
89 (put 'helm-buffers-mark-similar-buffers 'helm-only t)
90 #@20 
91
92 (fn PATTERN MJM)
93 (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)])
94 (defvar helm-buffer--memo-hash (make-hash-table :test 'equal))
95 #@16 
96
97 (fn PATTERN)
98 (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)])
99 #@44 
100
101 (fn PATTERN CANDIDATE &optional NOFUZZY)
102 (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)])
103 #@18 
104
105 (fn CANDIDATE)
106 (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)])
107 #@18 
108
109 (fn CANDIDATE)
110 (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)])
111 #@18 
112
113 (fn CANDIDATE)
114 (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)])
115 #@18 
116
117 (fn CANDIDATE)
118 (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)])
119 #@52 Default function to match buffers.
120
121 (fn CANDIDATE)
122 (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)])
123 #@122 Query replace in marked buffers.
124 If REGEXP-FLAG is given use `query-replace-regexp'.
125
126 (fn &optional REGEXP-FLAG BUFFERS)
127 (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)])
128 #@18 
129
130 (fn CANDIDATE)
131 (defalias 'helm-buffer-query-replace-regexp #[257 "\300\301!\207" [helm-buffer-query-replace-1 regexp] 3 (#$ . 22983)])
132 #@18 
133
134 (fn CANDIDATE)
135 (defalias 'helm-buffer-query-replace #[257 "\300 \207" [helm-buffer-query-replace-1] 2 (#$ . 23126)])
136 #@62 Toggle diff buffer CANDIDATE with it's file.
137
138 (fn CANDIDATE)
139 (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)])
140 #@43 Toggle diff buffer without quitting helm.
141 (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])
142 (put 'helm-buffer-diff-persistent 'helm-only t)
143 #@18 
144
145 (fn CANDIDATE)
146 (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)])
147 #@15 
148
149 (fn IGNORE)
150 (defalias 'helm-revert-marked-buffers #[257 "\300\301\302 \"\207" [mapc helm-revert-buffer helm-marked-candidates] 4 (#$ . 24111)])
151 #@18 
152
153 (fn CANDIDATE)
154 (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)])
155 #@38 Revert buffer without quitting helm.
156 (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])
157 (put 'helm-buffer-revert-persistent 'helm-only t)
158 #@18 
159
160 (fn CANDIDATE)
161 (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)])
162 #@36 Save buffer without quitting helm.
163 (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])
164 (put 'helm-buffer-save-persistent 'helm-only t)
165 #@18 
166
167 (fn CANDIDATE)
168 (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)])
169 #@59 Run rename buffer action from `helm-source-buffers-list'.
170 (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])
171 (put 'helm-buffer-run-rename-buffer 'helm-only t)
172 #@36 Kill buffer without quitting helm.
173 (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])
174 (put 'helm-buffer-run-kill-persistent 'helm-only t)
175 #@15 
176
177 (fn IGNORE)
178 (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)])
179 #@57 Run kill buffer action from `helm-source-buffers-list'.
180 (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])
181 (put 'helm-buffer-run-kill-buffers 'helm-only t)
182 #@50 Run Grep action from `helm-source-buffers-list'.
183 (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])
184 (put 'helm-buffer-run-grep 'helm-only t)
185 #@50 Run Grep action from `helm-source-buffers-list'.
186 (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])
187 (put 'helm-buffer-run-zgrep 'helm-only t)
188 #@66 Run Query replace regexp action from `helm-source-buffers-list'.
189 (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])
190 (put 'helm-buffer-run-query-replace-regexp 'helm-only t)
191 #@59 Run Query replace action from `helm-source-buffers-list'.
192 (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])
193 (put 'helm-buffer-run-query-replace 'helm-only t)
194 #@68 Run switch to other window action from `helm-source-buffers-list'.
195 (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])
196 (put 'helm-buffer-switch-other-window 'helm-only t)
197 #@67 Run switch to other frame action from `helm-source-buffers-list'.
198 (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])
199 (put 'helm-buffer-switch-other-frame 'helm-only t)
200 #@201 Switch to buffer candidates and replace current buffer.
201
202 If more than one buffer marked switch to these buffers in separate windows.
203 If a prefix arg is given split windows vertically.
204
205 (fn CANDIDATE)
206 (defalias 'helm-buffer-switch-buffers #[257 "\300 \301!\207" [helm-marked-candidates helm-window-show-buffers] 4 (#$ . 29306)])
207 #@60 Switch to marked buffers in other windows.
208
209 (fn CANDIDATE)
210 (defalias 'helm-buffer-switch-buffers-other-window #[257 "\300 \301\302\"\207" [helm-marked-candidates helm-window-show-buffers t] 5 (#$ . 29641)])
211 #@51 Run ediff action from `helm-source-buffers-list'.
212 (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])
213 (put 'helm-buffer-run-ediff 'helm-only t)
214 #@51 Run ediff action from `helm-source-buffers-list'.
215 (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])
216 (put 'helm-buffer-run-ediff-merge 'helm-only t)
217 #@56 Persistent action to kill buffer.
218
219 (fn BUFFER-OR-NAME)
220 (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)])
221 #@15 
222
223 (fn BUFFER)
224 (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)])
225 #@15 
226
227 (fn BUFFER)
228 (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)])
229 #@18 
230
231 (fn CANDIDATE)
232 (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)])
233 #@148 Ediff 2 marked buffers or CANDIDATE and `helm-current-buffer'.
234 With optional arg MERGE call `ediff-merge-buffers'.
235
236 (fn CANDIDATE &optional MERGE)
237 (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)])
238 #@100 Ediff merge `helm-current-buffer' with CANDIDATE.
239 See `helm-ediff-marked-buffers'.
240
241 (fn CANDIDATE)
242 (defalias 'helm-ediff-marked-buffers-merge #[257 "\300\301\"\207" [helm-ediff-marked-buffers t] 4 (#$ . 32986)])
243 #@113 Multi occur action for `helm-source-buffers-list'.
244 Can be used by any source that list buffers.
245
246 (fn CANDIDATE)
247 (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)])
248 #@42 Run `helm-multi-occur-as-action' by key.
249 (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])
250 (put 'helm-buffers-run-multi-occur 'helm-only t)
251 (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])
252 (put 'helm-buffers-toggle-show-hidden-buffers 'helm-only t)
253 #@39 Browse project from buffer.
254
255 (fn BUF)
256 (defalias 'helm-buffers-browse-project #[257 "r\211q\210\301!)\207" [helm-current-prefix-arg helm-browse-project] 3 (#$ . 34509)])
257 #@45 Run `helm-buffers-browse-project' from key.
258 (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])
259 #@23 
260
261 (fn BUFFERS SOURCE)
262 (defalias 'helm-skip-boring-buffers #[514 "\302    #\207" [helm-boring-buffer-regexp-list helm-white-buffer-regexp-list helm-skip-entries] 6 (#$ . 35057)])
263 #@132 Buffers matching `helm-boring-buffer-regexp' will be
264 displayed with the `file-name-shadow' face if available.
265
266 (fn BUFFERS SOURCE)
267 (defalias 'helm-shadow-boring-buffers #[514 "\301\"\207" [helm-boring-buffer-regexp-list helm-shadow-entries] 5 (#$ . 35241)])
268 #@39 Preconfigured `helm' to list buffers.
269 (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])
270 #@63 Preconfigured `helm' lightweight version (buffer -> recentf).
271 (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])
272 #@36 Drop into `helm-mini' from `helm'.
273 (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])
274 (provide 'helm-buffers)