;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\301\307!\210\301\310!\210\301\311!\210\312\313\314\315\316\303%\210\317\320\321\322\323DD\324\325\326\316\313&\210\317\327\321\322\330DD\331\325\332\316\313&\210\317\333\321\322\334DD\335\325\336\316\313&\210\317\337\321\322\340DD\341\316\313\325\342&\210\317\343\321\322\344DD\345\316\313\325\346&\210\317\347\321\322\350DD\351\316\313\325\346&\210\317\352\321\322\353DD\354\316\313\325\346&\210\317\355\321\322\356DD\357\316\313\325\346&\210\317\360\321\322\361DD\362\316\313\325\363&\210\317\364\321\322\365DD\366\316\313\325\367&\210\317\370\321\322\371DD\372\325\373\316\313&\210\317\374\321\322\375DD\376\325\373\316\313&\210\317\377\321\322\201@DD\201A\325\201B\316\313&\210\317\201C\321\322\201DDD\201E\316\313\325\346&\210\317\201F\321\322\201GDD\201H\316\313\325\322&\210\317\201I\321\322\201JDD\201K\325\322\316\313&\210\312\201L\314\201M\201N\201O\316\313\316\201P& \210\201Q\201R\201S\201T\201UY\205^\201V\201W\"BC\201X\316\201L%\210\201Q\201Y\201S\201T\201UY\205\204\201Z\201[\"BC\201\\\316\201L%\210\201Q\201]\201S\201T\201UY\205\252\201^\201_\"BC\201`\316\201L%\210\201Q\201a\201S\201T\201UY\205\320\201b\201c\"BC\201`\316\201L%\210\201Q\201d\201e\201T\201UY\205\366\201f\201g\"B\201h\201T\201UY\205\f\201i\201j\"BD\201k\316\201L%\210\201Q\201l\201S\201T\201UY\2052\201m\201n\"BC\201o\316\201L%\210\201Q\201p\201S\201T\201UY\205X\201q\201r\"BC\201s\316\201L%\210\201Q\201t\201S\201T\201UY\205~\201u\201v\"BC\201w\316\201L%\210\201Q\201x\201S\201T\201UY\205\244\201y\201z\"BC\201{\316\201L%\210\201Q\201|\201S\201T\201UY\205\312\201}\201~\"BC\201\316\201L%\207" [emacs-major-version require cl-lib helm helm-types helm-utils helm-grep helm-regexp helm-help helm-occur custom-declare-group helm-buffers nil "Buffers related Applications and libraries for Helm." :group custom-declare-variable helm-boring-buffer-regexp-list funcall function #[0 "\300\207" [("\\` " "\\`\\*helm" "\\`\\*Echo Area" "\\`\\*Minibuf")] 1] "The regexp list that match boring buffers.\nBuffer candidates matching these regular expression will be\nfiltered from the list of candidates if the\n`helm-skip-boring-buffers' candidate transformer is used." :type (repeat (choice regexp)) helm-white-buffer-regexp-list #[0 "\300\207" [nil] 1] "The regexp list of not boring buffers.\nThese buffers will be displayed even if they match one of\n`helm-boring-buffer-regexp-list'." (repeat (choice regexp)) helm-buffers-favorite-modes #[0 "\300\207" [(lisp-interaction-mode emacs-lisp-mode text-mode org-mode)] 1] "List of preferred mode to open new buffers with." (repeat (choice function)) helm-buffer-max-length #[0 "\300\207" [20] 1] "Max length of buffer names before truncate.\nWhen disabled (nil) use the longest `buffer-name' length found." (choice (const :tag "Disabled" nil) (integer :tag "Length before truncate")) helm-buffer-details-flag #[0 "\300\207" [t] 1] "Always show details in buffer list when non-nil." boolean helm-buffers-fuzzy-matching #[0 "\300\207" [nil] 1] "Fuzzy matching buffer names when non-nil.\nOnly buffer names are fuzzy matched when this is enabled,\n`major-mode' matching is not affected by this." helm-buffer-skip-remote-checking #[0 "\300\207" [nil] 1] "Ignore checking for `file-exists-p' on remote files." helm-buffers-truncate-lines #[0 "\300\207" [t] 1] "Truncate lines in `helm-buffers-list' when non-nil." helm-buffers-left-margin-width #[0 "\207" [helm-left-margin-width] 1] "`left-margin-width' value for `helm-mini' and `helm-buffers-list'." integer helm-mini-default-sources #[0 "\300\207" [(helm-source-buffers-list helm-source-recentf helm-source-buffer-not-found)] 1] "Default sources list used in `helm-mini'.\n\nWhen adding a source here it is up to you to ensure the library\nof this 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\nadd it here as there is no need to compute it, but sometimes it\nmay be a mode-line specification which may be costly to compute,\nin this case add here the pretty name as a string to avoid this\ncostly computation. Also if some pretty names are too long you\ncan add your own abbreviation here." (alist :key-type symbol :value-type string) helm-buffers-maybe-switch-to-tab #[0 "\300\207" [nil] 1] "Switch to buffer in its tab when non nil.\nThis has no effect when `tab-bar-mode' is not available." helm-buffer-list-reorder-fn #[0 "\300\207" [helm-buffers-reorder-buffer-list] 1] "A function in charge of ordering the initial buffer list.\nIt takes two arguments VISIBLES buffers and OTHERS buffers.\nArg VISIBLES handles the buffers visibles in this frame.\nArg OTHERS handles all the other buffers.\nYou can write a function that reorder VISIBLES and OTHERS as you\nwant.\nDefault function returns OTHERS buffers on top and VISIBLES\nbuffer at the end. See `helm-buffers-reorder-buffer-list'." helm-buffers-sort-fn #[0 "\207" [helm-fuzzy-sort-fn] 1] "The sort function to use in `helm-buffers-list'.\n\nDefault to `helm-fuzzy-sort-fn' you can use\n`helm-fuzzy-matching-sort-fn-preserve-ties-order' as alternative if\nyou want to keep the recentest order when narrowing candidates." helm-buffers-faces "Customize the appearance of helm-buffers." :prefix "helm-" helm-faces custom-declare-face helm-buffer-saved-out t append 27 (:extend t) (:foreground "red" :background "black") "Face used for buffer files modified outside of emacs." helm-buffer-not-saved (:extend t) (:foreground "Indianred2") "Face used for buffer files not already saved on disk." helm-buffer-modified (:extend t) (:inherit font-lock-comment-face) "Face used for modified buffers." helm-no-file-buffer-modified (:extend t) (:foreground "orange" :background "black") helm-buffer-size ((background dark)) (:extend t) (:foreground "RosyBrown") ((background light)) (:extend t) (:foreground "SlateGray") "Face used for buffer size." helm-buffer-process (:extend t) (:foreground "Sienna3") "Face used for process status in buffer." helm-buffer-directory (:extend t) (:foreground "DarkRed" :background "LightGray") "Face used for directories in `helm-buffers-list'." helm-buffer-file (:extend t) (:inherit font-lock-builtin-face) "Face for buffer file names in `helm-buffers-list'." helm-buffer-archive (:extend t) (:foreground "Gold") "Face for archive file names in `helm-buffers-list'." helm-non-file-buffer (:extend t) (:inherit italic) "Face used for non-file buffers in `helm-buffers-list'."] 10) #@362 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)) See bug#1917. Note that this variable is buffer-local. (defvar helm-buffers-tick-counter nil (#$ . 7135)) (make-variable-buffer-local 'helm-buffers-tick-counter) #@36 Keymap for buffer sources in helm. (defvar helm-buffer-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\345#\210\303\346\347#\210\303\350\351#\210\303\352\353#\210\303\354\355#\210\303\356\357#\210\360\361!\203\227\303\362\363#\210\207" [helm-map make-sparse-keymap set-keymap-parent define-key [134217831 115] helm-buffer-run-zgrep "" helm-buffers-run-occur "" helm-buffers-run-browse-project "o" helm-buffer-switch-other-window "" helm-buffer-switch-other-frame [134217831 134217831] helm-buffer-run-goto-line "=" helm-buffer-run-ediff [134217789] helm-buffer-run-ediff-merge [67108925] helm-buffer-diff-persistent [134217799] helm-buffer-revert-persistent "d" helm-buffer-run-kill-persistent [134217796] helm-buffer-run-kill-buffers "" helm-buffer-save-persistent "s" helm-buffer-run-save-some-buffers [201326629] helm-buffer-run-query-replace-regexp [134217765] helm-buffer-run-query-replace [134217810] helm-buffer-run-rename-buffer [134217837] helm-toggle-all-marks [134217825] helm-mark-all "" helm-toggle-buffers-details "a" helm-buffers-toggle-show-hidden-buffers [201326624] helm-buffers-mark-similar-buffers fboundp tab-bar-mode "" helm-buffers-switch-to-buffer-new-tab] 5) (#$ . 7609)) (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\310\311\">\211\203\305\304!\202\"\312\305\304!\"\313\211\211:\203X@\262G\203:]\202;\211\262\210\314!G\203N]\266\202\202Q\211\266\202A\262\202%B\266\205\315\316!\204i\317\316@\"\210\315\320!?\205u\317\320A\"\207" [helm-source-buffers-list require dired helm-set-attr candidates helm-get-attr buffer-list helm-shadow-boring-buffers helm-attr 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 (#$ . 10932)]) (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 (#$ . 11255)]) #@63 (fn CANDIDATE &optional (DISPLAY-FUNC \='switch-to-buffer)) (defalias 'helm-buffers-create-new-buffer-1 #[385 "\211\203 \211A\262\242\202\303\203\304\305\306\307G\\D\"\210\203)\310\311\312 \"!\206^\n\313\211\211\211:\203\\@\262\211A\262\242\262\314 \"\203Q\262\313\211\262\202R\315\203\\A\262\202.\266\204\316!\203pr\211q\210 \210)\202t\317!\210!\207" [helm-current-prefix-arg helm-buffers-favorite-modes auto-mode-alist switch-to-buffer signal wrong-number-of-arguments helm-buffers-create-new-buffer-1 2 intern-soft helm-comp-read "Major-mode: " nil string-match t get-buffer-create set-buffer-major-mode] 11 (#$ . 11493)]) #@18 (fn CANDIDATE) (defalias 'helm-buffers-create-new-buffer #[257 "\300!\207" [helm-buffers-create-new-buffer-1] 3 (#$ . 12165)]) #@18 (fn CANDIDATE) (defalias 'helm-buffers-create-new-buffer-ow #[257 "\300\301\"\207" [helm-buffers-create-new-buffer-1 switch-to-buffer-other-window] 4 (#$ . 12301)]) #@56 Run create new buffer other window action from keymap. (defalias 'helm-buffers-not-found-run-switch-ow #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-buffers-create-new-buffer-ow error "Running helm command outside of context"] 2 (#$ . 12475) nil]) (put 'helm-buffers-not-found-run-switch-ow 'helm-only t) #@18 (fn CANDIDATE) (defalias 'helm-buffers-create-new-buffer-of #[257 "\300\301\"\207" [helm-buffers-create-new-buffer-1 switch-to-buffer-other-frame] 4 (#$ . 12828)]) #@55 Run create new buffer other frame action from keymap. (defalias 'helm-buffers-not-found-run-switch-of #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-buffers-create-new-buffer-of error "Running helm command outside of context"] 2 (#$ . 13001) nil]) (put 'helm-buffers-not-found-run-switch-of 'helm-only t) #@51 Keymap for `helm-source-buffer-not-found' source. (defvar helm-buffer-not-found-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\207" [helm-map make-sparse-keymap set-keymap-parent define-key "o" helm-buffers-not-found-run-switch-ow "" helm-buffers-not-found-run-switch-of] 5) (#$ . 13353)) (defvar helm-source-buffer-not-found (byte-code "\301\302\303\304\305\306\307\310\311\312\313&\314&\207" [helm-buffer-not-found-map helm-make-source "Create buffer" helm-source-dummy :action helm-make-actions "Create buffer (C-u choose mode)" helm-buffers-create-new-buffer "Create buffer other window (C-u choose mode)" helm-buffers-create-new-buffer-ow "Create buffer other frame (C-u choose mode)" helm-buffers-create-new-buffer-of :keymap] 11)) #@44 Returns buffers visibles on current frame. (defalias 'helm-buffers-get-visible-buffers #[0 "\300C\301\302\303\"\300\304#\210\211\242\207" [nil walk-windows make-closure #[257 "\300\301\302!!\300\242B\240\207" [V0 buffer-name window-buffer] 5 "\n\n(fn X)"] visible] 5 (#$ . 14126)]) #@27 (fn &optional VISIBLES) (defalias 'helm-buffer-list-1 #[256 "\300 \301\211\211\211:\203*@\262\302!\262\235\204 B\262A\262\301\262\202\237\207" [buffer-list nil buffer-name] 8 (#$ . 14416)]) #@239 Default function to reorder buffer-list. Arg VISIBLES handles the buffers visibles in this frame. Arg OTHERS handles all the other buffers. This function returns OTHERS buffers on top and VISIBLES buffer at the end. (fn VISIBLES OTHERS) (defalias 'helm-buffers-reorder-buffer-list #[514 "\211\244\207" [] 4 (#$ . 14634)]) #@95 Return the current list of buffers. The list is reordered with `helm-buffer-list-reorder-fn'. (defalias 'helm-buffer-list #[0 "\301 \302!\"\207" [helm-buffer-list-reorder-fn helm-buffers-get-visible-buffers helm-buffer-list-1] 5 (#$ . 14964)]) #@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 (#$ . 15218)]) #@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 (#$ . 15394)]) #@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\n!\262\262\262\262)\207" [major-mode helm-buffer--pretty-names mode-name format-mode-line] 7 (#$ . 15765)]) #@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\203p\325\n \n\326\327\330\331& \207\203\214 \203\214\325\n \n\332\327\330\331& \207\333\n\"\203\250\325\n \n\334\327\330\305& \207\203\315\335!\203\315\336!\204\315\325\n \n\337\327\330\340& \207\203\353\335!\204\353\325\n \n\341\327\330\342& \207\203\n\343!\203\n\325\n \n\344\327\330\345& \207\203\"\325\n \n\332\327\330\331& \207rq\210 \205/ \346 U?)\203M\325\205;\n \n\347\327\350& \207\325\205U\n \n\351\327\352& \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 helm-no-file-buffer-modified nofile-mod helm-non-file-buffer nofile] 23 (#$ . 16066)]) #@136 Transformer function to highlight BUFFERS list. Should be called after others transformers i.e. (boring buffers). (fn BUFFERS SOURCE) (defalias 'helm-highlight-buffers #[514 "\204 \306\300\307\310\211$\210\310\211\211\211\211\211\211\211\211\211\211\211\f:\203\332\f@\262\f \203/\311\f\312\"\2023\311\f!\262\211A\262\242\262 \211A\262\242\262\n\211A\262\242\262 @\262\313 !\nV\203g\314 \n #\202v\n\315\n G\\\313!Z\316\"P\262G\262\fV\203\205\315\f]Z\316\" P\262 \205\236\317\320 \"\262\321 \205\246\322! \203\301! \260\202\305 !\323 !)BB\262\fA\262 \310\262\202\237\207" [helm-fuzzy-matching-highlight-fn helm-buffer-details-flag helm-buffer-max-length helm-buffers-end-truncated-string helm-buffer-max-len-mode helm-buffers-fuzzy-matching cl--assertion-failed "Wrong type argument functionp: nil" nil helm-buffer--details details string-width helm-substring-by-width make-string 32 format "%7s" helm-buffers--pattern-sans-filters "" get-buffer helm-pattern helm-buffers-column-separator] 22 (#$ . 17607)]) #@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 (#$ . 18697)]) (defalias 'helm-toggle-buffers-details #[0 "\203\302 \303! ?\304\305\306#!\207\307\310!\207" [helm-alive-p helm-buffer-details-flag helm-get-selection helm-buffer--get-preselection helm-force-update make-closure #[0 "\302\3032-\211\205,\304\301\305\302#\211\203%\306 \210\300\307 \232\203(\310\303\302\"\266\202\305\262\210\2020\207" [V0 V1 t --cl-block-nil-- re-search-forward nil helm-mark-current-line helm-get-selection throw] 5] error "Running helm command outside of context"] 7 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 (#$ . 19715)]) #@26 (fn CANDIDATES SOURCE) (defalias 'helm-buffers-sort-transformer #[514 "\204 \302\300\303\304\211$\210 \305\230\203\207\306 \")\207" [helm-buffers-sort-fn helm-pattern cl--assertion-failed "Wrong type argument functionp: nil" nil "" helm-buffers--pattern-sans-filters] 7 (#$ . 20013)]) #@23 (fn &optional TYPE) (defalias 'helm-buffers-mark-similar-buffers-1 #[256 "\301\302 !r\303\304\"\216\305@\306\"\210\307 \206 \310\311\312\313\314\315##\212\316 b\210\317 \210\320 \211\2057\212\211b\210\321y\210`)\211\206<d`W\203g\322 \210\313\314\315#\323 \204]\310\311\312#=\203]\324 \210\210\325y\210\314\210\202<\266)\322 \210\326\327\"\210\205\201\330\331G\"\210\332\333 \325\"\266\202*\207" [helm-marked-candidates internal--before-with-selected-window helm-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord helm-get-current-source get-text-property 0 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" set-window-margins selected-window] 12 (#$ . 20315)]) #@80 Mark All buffers that have same property `type' than current. I.e. same color. (defalias 'helm-buffers-mark-similar-buffers #[0 "\203*\302 \211G\303Y\203'\304\305 !r\306\307\"\216\310@\311\"\210 *\262\203'\312 \207\313 \207\314\315!\207" [helm-alive-p helm-visible-mark-overlays helm-marked-candidates 1 internal--before-with-selected-window helm-window make-closure #[0 "\301\300!\207" [V0 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"] 5 (#$ . 21250) nil]) (put 'helm-buffers-mark-similar-buffers 'helm-only t) #@20 (fn PATTERN MJM) (defalias 'helm-buffer--match-mjm #[514 "\300\301\"\205\250\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\211\211:\203c@\262\247\211\262?\211\262\203cA\262\202G\266\203\304\211\211:\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\207\207" [string-match "\\`\\*" split-string 1 nil "," "\\`!"] 14 (#$ . 21894)]) (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\"A\304#\266\202\202-\306\307\311\"\304#\266\202#\207" [helm-buffer--memo-hash gethash puthash split-string-and-unquote "" "^" mapconcat make-closure #[257 "\211\301\230\203\302\303\300\"\203\207\304!\207" [V0 "$" string-match "$\\'" regexp-quote] 4 "\n\n(fn C)"] #[257 "\211\301\230\203\302\303\300\"\203\207\304\305\306!#\207" [V0 "$" string-match "$\\'" format "[^%s]*%s" regexp-quote] 6 "\n\n(fn C)"]] 9 (#$ . 22508)]) #@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\"\2035\211\310\311O!\"?\207\211!\"\207" [helm-buffers-fuzzy-matching helm-migemo-mode string-match "\\`\\^" helm-buffer--memo-pattern identity helm-mm-migemo-string-match "\\`!" 1 nil] 10 (#$ . 23078)]) #@18 (fn CANDIDATE) (defalias 'helm-buffers--match-from-mjm #[257 "\302\303\304#\305!\306!\307\211\211:\2034@\262\310\311\"\203)\262\307\211\262\202*\312\2034A\262\202\266\204\211\203M\205Nrq\210\313 !\314\"\262)\207\312\207" [helm-pattern major-mode replace-regexp-in-string "^\\s-\\{1\\}" "" get-buffer helm-mm-split-pattern nil string-match "\\`\\*" t symbol-name helm-buffer--match-mjm] 11 (#$ . 23471)]) #@18 (fn CANDIDATE) (defalias 'helm-buffers--match-from-pat #[257 "\301!\302\211:\203\"@\262\303\304\"\204B\262A\262\202\211\237\266\204\211A\203R\302\305:\203L@\262\306#\211\262\203LA\262\202/\211\205Q\305\207\305\207" [helm-pattern helm-mm-split-pattern nil string-match "\\`\\(\\*\\|/\\|@\\)" t helm-buffer--match-pattern] 10 (#$ . 23909)]) #@18 (fn CANDIDATE) (defalias 'helm-buffers--match-from-inside #[257 "\302\303\304#\305!\306!\307\211:\203.@\262\310\311\"\203'\211\312\313\"C\244\262A\262\202\314\315\316#\266\204\317!\203\210\211\203\210rq\210\212eb\210\211\307\211\320:\203@\262\211A\262\242\262\212 \203k\321\307\320#\202p\322\307\320#!)\211\262\203A\262\202L\211\205\204\320\266\204*\207\320\207" [helm-pattern helm-migemo-mode replace-regexp-in-string "^\\s-\\{1\\}" "" get-buffer helm-mm-split-pattern nil string-match "\\`@\\(.*\\)" match-string 1 mapconcat identity " " helm-mm-3-get-patterns t helm-mm-migemo-forward re-search-forward] 14 (#$ . 24290)]) #@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\203j\211\311\211\211:\203i@\262\205X\312\314\311O\315!\"\211\262?\211\262\203iA\262\202A\207\316\207" [dired-buffers helm-pattern replace-regexp-in-string "^\\s-\\{1\\}" "" get-buffer buffer-file-name rassoc helm-mm-split-pattern nil string-match "\\`/" 1 helm-basedir t] 13 (#$ . 24965)]) #@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 (#$ . 25480)]) #@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:\203P@\262\311 \312\313\"\216\314!\210\212\306eb\210\315\316@A@\306\f\317\n8\310\n\257\"\210+\210A\262\202\266)\310\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-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] switch-to-buffer apply perform-replace 2] 17 (#$ . 25776)]) #@18 (fn CANDIDATE) (defalias 'helm-buffer-query-replace-regexp #[257 "\300\301!\207" [helm-buffer-query-replace-1 regexp] 3 (#$ . 26463)]) #@18 (fn CANDIDATE) (defalias 'helm-buffer-query-replace #[257 "\300 \207" [helm-buffer-query-replace-1] 2 (#$ . 26606)]) #@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\"\207\306!\307!\203\310!\207\311\312\313!\"\207" [helm-current-buffer get-buffer-window "*Diff*" visible kill-buffer set-window-buffer get-buffer buffer-file-name diff-buffer-with-file user-error "Buffer `%s' is not associated to a file" buffer-name] 7 (#$ . 26731)]) #@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-set-attr diff-action helm-buffer-toggle-diff helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 27158) 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 (#$ . 27516)]) #@15 (fn IGNORE) (defalias 'helm-revert-marked-buffers #[257 "\300\301\302 \"\207" [mapc helm-revert-buffer helm-marked-candidates] 4 (#$ . 27705)]) #@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-force-update] 7 (#$ . 27857)]) #@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-set-attr revert-action (helm-buffer-revert-and-update . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 28210) nil]) (put 'helm-buffer-revert-persistent 'helm-only t) #@18 (fn CANDIDATE) (defalias 'helm-buffer-save-and-update #[257 "r\302 q\210\301 \303\304\305\"\305\204\306\307\310\304\211$\210\304:\2039@\262r\311!q\210\312 \2031\313 \210)A\262\202\266 \203B\314 \210\315\316!!)\266\202)\207" [enable-recursive-minibuffers helm-marked-candidates helm-buffer-get helm-get-selection nil t cl--assertion-failed marked "No buffers need to be saved" get-buffer buffer-file-name save-buffer helm-unmark-all helm-force-update regexp-quote] 8 (#$ . 28591)]) #@18 (fn CANDIDATE) (defalias 'helm-buffer-save-some-buffers #[257 "\300\301!\210\302\303!\207" [helm-buffers-mark-similar-buffers-1 mod helm-buffer-save-and-update nil] 3 (#$ . 29098)]) #@50 Save unsaved file buffers without quitting Helm. (defalias 'helm-buffer-run-save-some-buffers #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-set-attr save-some-action (helm-buffer-save-some-buffers . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 29288) nil]) (put 'helm-buffer-run-save-some-buffers 'helm-only t) #@36 Save buffer without quitting Helm. (defalias 'helm-buffer-save-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-set-attr save-action (helm-buffer-save-and-update . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 29692) 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 (#$ . 30063)]) #@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 (#$ . 30250) nil]) (put 'helm-buffer-run-rename-buffer 'helm-only t) #@18 (fn CANDIDATE) (defalias 'helm-switch-to-buffer-at-linum #[257 "\300\301rq\210\302 )\"\303!\210eb\210\211Sy\207" [read-number "Line number: " line-number-at-pos switch-to-buffer] 4 (#$ . 30585)]) #@34 Switch to buffer at line number. (defalias 'helm-buffer-run-goto-line #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-switch-to-buffer-at-linum error "Running helm command outside of context"] 2 (#$ . 30791) nil]) (put 'helm-buffer-run-goto-line '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-set-attr kill-action (helm-buffers-persistent-kill . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 31097) nil]) (put 'helm-buffer-run-kill-persistent 'helm-only t) #@15 (fn IGNORE) (defalias 'helm-kill-marked-buffers #[257 "\301 \303\304\"\305!\203r\306 q\210\307\211)\310\311\"\207" [helm-buffer helm-marked-candidates helm-visible-mark-overlays cl-count-if kill-buffer buffer-live-p helm-buffer-get nil message "Killed %s buffer(s)"] 7 (#$ . 31477)]) #@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 (#$ . 31776) 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 (#$ . 32105) 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 (#$ . 32404) 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 (#$ . 32706) 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 (#$ . 33068) 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 (#$ . 33402) 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 (#$ . 33763) nil]) (put 'helm-buffer-switch-other-frame 'helm-only t) #@18 (fn CANDIDATE) (defalias 'helm-buffers-switch-to-buffer-other-tab #[257 "\300\301!\205#\302 \211\303:\203@\262\301!\210A\262\202\n\266\303\262\207" [fboundp switch-to-buffer-other-tab helm-marked-candidates nil] 6 (#$ . 34110)]) #@75 Run switch to buffer in other tab action from `helm-source-buffers-list'. (defalias 'helm-buffers-switch-to-buffer-new-tab #[0 "\301\302!\204 \303\304\305\306\211$\210\203\307\310!\207\311\312!\207" [helm-alive-p fboundp tab-bar-mode cl--assertion-failed (fboundp 'tab-bar-mode) "Tab-bar-mode not available" nil helm-exit-and-execute-action helm-buffers-switch-to-buffer-other-tab error "Running helm command outside of context"] 5 (#$ . 34359) nil]) (put 'helm-buffers-switch-to-buffer-new-tab 'helm-only t) #@202 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 (#$ . 34879)]) #@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 (#$ . 35215)]) #@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 (#$ . 35429) 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 (#$ . 35739) 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!\207\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 (#$ . 36067)]) #@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 (#$ . 36521)]) #@15 (fn BUFFER) (defalias 'helm-buffers-persistent-kill #[257 "\300 \301 \302\303\"\216\304:\2030@\262\305\306\307\310!\"!\210\311!\210\312\304!\210\313!\210A\262\202 \266)\304\207" [helm-marked-candidates helm-get-selection make-closure #[0 "r\303 q\210\304\211)\305\306\300!!\207" [V0 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 (#$ . 36900)]) #@18 (fn CANDIDATE) (defalias 'helm-buffers-list-persistent-action #[257 "\302!\303 \204\304\305 !\"\204\304\305!\"\204\306!\207\203/\307\310\311\"!\203/\312!\207\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 (#$ . 37503)]) #@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 \211G\302\211\303\267\202)\304\305!\210\202-\262@\262\202-@\262A@\262\202-\304\306!\210\2036\307\"\207\310\"\207" [helm-current-buffer helm-marked-candidates nil #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 12 1 19 2 29)) error "Error:You have to mark at least 1 buffer" "Error:Too many buffers marked!" ediff-merge-buffers ediff-buffers] 9 (#$ . 37886)]) #@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 (#$ . 38507)]) #@113 Multi occur action for `helm-source-buffers-list'. Can be used by any source that list buffers. (fn CANDIDATE) (defalias 'helm-multi-occur-as-action #[257 "\203 ?\202\n \304 \305\306\307\310\n!\"\206 \311\312#\313\211\211:\203B@\262\314\315\"\2051\316\317\"\211\262?\211\262\203BA\262\202\266\203\320\")\207" [helm-current-prefix-arg helm-occur-always-search-in-current helm-buffer helm-pattern helm-marked-candidates split-string buffer-local-value helm-input-local get-buffer " " t nil string-match "\\`@\\([^!]*\\)" match-string 1 helm-multi-occur-1] 10 (#$ . 38727)]) #@42 Run `helm-multi-occur-as-action' by key. (defalias 'helm-buffers-run-occur #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-multi-occur-as-action error "Running helm command outside of context"] 2 (#$ . 39330) nil]) (put 'helm-buffers-run-occur 'helm-only t) (defalias 'helm-buffers-toggle-show-hidden-buffers #[0 "\203*\302\303 \"\304>\203\305\303\306\307\304\"B #\210\202'\305\303\304\307\306\"B #\210\310 \207\311\312!\207" [helm-alive-p helm-source-buffers-list helm-get-attr filtered-candidate-transformer helm-shadow-boring-buffers helm-set-attr 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) #@43 Browse project from buffer BUF. (fn BUF) (defalias 'helm-buffers-browse-project #[257 "r\211q\210\301!)\207" [helm-current-prefix-arg helm-browse-project] 3 (#$ . 40106)]) #@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 (#$ . 40286) nil]) #@132 Remove buffers matching `helm-boring-buffer-regexp-list' in BUFFERS. Where BUFFERS is a list of buffer names. (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 (#$ . 40659)]) #@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 (#$ . 40952)]) #@39 Preconfigured `helm' to list buffers. (defalias 'helm-buffers-list #[0 "\204 \304\305\306\"\307\310\311\312\313\314 \315\n\316 &\n\207" [helm-source-buffers-list helm-buffer-map helm-buffers-truncate-lines helm-buffers-left-margin-width helm-make-source "Buffers" helm-source-buffers helm :sources (helm-source-buffers-list helm-source-buffer-not-found) :buffer "*helm buffers*" :keymap :truncate-lines :left-margin-width] 11 (#$ . 41218) nil]) #@62 Preconfigured `helm' displaying `helm-mini-default-sources'. (defalias 'helm-mini #[0 "\304\305!\210\204 \306\307\310\"\311\312 \313\314\315\316\317\n\320 &\n\207" [helm-source-buffers-list helm-mini-default-sources helm-buffers-truncate-lines helm-buffers-left-margin-width require helm-x-files helm-make-source "Buffers" helm-source-buffers helm :sources :buffer "*helm mini*" :ff-transformer-show-only-basename nil :truncate-lines :left-margin-width] 11 (#$ . 41672) 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 (#$ . 42157) nil]) (provide 'helm-buffers)