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

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
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 (require 'magit)
16 (defvar magit-find-file-hook nil)
17 (add-hook 'magit-find-file-hook 'magit-blob-mode)
18 #@116 View FILE from REV.
19 Switch to a buffer visiting blob REV:FILE,
20 creating one if none already exists.
21
22 (fn REV FILE)
23 (defalias 'magit-find-file #[514 "\300\301\"!\207" [switch-to-buffer magit-find-file-noselect] 6 (#$ . 510) (magit-find-file-read-args "Find file")])
24 #@129 View FILE from REV, in another window.
25 Like `magit-find-file', but create a new window or reuse an
26 existing one.
27
28 (fn REV FILE)
29 (defalias 'magit-find-file-other-window #[514 "\300\301\"!\207" [switch-to-buffer-other-window magit-find-file-noselect] 6 (#$ . 784) (magit-find-file-read-args "Find file in other window")])
30 #@15 
31
32 (fn PROMPT)
33 (defalias 'magit-find-file-read-args #[257 "\300\301!\211\302\"D\207" [magit-read-branch-or-commit "Find file from revision" magit-read-file-from-rev] 6 (#$ . 1112)])
34 #@134 Read FILE from REV into a buffer and return the buffer.
35 FILE must be relative to the top directory of the repository.
36
37 (fn REV FILE)
38 (defalias 'magit-find-file-noselect #[514 "\300\301#\207" [magit-find-file-noselect-1 magit-find-file-hook] 6 (#$ . 1302)])
39 #@190 Read FILE from REV into a buffer and return the buffer.
40 FILE must be relative to the top directory of the repository.
41 An empty REV stands for index.
42
43 (fn REV FILE HOOKVAR &optional REVERT)
44 (defalias 'magit-find-file-noselect-1 #[1027 "\305 \306!\203\307\"\262r\310\"q\210\203-\311=\203)\312\313\314\315 \"!\204-\203d\316\230\2037\317\202<\320\321\"\322\"\323!\324!\203Q\211\202R\262\325\304!\210\326\327\330\211\"\210\331!\210p)\207" [magit-buffer-file-name magit-buffer-revision magit-buffer-refname default-directory revert-buffer-function magit-toplevel file-name-absolute-p file-relative-name magit-get-revision-buffer-create ask-revert y-or-n-p format "%s already exists; revert it? " buffer-name "" "{index}" magit-rev-format "%H" expand-file-name file-name-directory file-exists-p make-local-variable magit-revert-rev-file-buffer revert-buffer t run-hooks] 9 (#$ . 1568)])
45 #@17 
46
47 (fn REV FILE)
48 (defalias 'magit-get-revision-buffer-create #[514 "\300\301#\207" [magit-get-revision-buffer t] 6 (#$ . 2489)])
49 #@34 
50
51 (fn REV FILE &optional CREATE)
52 (defalias 'magit-get-revision-buffer #[770 "\211\203\300\202    \301\302\303\304\232\203\305\202\306\307\310    ##!\207" [get-buffer-create get-buffer format "%s.~%s~" "" "index" subst-char-in-string 47 95] 11 (#$ . 2625)])
53 #@30 
54
55 (fn IGNORE-AUTO NOCONFIRM)
56 (defalias 'magit-revert-rev-file-buffer #[514 "\211\204B\306 \204-\3072*\211\205'\211@\310    \"\203 \311\307\312\"\210A\266\202\202\2620\204B\313\314\315\n\316\232\203:\317\202=\320\nP\"!\205z\312\321 \322    ! \206O\323\324 \210\325\326\327\n\330Q#\210+\210    \331\332 \" !\333\312!\210*\312\"\334\335!\210eb\207" [revert-without-query magit-buffer-file-name magit-buffer-refname inhibit-read-only default-directory coding-system-for-read buffer-modified-p found string-match throw t yes-or-no-p format "Revert buffer from git %s? " "" "{index}" "revision " magit-toplevel file-relative-name undecided erase-buffer magit-git-insert "cat-file" "-p" ":" remq global-diff-hl-mode-enable-in-buffers normal-mode set-buffer-modified-p nil last-coding-system-used buffer-file-coding-system after-change-major-mode-hook buffer-file-name buffer-read-only] 9 (#$ . 2893)])
57 (defvar magit-find-index-hook nil)
58 #@156 Read FILE from the index into a buffer and return the buffer.
59 FILE must to be relative to the top directory of the repository.
60
61 (fn FILE &optional REVERT)
62 (defalias 'magit-find-file-index-noselect #[513 "\300\301\302\206    \303$\207" [magit-find-file-noselect-1 "" magit-find-index-hook ask-revert] 7 (#$ . 3849)])
63 #@167 Update the index with the contents of the current buffer.
64 The current buffer has to be visiting a file in the index, which
65 is done using `magit-find-index-noselect'.
66 (defalias 'magit-update-index #[0 "\306 \307\232\204 \310\311\"\210\312\313\314\315 \"!\203\223\316\317!p    \203%\320C\321\"\210\n\322\323\324!!\325\326\327\330\331!\332\"\333$\216r\211q\210\334!\210)r\211q\210\335\336\211\336\326%\210*\266)\337 \211\203|\211\340\341\342\343\344\345    #\326\346O\343\347\350\351\352\353 P\354 &%\210)\202\355 \210\210\356\336!\210 \203\216\357C\360\"\210\266\202\227\361\362!\210\210\363\364!\211\203\247r\211q\210\365 \210)\210\366\207" [magit-buffer-refname magit-wip-before-change-mode buffer-file-coding-system coding-system-for-write default-directory magit-wip-after-apply-mode magit-file-relative-name "" user-error "%s isn't visiting the index" y-or-n-p format "Update index with contents of %s" buffer-name make-temp-file "index" magit-wip-commit-before-change " before un-/stage" get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-buffer-substring write-region nil magit-toplevel magit-call-git "update-index" "--cacheinfo" magit-git-string "ls-files" "-s" 6 "hash-object" "-t" "blob" "-w" "--path=" "--" magit--not-inside-repository-error set-buffer-modified-p magit-wip-commit-after-apply " after un-/stage" message "Abort" magit-mode-get-buffer magit-status-mode magit-refresh t] 16 (#$ . 4172) nil])
67 #@400 Edit a file located in the current repository's git directory.
68
69 When ".git", located at the root of the working tree, is a
70 regular file, then that makes it cumbersome to open a file
71 located in the actual git directory.
72
73 This command is like `find-file', except that it temporarily
74 binds `default-directory' to the actual git directory, while
75 reading the FILENAME.
76
77 (fn FILENAME &optional WILDCARDS)
78 (defalias 'magit-find-git-config-file #[513 "\300\"\207" [find-file] 5 (#$ . 5721) (byte-code "\301 \302\303\304 \")\207" [default-directory magit-git-dir find-file-read-args "Find file: " confirm-nonexistent-file-or-buffer] 3)])
79 #@432 Edit a file located in the current repository's git directory, in another window.
80
81 When ".git", located at the root of the working tree, is a
82 regular file, then that makes it cumbersome to open a file
83 located in the actual git directory.
84
85 This command is like `find-file-other-window', except that it
86 temporarily binds `default-directory' to the actual git
87 directory, while reading the FILENAME.
88
89 (fn FILENAME &optional WILDCARDS)
90 (defalias 'magit-find-git-config-file-other-window #[513 "\300\"\207" [find-file-other-window] 5 (#$ . 6360) (byte-code "\301 \302\303\304 \")\207" [default-directory magit-git-dir find-file-read-args "Find file in other window: " confirm-nonexistent-file-or-buffer] 3)])
91 #@430 Edit a file located in the current repository's git directory, in another frame.
92
93 When ".git", located at the root of the working tree, is a
94 regular file, then that makes it cumbersome to open a file
95 located in the actual git directory.
96
97 This command is like `find-file-other-frame', except that it
98 temporarily binds `default-directory' to the actual git
99 directory, while reading the FILENAME.
100
101 (fn FILENAME &optional WILDCARDS)
102 (defalias 'magit-find-git-config-file-other-frame #[513 "\300\"\207" [find-file-other-frame] 5 (#$ . 7073) (byte-code "\301 \302\303\304 \")\207" [default-directory magit-git-dir find-file-read-args "Find file in other frame: " confirm-nonexistent-file-or-buffer] 3)])
103 #@31 Keymap for `magit-file-mode'.
104 (defvar magit-file-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\211\207" [make-sparse-keymap define-key "g" magit-status "\347" magit-dispatch-popup "\347" magit-file-popup] 5) (#$ . 7780))
105 #@80 Popup console for Magit commands in file-visiting buffers.
106
107 (fn &optional ARG)
108 (defalias 'magit-file-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-file-popup nil] 5 (#$ . 8045) "P"])
109 (defvar magit-file-popup (list :variable 'magit-file-arguments :actions '((115 "Stage" magit-stage-file) (68 "Diff..." magit-diff-buffer-file-popup) (76 "Log..." magit-log-buffer-file-popup) (66 "Blame..." magit-blame-popup) nil (117 "Unstage" magit-unstage-file) (100 "Diff" magit-diff-buffer-file) (108 "Log" magit-log-buffer-file) (98 "Blame" magit-blame-addition) (112 "Prev blob" magit-blob-previous) (99 "Commit" magit-commit-popup) nil (116 "Trace" magit-log-trace-definition) (114 (lambda nil (with-current-buffer magit-pre-popup-buffer (and (not buffer-file-name) (propertize "...removal" 'face 'default)))) magit-blame-removal) (110 "Next blob" magit-blob-next) (101 "Edit line" magit-edit-line-commit) nil nil (102 (lambda nil (with-current-buffer magit-pre-popup-buffer (and (not buffer-file-name) (propertize "...reverse" 'face 'default)))) magit-blame-reverse) nil) :max-action-columns 5))
110 (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-file-popup custom-declare-variable magit-file-arguments funcall function #[0 "\301\302\"\207" [magit-file-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8)
111 (defalias 'magit-file-arguments #[0 "\303=\203    \207\n\207" [magit-current-popup magit-current-popup-args magit-file-arguments magit-file-popup] 2])
112 (put 'magit-file-arguments 'definition-name 'magit-file-popup)
113 (defvar magit-file-mode-lighter "")
114 #@99 Non-nil if Magit-File mode is enabled.
115 Use the command `magit-file-mode' to change this variable.
116 (defvar magit-file-mode nil (#$ . 9736))
117 (make-variable-buffer-local 'magit-file-mode)
118 #@153 Enable some Magit features in a file-visiting buffer.
119
120 Currently this only adds the following key bindings.
121
122 \{magit-file-mode-map}
123
124 (fn &optional ARG)
125 (defalias 'magit-file-mode #[256 "\301 \302=\203 ?\202\303!\304V\305\306\203\307\202\310\"\210\311\312!\203B\301 \2032\211\301 \232\203B\313\314\315\203=\316\202>\317#\266\210\320 \210\207" [magit-file-mode current-message toggle prefix-numeric-value 0 run-hooks magit-file-mode-hook magit-file-mode-on-hook magit-file-mode-off-hook called-interactively-p any " in current buffer" message "Magit-File mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 9928) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
126 (defvar magit-file-mode-hook nil)
127 (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\211%\207" [magit-file-mode-map magit-file-mode-hook variable-documentation put "Hook run after entering or leaving `magit-file-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode magit-file-mode magit-file-mode-lighter nil] 6)
128 (defalias 'magit-file-mode-turn-on #[0 "\205\f\301\302!\205\f\303 \207" [buffer-file-name magit-inside-worktree-p t magit-file-mode] 2])
129 (defvar magit-file-mode-major-mode nil)
130 (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\314\316\317\320\321\322\323\324&\207" [make-variable-buffer-local magit-file-mode-major-mode custom-declare-variable global-magit-file-mode funcall function #[0 "\300\207" [t] 1] "Non-nil if Global Magit-File mode is enabled.\nSee the `global-magit-file-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-magit-file-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group magit-essentials magit-modes :type boolean :package-version (magit . "2.13.0") :link (info-link "(magit)Minor Mode for Buffers Visiting Files")] 18)
131 #@365 Toggle Magit-File mode in all buffers.
132 With prefix ARG, enable Global Magit-File mode if ARG is positive;
133 otherwise, disable it.  If called from Lisp, enable the mode if
134 ARG is omitted or nil.
135
136 Magit-File mode is enabled in all buffers where
137 `magit-file-mode-turn-on' would do it.
138 See `magit-file-mode' for more information on Magit-File mode.
139
140 (fn &optional ARG)
141 (defalias 'global-magit-file-mode #[256 "\302 \303\300\304=\203\305\300!?\202\306!\307V\"\210\203.\310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\202=\317\311\312\"\210\317\313\314\"\210\317\315\316\"\210\320 \211\203c\211@r\211q\210\203S\321 \210\202[    \203[\301\322!\210)A\266\202\202?\210\323\324\305\300!\203p\325\202q\326\"\210\327\330!\203\233\331\300!\210\302 \203\211\211\302 \232\203\233\332\333\334\305\300!\203\226\335\202\227\336#\266\210\337 \210\305\300!\207" [global-magit-file-mode magit-file-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-magit-file-mode-enable-in-buffers find-file-hook global-magit-file-mode-check-buffers change-major-mode-hook global-magit-file-mode-cmhh remove-hook buffer-list magit-file-mode-turn-on -1 run-hooks global-magit-file-mode-hook global-magit-file-mode-on-hook global-magit-file-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Magit-File mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 12013) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
142 (defvar global-magit-file-mode-hook nil)
143 (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [global-magit-file-mode-map global-magit-file-mode-hook variable-documentation put "Hook run after entering or leaving `global-magit-file-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode global-magit-file-mode nil boundp] 6)
144 (defvar magit-file-mode-set-explicitly nil nil)
145 (make-variable-buffer-local 'magit-file-mode-set-explicitly)
146 (defalias 'magit-file-mode-set-explicitly #[0 "\301\211\207" [magit-file-mode-set-explicitly t] 2])
147 (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put magit-file-mode-set-explicitly definition-name global-magit-file-mode add-hook magit-file-mode-hook] 4)
148 (defvar global-magit-file-mode-buffers nil)
149 (defalias 'global-magit-file-mode-enable-in-buffers #[0 "\211\2056\211@\305!\203/r\211q\210    \204,\n =\204,\f\203)\304\306!\210\307 \210\202,\307 \210 )A\266\202\202\207" [global-magit-file-mode-buffers magit-file-mode-set-explicitly magit-file-mode-major-mode major-mode magit-file-mode buffer-live-p -1 magit-file-mode-turn-on] 4])
150 (put 'global-magit-file-mode-enable-in-buffers 'definition-name 'global-magit-file-mode)
151 (defalias 'global-magit-file-mode-check-buffers #[0 "\301 \210\302\303\304\305\"\207" [global-magit-file-mode-buffers global-magit-file-mode-enable-in-buffers nil remove-hook post-command-hook global-magit-file-mode-check-buffers] 3])
152 (put 'global-magit-file-mode-check-buffers 'definition-name 'global-magit-file-mode)
153 (defalias 'global-magit-file-mode-cmhh #[0 "\300\301p\"\210\302\303\304\"\207" [add-to-list global-magit-file-mode-buffers add-hook post-command-hook global-magit-file-mode-check-buffers] 3])
154 (byte-code "\301\302\303\300#\210\203\300\304!\210\301\207" [global-magit-file-mode put global-magit-file-mode-cmhh definition-name 1] 4)
155 #@31 Keymap for `magit-blob-mode'.
156 (defvar magit-blob-mode-map (byte-code "\300 \301\302!\203)\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\202G\303\316\305#\210\303\317\307#\210\303\320\311#\210\303\321\313#\210\303\314\315#\210\303\322\323#\210\211\207" [make-sparse-keymap featurep jkl define-key "i" magit-blob-previous "k" magit-blob-next "j" magit-blame-addition "l" magit-blame-removal "f" magit-blame-reverse "p" "n" "b" "r" "q" magit-kill-this-buffer] 5) (#$ . 15505))
157 #@99 Non-nil if Magit-Blob mode is enabled.
158 Use the command `magit-blob-mode' to change this variable.
159 (defvar magit-blob-mode nil (#$ . 16037))
160 (make-variable-buffer-local 'magit-blob-mode)
161 #@152 Enable some Magit features in blob-visiting buffers.
162
163 Currently this only adds the following key bindings.
164
165 \{magit-blob-mode-map}
166
167 (fn &optional ARG)
168 (defalias 'magit-blob-mode #[256 "\301 \302=\203 ?\202\303!\304V\305\306\203\307\202\310\"\210\311\312!\203B\301 \2032\211\301 \232\203B\313\314\315\203=\316\202>\317#\266\210\320 \210\207" [magit-blob-mode current-message toggle prefix-numeric-value 0 run-hooks magit-blob-mode-hook magit-blob-mode-on-hook magit-blob-mode-off-hook called-interactively-p any " in current buffer" message "Magit-Blob mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 16230) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
169 (defvar magit-blob-mode-hook nil)
170 (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [magit-blob-mode-map magit-blob-mode-hook variable-documentation put "Hook run after entering or leaving `magit-blob-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode magit-blob-mode nil boundp] 6)
171 #@54 Visit the next blob which modified the current file.
172 (defalias 'magit-blob-next #[0 "\203\302\303    \"\206 \304 \"\207\305\306 !\203\307\310!\207\307\311!\207" [magit-buffer-file-name magit-buffer-revision magit-blob-visit magit-blob-successor line-number-at-pos buffer-file-name buffer-base-buffer user-error "You have reached the end of time" "Buffer isn't visiting a file or blob"] 4 (#$ . 17362) nil])
173 #@58 Visit the previous blob which modified the current file.
174 (defalias 'magit-blob-previous #[0 "\206\302\303 !\211\203$\304    \"\211\203\305\306 \"\202\307\310!\262\202'\307\311!\207" [magit-buffer-file-name magit-buffer-revision buffer-file-name buffer-base-buffer magit-blob-ancestor magit-blob-visit line-number-at-pos user-error "You have reached the beginning of time" "Buffer isn't visiting a file or blob"] 5 (#$ . 17780) nil])
175 #@26 
176
177 (fn BLOB-OR-FILE LINE)
178 (defalias 'magit-blob-visit #[514 ";\203\f\300!\210\202,@A\211@A\301\"\210\302\303\304\305\306\"\307\305\310\"!$\266eb\210\211Sy\207" [find-file magit-find-file apply message "%s (%s %s ago)" magit-rev-format "%s" magit--age "%ct"] 16 (#$ . 18228)])
179 #@17 
180
181 (fn REV FILE)
182 (defalias 'magit-blob-ancestor #[514 "\301 \211\203\211\302\303\304\305\306\307\206\310\311    &)\202\312 \262\203+\211AA\202/\313\314\"\207" [default-directory magit-toplevel magit-git-lines "log" "-2" "--format=%H" "--name-only" "--follow" "HEAD" "--" magit--not-inside-repository-error butlast 2] 12 (#$ . 18524)])
183 #@17 
184
185 (fn REV FILE)
186 (defalias 'magit-blob-successor #[514 "\301 \211\203\211\302\303\304\305\306\307\310&)\202\311 \262\3122A\211\205@\3138\232\2038\314\312@A@D\"\210\202\211AA\262\2020\207" [default-directory magit-toplevel magit-git-lines "log" "--format=%H" "--name-only" "--follow" "HEAD" "--" magit--not-inside-repository-error found 2 throw] 11 (#$ . 18877)])
187 #@111 Rename the FILE to NEWNAME.
188 If FILE isn't tracked in Git, fallback to using `rename-file'.
189
190 (fn FILE NEWNAME)
191 (defalias 'magit-file-rename #[514 "\302\303!!\203M\304!\211\203\305!\203\306\307\"\210\310!\203%\306\311\"\210\312\313\303!\303!#\210\211\205Lr\211q\210\314!\210)\315\316!\203I\316 \202K\317 )\207\320    #\210\321 \207" [buffer-read-only current-prefix-arg magit-file-tracked-p magit-convert-filename-for-git get-file-buffer buffer-modified-p user-error "Save %s before moving it" file-exists-p "%s already exists" magit-run-git "mv" set-visited-file-name fboundp vc-refresh-state vc-find-file-hook rename-file magit-refresh] 8 (#$ . 19267) (byte-code "\300\301!\302!\303\304\305\"\205\306!\"\306\307 \"\306!D\207" [magit-read-file "Rename file" file-name-directory read-file-name format "Rename %s to file: " expand-file-name magit-toplevel] 6)])
192 #@189 Untrack the selected FILES or one file read in the minibuffer.
193
194 With a prefix argument FORCE do so even when the files have
195 staged as well as unstaged changes.
196
197 (fn FILES &optional FORCE)
198 (defalias 'magit-file-untrack #[513 "\300\301\302\205\303\304%\207" [magit-run-git "rm" "--cached" "--force" "--"] 8 (#$ . 20160) (byte-code "\301\302\303\"\211\203\304@!\204\305\306!\210\307\310\311#\202\312\313!C\262D\207" [current-prefix-arg magit-region-values file t magit-file-tracked-p user-error "Already untracked" magit-confirm-files untrack "Untrack" magit-read-tracked-file "Untrack file"] 5)])
199 #@256 Delete the selected FILES or one file read in the minibuffer.
200
201 With a prefix argument FORCE do so even when the files have
202 uncommitted changes.  When the files aren't being tracked in
203 Git, then fallback to using `delete-file'.
204
205 (fn FILES &optional FORCE)
206 (defalias 'magit-file-delete #[513 "\300@!\203\301\302\205\303\304$\210\202/\305 \211\203-\211@\306\307\"\310\"\210A\266\202\202\266\311 \207" [magit-file-tracked-p magit-call-git "rm" "--force" "--" magit-toplevel delete-file expand-file-name t magit-refresh] 9 (#$ . 20777) (byte-code "\301\302\303\"\211\203\304\305\306#\202\307\310!C\262D\207" [current-prefix-arg magit-region-values file t magit-confirm-files delete "Delete" magit-read-file "Delete file"] 5)])
207 #@40 Checkout FILE from REV.
208
209 (fn REV FILE)
210 (defalias 'magit-file-checkout #[514 "\301 \211\203\211\302\303\304$)\202\305 \207" [default-directory magit-toplevel magit-run-git "checkout" "--" magit--not-inside-repository-error] 8 (#$ . 21528) (byte-code "\301\302\"\211\303\304\"D\207" [magit-buffer-revision magit-read-branch-or-commit "Checkout from revision" magit-read-file-from-rev "Checkout file"] 5)])
211 (defvar magit-read-file-hist nil)
212 #@37 
213
214 (fn REV PROMPT &optional DEFAULT)
215 (defalias 'magit-read-file-from-rev #[770 "\300!\301\302\303\302\304\206\305 \235@&\207" [magit-revision-files magit-completing-read nil t magit-read-file-hist magit-current-file] 13 (#$ . 21981)])
216 #@38 
217
218 (fn PROMPT &optional TRACKED-ONLY)
219 (defalias 'magit-read-file #[513 "\300 ?\205    \301 \244\302\303\304\303\211\305\306!\206\307\303\n\"\235@&\207" [magit-list-files magit-untracked-files magit-completing-read nil t magit-section-value-if (file submodule) magit-file-relative-name] 13 (#$ . 22231)])
220 #@15 
221
222 (fn PROMPT)
223 (defalias 'magit-read-tracked-file #[257 "\300\301\"\207" [magit-read-file t] 4 (#$ . 22547)])
224 #@319 Read file from FILES.
225
226 If FILES has only one member, return that instead of prompting.
227 If FILES has no members, give a user error.  ERROR can be given
228 to provide a more informative error.
229
230 If DEFAULT is non-nil, use this as the default value instead of
231 `magit-current-file'.
232
233 (fn PROMPT FILES &optional ERROR DEFAULT)
234 (defalias 'magit-read-file-choice #[1026 "G\211\300\267\202\301\206\302!\202+@\202+\303\304\305\304\306\206%\307  \235@&\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 8 1 18)) user-error "No file choices" magit-completing-read nil t magit-read-file-hist magit-current-file] 14 (#$ . 22664)])
235 #@46 
236
237 (fn REV-OR-RANGE PROMPT &optional DEFAULT)
238 (defalias 'magit-read-changed-file #[770 "\300\301!\302P$\207" [magit-read-file-choice magit-changed-files "No file changed in "] 9 (#$ . 23344)])
239 #@32 
240
241 (fn PROMPT INITIAL-CONTENTS)
242 (defalias 'magit-read-files #[514 "\300\301\302\206\303\304 \305\211%\306#\207" [mapconcat identity completing-read-multiple "File,s: " magit-list-files nil ","] 10 (#$ . 23547)])
243 (provide 'magit-files)