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

Chizi123
2018-11-17 5cb5f70b1872a757e93ea333b0e2dca50c6c8957
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\305\306\307\310\311\312\313\314&\210\315\316\317\320\321\322\313\306&\210\315\323\324\325\321\326\313\306&\207" [require ibuffer ibuf-ext vc-hooks cl-lib custom-declare-group ibuffer-vc nil "Group ibuffer entries according to their version control status." :prefix "ibuffer-vc-" :group convenience custom-declare-variable ibuffer-vc-skip-if-remote t "If non-nil, don't query the VC status of remote files." :type boolean ibuffer-vc-include-function 'identity "A function which tells whether a given file should be grouped.\n\nThe function is passed a filename, and should return non-nil if the file\nis to be grouped.\n\nThis option can be used to exclude certain files from the grouping mechanism." function] 8)
16 #@65 Return t iff FILE should be included in ibuffer-vc's filtering.
17 (defalias 'ibuffer-vc--include-file-p #[(file) "\205    \203\303!?\205\n!\207" [file ibuffer-vc-skip-if-remote ibuffer-vc-include-function file-remote-p] 2 (#$ . 1189)])
18 #@69 Return the vc backend for FILE, or nil if not under VC supervision.
19 (defalias 'ibuffer-vc--deduce-backend #[(file) "\306\307!\203\3101\307!0\207\210\311\207\312!\206E    \311\313\311\n:\203C\n@\314 \315#\2038 \311\211\2029\313\203C\nA\211\202! ,\207" [file vc-handled-backends #1=#:--cl-var-- backend #2=#:--cl-var-- #3=#:--cl-var-- fboundp vc-responsible-backend (error) nil vc-backend t vc-call-backend responsible-p] 5 (#$ . 1435)])
20 #@122 Return a cons cell (backend-name . root-dir) for BUF.
21 If the file is not under version control, nil is returned instead.
22 (defalias 'ibuffer-vc-root #[(buf) "rq\210\306    \206\n\n!)\307 !\205|\310 !\211\205{\311\312\313\314\f!\227\"!\315 !\2031 !\202t\f\316>\203=\317 !\202t\f\320>\203J\321 \322\"\202t\f\323>\203]\321 \324\"\206t \325P\202t\f\326>\203p\321 \327\"\206t \325P\202t\330\331\f\"\f*B))\207" [buf buffer-file-name default-directory file-name backend root-fn-name file-truename ibuffer-vc--include-file-p ibuffer-vc--deduce-backend intern format "vc-%s-root" symbol-name fboundp (darcs DARCS) vc-darcs-find-root (cvs CVS) vc-find-root "CVS" (rcs RCS) "RCS" ",v" (src SRC) ".src" error "ibuffer-vc: don't know how to find root for vc backend '%s' - please submit a bug report or patch" root-dir] 6 (#$ . 1896)])
23 #@48 Read a cons cell of (backend-name . root-dir).
24 (defalias 'ibuffer-vc-read-filter #[nil "\301\302\303\304\305$!@\306\307\304\211\305$B\207" [vc-handled-backends read-from-string completing-read "VC backend: " nil t read-directory-name "Root directory: "] 6 (#$ . 2745)])
25 #@60 Toggle current view to buffers with vc root dir QUALIFIER.
26 (defalias 'ibuffer-filter-by-vc-root #[(qualifier) "\301\302B!\210\303\304\305\306\"\"\210\307\310\311\"\207" [qualifier ibuffer-push-filter vc-root message "%s" format "Filter by vc root dir added:  %s" ibuffer-update nil t] 5 (#$ . 3022) (list (ibuffer-vc-read-filter))])
27 (byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist vc-root "vc root dir" #[(buf qualifier) "\3041\305!\211\205     \n\232))0\207\210\306 \210\307\207" [buf #:ibuffer-aif-sym it qualifier (error) ibuffer-vc-root ibuffer-pop-filter nil] 3]] 3)
28 #@77 Create a set of ibuffer filter groups based on the vc root dirs of buffers.
29 (defalias 'ibuffer-vc-generate-filter-groups-by-vc-root #[nil "\301\302\303\304\305\306 \"\"!\304\307\")\207" [roots ibuffer-remove-duplicates delq nil mapcar ibuffer-vc-root buffer-list #[(vc-root) "\301\302@A#\300BCB\207" [vc-root format "%s:%s"] 4]] 6 (#$ . 3621)])
30 #@57 Set the current filter groups to filter by vc root dir.
31 (defalias 'ibuffer-vc-set-filter-groups-by-vc-root #[nil "\302 \303\304!\210\305\306!\211\205r    q\210\307    !\210\310\311\312\"))\207" [ibuffer-filter-groups ibuf ibuffer-vc-generate-filter-groups-by-vc-root message "ibuffer-vc: groups set" get-buffer "*Ibuffer*" pop-to-buffer ibuffer-update nil t] 4 (#$ . 3977) nil])
32 #@57 Return the `vc-state' for FILE, or nil if unregistered.
33 (defalias 'ibuffer-vc--state #[(file) "\3011    \302!0\207\210\303\207" [file (error) vc-state nil] 2 (#$ . 4360)])
34 #@65 Return a short string to represent the current buffer's status.
35 (defalias 'ibuffer-vc--status-string #[nil "\205\302!\205\303!\211\203\304    !\202\305)\207" [buffer-file-name state ibuffer-vc--include-file-p ibuffer-vc--state symbol-name "-"] 3 (#$ . 4537)])
36 (defalias 'ibuffer-make-column-vc-status #[(buffer mark) "\210r    q\210\302 )\207" [mark buffer ibuffer-vc--status-string] 1])
37 (put 'ibuffer-make-column-vc-status 'ibuffer-column-name "VC status")
38 (defalias 'ibuffer-make-column-vc-status-mini #[(buffer mark) "\210r    q\210\n\203e\304\n!\203e\305\n!\211\306=\203\307\202a \310=\203(\311\202a \312=\2032\313\202a \314=\203<\315\202a \316=\203F\317\202a \320>\203P\321\202a \322=\203Z\323\202a \324>\205a\325)\202f\326)\207" [mark buffer buffer-file-name state ibuffer-vc--include-file-p ibuffer-vc--state added "A" removed "D" up-to-date "=" edited "*" needs-update "O" (conflict needs-merge unlocked-changes) "!" ignored "I" (nil unregistered missing) "?" " "] 3])
39 (put 'ibuffer-make-column-vc-status-mini 'ibuffer-column-name "V")
40 #@38 Sort the buffers by their vc status.
41 (defalias 'ibuffer-do-sort-by-vc-status #[nil "\303\211    =\203 \n?\304\305!\210\303\211\207" [ibuffer-sorting-mode ibuffer-last-sorting-mode ibuffer-sorting-reversep vc-status ibuffer-redisplay t] 3 (#$ . 5612) nil])
42 (byte-code "\301\302\303EB\304\305!\207" [ibuffer-sorting-functions-alist vc-status "vc status" #[(a b) "r@q\210    )r\n@q\210    )\211\203, \203,r@q\210\305 )r\n@q\210\305 )\231\202/\f??*\207" [a buffer-file-name b file2 file1 ibuffer-vc--status-string] 3] provide ibuffer-vc] 3)