| 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!\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)) | |
| 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\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]) | |
| 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\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)]) | |
| 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\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)]) | |
| 107 | #@18 | |
| 108 | ||
| 109 | (fn CANDIDATE) | |
| 110 | (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)]) | |
| 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\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)]) | |
| 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\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)]) | |
| 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!\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)]) | |
| 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\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)]) | |
| 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) | |
