;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!\203T r\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\202 0\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\203c A\262\202G \266\203\304\307\304:\203\205 @\262\247\211\262?\211\262\203\205 A\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\2034 A\262\202 \266\204\211\203O \205P rq\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\"\204 B\262A\262\202 \211\237\266\204\211A\203V \302\305:\203L @\262\306#\211\262\203L A\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\2037 A\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\203i A\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!\203 r\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\2039 A\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)
|
