-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathmagit.elc
486 lines (475 loc) · 125 KB
/
magit.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
;ELC
;;; Compiled by [email protected] on Tue Oct 27 23:31:17 2009
;;; from file /Volumes/Files/Downloads/New files/magit-0.7/magit.el
;;; in Emacs version 22.1.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19.29")))
(error "`magit.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\313\314\315&\207" [require cl parse-time log-edit easymenu diff-mode custom-declare-group magit nil "Controlling Git from Emacs." :prefix "magit-" :group tools] 8)
#@33 The name of the Git executable.
(custom-declare-variable 'magit-git-executable '"git" '(#$ . 843) :group 'magit :type 'string)
#@36 Standard options when running Git.
(custom-declare-variable 'magit-git-standard-options ''("--no-pager") '(#$ . 976) :group 'magit :type '(repeat string))
#@199 Non-nil means that \[magit-status] will save modified buffers before running.
Setting this to t will ask which buffers to save, setting it to 'dontask will
save all modified buffers without asking.
(custom-declare-variable 'magit-save-some-buffers 't '(#$ . 1138) :group 'magit :type '(choice (const :tag "Never" nil) (const :tag "Ask" t) (const :tag "Save without asking" dontask)))
#@367 Determines what \[magit-log-edit] does when nothing is staged.
Setting this to nil will make it do nothing, setting it to t will arrange things so that the actual commit command will use the "--all" option, setting it to 'ask will first ask for confirmation whether to do this, and setting it to 'ask-stage will cause all changes to be staged, after a confirmation.
(custom-declare-variable 'magit-commit-all-when-nothing-staged ''ask '(#$ . 1529) :group 'magit :type '(choice (const :tag "No" nil) (const :tag "Always" t) (const :tag "Ask" ask) (const :tag "Ask to stage everything" ask-stage)))
#@43 When performing git commit adds --signoff
(custom-declare-variable 'magit-commit-signoff 'nil '(#$ . 2132) :group 'magit :type 'boolean)
#@70 The maximum number of commits to show in the log and whazzup buffers
(custom-declare-variable 'magit-log-cutoff-length '100 '(#$ . 2275) :group 'magit :type 'integer)
#@76 Popup the process buffer if a command takes longer than this many seconds.
(custom-declare-variable 'magit-process-popup-time '-1 '(#$ . 2448) :group 'magit :type '(choice (const :tag "Never" -1) (const :tag "Immediately" 0) (integer :tag "After this many seconds")))
#@64 Require acknowledgement before cancelling the log edit buffer.
(custom-declare-variable 'magit-log-edit-confirm-cancellation 'nil '(#$ . 2722) :group 'magit :type 'boolean)(if macro-declaration-function (funcall macro-declaration-function (quote magit-with-refresh) (quote (declare (indent 0)))))
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\210\300\317\320\321\304\305%\210\300\322\323\324\304\305%\210\300\325\326\327\304\305%\210\300\330\331\332\304\305%\210\300\333\334\335\304\305%\210\300\336\337\340\304\305%\210\300\341\342\343\304\305%\210\300\344\345\346\304\305%\207" [custom-declare-face magit-header ((t)) "Face for generic header lines.\n\nMany Magit faces inherit from this one by default." :group magit magit-section-title ((t :weight bold :inherit magit-header)) "Face for section titles." magit-branch ((t :weight bold :inherit magit-header)) "Face for the current branch." magit-diff-file-header ((t :inherit magit-header)) "Face for diff file header lines." magit-diff-hunk-header ((t :slant italic :inherit magit-header)) "Face for diff hunk header lines." magit-diff-add ((((class color) (background light)) :foreground "blue1") (((class color) (background dark)) :foreground "white")) "Face for lines in a diff that have been added." magit-diff-none ((t)) "Face for lines in a diff that are unchanged." magit-diff-del ((((class color) (background light)) :foreground "red") (((class color) (background dark)) :foreground "OrangeRed")) "Face for lines in a diff that have been deleted." magit-item-highlight ((((class color) (background light)) :background "gray95") (((class color) (background dark)) :background "dim gray")) "Face for highlighting the current item." magit-item-mark ((((class color) (background light)) :foreground "red") (((class color) (background dark)) :foreground "orange")) "Face for highlighting marked item." magit-log-tag-label ((((class color) (background light)) :background "LightGoldenRod") (((class color) (background dark)) :background "DarkGoldenRod")) "Face for git tag labels shown in log buffer." magit-log-head-label ((((class color) (background light)) :background "spring green") (((class color) (background dark)) :background "DarkGreen")) "Face for branch head labels shown in log buffer."] 6)
(defalias 'magit-with-refresh '(macro . #[(&rest body) "\301\302\303BBD\207" [body magit-refresh-wrapper lambda nil] 4]))
(defalias 'magit-use-region-p #[nil "\302\303!\203 \303 \207\205 \207" [transient-mark-mode mark-active fboundp use-region-p] 2])
(defalias 'magit-goto-line #[(line) "\214~\210\301b\210Sy)\207" [line 1] 1])
(defalias 'magit-format-shell-command #[(fmt args) "\302\303\304\305 \"#\207" [fmt args apply format mapcar magit-escape-for-shell] 6])
(defalias 'magit-format-git-command #[(fmt args) "\304\305\306\307 B\"\"\305\310\n \"Q\207" [magit-git-executable magit-git-standard-options fmt args magit-concat-with-delim " " mapcar magit-escape-for-shell magit-format-shell-command] 6])
(defalias 'magit-shell-lines #[(command) "\303!\211\304\230?\205 \305 \306\"\237\211@\304\230\203 \nA\n\237))\207" [command str lines magit-shell-command-to-string "" split-string "\n"] 4])
(defalias 'magit-shell-command-to-string #[(command) "\304\305\306!!\211rq\210\307 \310\311\310\n &\210*rq\210\312 \313\310!\210*\207" [standard-output shell-file-name shell-command-switch command get-buffer-create generate-new-buffer-name " *string-output*" process-file nil t buffer-string kill-buffer] 8])
(defalias 'magit-shell #[(command) "\302!\211\303\230?\205 \211GS\234\304\232\203 \305 GSO\202 )\207" [command str magit-shell-command-to-string "" 10 0] 4])
(defalias 'magit-git-lines #[(fmt &rest args) "\302\303 \"!\207" [fmt args magit-shell-lines magit-format-git-command] 4])
(defalias 'magit-git-string #[(fmt &rest args) "\302\303 \"!\207" [fmt args magit-shell magit-format-git-command] 4])
(defalias 'magit-git-exit-code #[(fmt &rest args) "\304\305\211\211 \306\n \"&\207" [shell-file-name shell-command-switch fmt args call-process nil magit-format-git-command] 9])
(defalias 'magit-file-lines #[(file) "\303!\205* \304\305!\306\216r q\210\307!\210\310\311 \312\"\237\211@\313\232\203' \nA\202( \n\237,\207" [file #1=#:temp-buffer rev file-exists-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents split-string buffer-string "\n" ""] 4])
(defalias 'magit-write-file-lines #[(file lines) "\305\306!\307\216rq\210 \310\211\203! @\211\311\261\210 A\211\204 *\312\f!+\207" [#1=#:temp-buffer lines l #2=#:--cl-dolist-temp-- file generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nil "\n" write-file] 3])
(defalias 'magit-concat-with-delim #[(delim seqs) "\204 \302\207A\204 @\207@ \303 A\"Q\207" [seqs delim nil magit-concat-with-delim] 5])
(defalias 'magit-get #[(&rest keys) "\301\302\303\304\"\"\207" [keys magit-git-string "config %s" magit-concat-with-delim "."] 5])
(defalias 'magit-set #[(val &rest keys) "\203 \302\303\304\305 \"#\207\302\306\304\305 \"\"\207" [val keys magit-git-string "config %s %s" magit-concat-with-delim "." "config --unset %s"] 5])
(defalias 'magit-get-top-dir #[(cwd) "\303!\304!\205 \305\306!\211\205 \307\310\n!\206 !*)\207" [cwd default-directory magit-dir expand-file-name file-directory-p magit-git-string "rev-parse --git-dir 2>/dev/null" file-name-as-directory file-name-directory] 4])
(defalias 'magit-get-ref #[(ref) "\301\302\"\207" [ref magit-git-string "symbolic-ref -q %s"] 3])
(defalias 'magit-get-current-branch #[nil "\302\303!\211\205\f \304\305\"\211\205 \306\307O*\207" [head pos magit-get-ref "HEAD" string-match "^refs/heads/" 11 nil] 4])
(defalias 'magit-read-top-dir #[nil "\301\302\303\304!\206\n \"!\207" [default-directory file-name-as-directory read-directory-name "Git repository: " magit-get-top-dir] 5])
(defalias 'magit-name-rev #[(rev) "\205 \302\303\"\211\203 \304\230\203 \202 )\207" [rev name magit-git-string "name-rev --name-only %s" "undefined"] 4])
(defalias 'magit-put-line-property #[(prop val) "\302\303 \303\304! $\207" [prop val put-text-property line-beginning-position 2] 5])
(defalias 'magit-escape-for-shell #[(str) "\301\302\301\303#\301Q\207" [str "'" replace-regexp-in-string "'\\''"] 5])
(defalias 'magit-format-commit #[(commit format) "\302\303 #\207" [format commit magit-git-string "log --max-count=1 --pretty=format:%s %s"] 4])
(defalias 'magit-current-line #[nil "\300\301 \302 \"\207" [buffer-substring-no-properties line-beginning-position line-end-position] 3])
(defalias 'magit-insert-region #[(beg end buf) "\304 \"r q\210\nc*\207" [beg end text buf buffer-substring-no-properties] 3])
(defalias 'magit-insert-current-line #[(buf) "\302\303 \303\304!\"r q\210c*\207" [text buf buffer-substring-no-properties line-beginning-position 2] 4])
(defalias 'magit-file-uptodate-p #[(file) "\301\302\"\303=\207" [file magit-git-exit-code "diff --quiet -- %s" 0] 3])
(defalias 'magit-anything-staged-p #[nil "\300\301!\302=?\207" [magit-git-exit-code "diff --quiet --cached" 0] 2])
(defalias 'magit-everything-clean-p #[nil "\300 ?\205 \301\302!\303=\207" [magit-anything-staged-p magit-git-exit-code "diff --quiet" 0] 2])
(defalias 'magit-commit-parents #[(commit) "\301\302\"A\207" [commit magit-git-lines "rev-list -1 --parents %s | tr ' ' '\n'"] 3])
(defalias 'magit-choose-parent #[(commit op) "\303!\211G\304V\203 \305\306\n\"\202 @)\207" [commit parents op magit-commit-parents 1 error "Can't %s merge commits."] 4])
(defalias 'magit-choose-parent-id #[(commit op) "\303!\211G\304V\205 \305\306\n\")\207" [commit parents op magit-commit-parents 1 error "Can't %s merge commits."] 4])
(defalias 'magit-list-interesting-revisions #[nil "\300\301\302!\301\303!\"\207" [append magit-git-lines "branch -a | cut -c3-" "tag"] 4])
(defalias 'magit-read-rev #[(prompt &optional def) "\203\f \303\304 #\202 \303\305 \"\306 \307 \310\211\211\211&\211\311\230?\205% \n*\207" [def prompt rev format "%s (default %s): " "%s: " completing-read magit-list-interesting-revisions nil ""] 9])
(defalias 'magit-read-rev-range #[(op &optional def-beg def-end) "\305\306\307\" \"\211\205 \305\306\310\" \" \n\f)B)\207" [op def-beg beg def-end end magit-read-rev format "%s start" "%s end"] 5])
(defalias 'magit-rev-to-git #[(rev) "\204 \301\302!\210\303\230\203 \304 \207\207" [rev error "No revision specified" "." magit-marked-commit] 2])
(defalias 'magit-rev-range-to-git #[(range) "\204 \301\302!\210;\203 \207A\203 \303\304\305@!\305A!#\207\303\306\305@!\"\207" [range error "No revision range specified" format "%s..%s" magit-rev-to-git "%s"] 5])
(defalias 'magit-rev-describe #[(rev) "\204 \301\302!\210\303\230\203 \304\207\305!\207" [rev error "No revision specified" "." "mark" magit-name-rev] 2])
(defalias 'magit-rev-range-describe #[(range things) "\204 \302\303!\210;\203 \304\305 #\207A\203% \304\306 \307@!\307A!$\207\304\310 \307@!#\207" [range things error "No revision range specified" format "%s in %s" "%s from %s to %s" magit-rev-describe "%s at %s"] 6])
(defalias 'magit-default-rev #[nil "\300\301\302!!\207" [magit-name-rev magit-commit-at-point t] 3])
(byte-code "\300\301\302\303#\210\301\304N\204 \300\301\304\305#\210\300\207" [put magit-section-parent cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block magit-section-parent (or (and (memq (aref cl-x 0) cl-struct-magit-section-tags)) (error "magit-section-parent accessing a non-magit-section")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'magit-section-parent #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-magit-section-tags 0 error "magit-section-parent accessing a non-magit-section" 1] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put magit-section-parent setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander magit-section magit-section-parent #1=(and (memq (aref cl-x 0) cl-struct-magit-section-tags)) 1] 6] magit-section-title cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block magit-section-title (or #1# (error "magit-section-title accessing a non-magit-section")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'magit-section-title #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-magit-section-tags 0 error "magit-section-title accessing a non-magit-section" 2] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put magit-section-title setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander magit-section magit-section-title #1=(and (memq (aref cl-x 0) cl-struct-magit-section-tags)) 2] 6] magit-section-beginning cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block magit-section-beginning (or #1# (error "magit-section-beginning accessing a non-magit-section")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'magit-section-beginning #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-magit-section-tags 0 error "magit-section-beginning accessing a non-magit-section" 3] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put magit-section-beginning setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander magit-section magit-section-beginning #1=(and (memq (aref cl-x 0) cl-struct-magit-section-tags)) 3] 6] magit-section-end cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block magit-section-end (or #1# (error "magit-section-end accessing a non-magit-section")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'magit-section-end #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-magit-section-tags 0 error "magit-section-end accessing a non-magit-section" 4] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put magit-section-end setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander magit-section magit-section-end #1=(and (memq (aref cl-x 0) cl-struct-magit-section-tags)) 4] 6] magit-section-children cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block magit-section-children (or #1# (error "magit-section-children accessing a non-magit-section")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'magit-section-children #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-magit-section-tags 0 error "magit-section-children accessing a non-magit-section" 5] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put magit-section-children setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander magit-section magit-section-children #1=(and (memq (aref cl-x 0) cl-struct-magit-section-tags)) 5] 6] magit-section-hidden cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block magit-section-hidden (or #1# (error "magit-section-hidden accessing a non-magit-section")) (aref cl-x 6)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'magit-section-hidden #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-magit-section-tags 0 error "magit-section-hidden accessing a non-magit-section" 6] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put magit-section-hidden setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander magit-section magit-section-hidden #1=(and (memq (aref cl-x 0) cl-struct-magit-section-tags)) 6] 6] magit-section-type cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block magit-section-type (or #1# (error "magit-section-type accessing a non-magit-section")) (aref cl-x 7)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'magit-section-type #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-magit-section-tags 0 error "magit-section-type accessing a non-magit-section" 7] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put magit-section-type setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander magit-section magit-section-type #1=(and (memq (aref cl-x 0) cl-struct-magit-section-tags)) 7] 6] magit-section-info cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block magit-section-info (or #1# (error "magit-section-info accessing a non-magit-section")) (aref cl-x 8)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'magit-section-info #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-magit-section-tags 0 error "magit-section-info accessing a non-magit-section" 8] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put magit-section-info setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander magit-section magit-section-info (and #1=(memq (aref cl-x 0) cl-struct-magit-section-tags)) 8] 6] magit-section-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block magit-section-p (and (vectorp cl-x) (>= (length cl-x) 9) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'magit-section-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-magit-section-tags vectorp 9 0 t] 2])
(defalias 'copy-magit-section #[(x) "\301!\207" [x copy-sequence] 2])
(byte-code "\300\301\302\303#\210\301\304N\204 \300\301\304\305#\210\300\207" [put make-magit-section cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \312>A@ \313>A@ \314>A@ \315>A@ \203f @\316>\203M AA\211\2028 \317>A@\203\\ \320\211\2028 \321\322@\"\210\2026 )\323\324\325\326\320 \n \f&.\207" [#1# parent title beginning end children :parent :title :beginning :end :children :hidden :type :info (:parent :title :beginning :end :children :hidden :type :info :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:parent :title :beginning :end :children :hidden :type :info)" cl-defsubst-expand (parent title beginning end children hidden type info) (block make-magit-section (vector 'cl-struct-magit-section parent title beginning end children hidden type info)) t hidden type info #:--cl-keys-- cl-whole] 15 "Not documented\n\n(fn CL-WHOLE &cl-quote &key PARENT TITLE BEGINNING END CHILDREN HIDDEN TYPE INFO)"] byte-compile cl-byte-compile-compiler-macro] 4)
#@80 Not documented
(fn &key PARENT TITLE BEGINNING END CHILDREN HIDDEN TYPE INFO)
(defalias 'make-magit-section #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \312>A@ \313>A@ \314>A@ \315>A@ \203f @\316>\203M AA\211\2028 \317>A@\203\\ \320\211\2028 \321\322@\"\210\2026 )\323\324 \n \f& .\207" [#1# parent title beginning end children :parent :title :beginning :end :children :hidden :type :info (:parent :title :beginning :end :children :hidden :type :info :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:parent :title :beginning :end :children :hidden :type :info)" vector cl-struct-magit-section hidden type info #2=#:--cl-keys--] 11 (#$ . 20083)])
(byte-code "\303B\304C\305\306\307\310#\210\305\306\311\312#\210\305\306\313\314#\210\305\306\315\316#\210\305\317\320\316#\210\305\321\320\316#\210\305\322\320\323#\210\305\324\320\316#\210\305\325\320\316#\210\305\326\320\316#\210\305\327\320\316#\210\305\330\320\316#\210\305\331\320\316#\210\305\332\320\316#\210\305\333\320\316#\210\334\nB\335\334!\204p \336\334\314\"\210\337\334!\210\305\334\340\316#\210\341\nB\335\341!\204\211 \336\341\314\"\210\342\nB\335\342!\204\230 \336\342\314\"\210\314\207" [custom-print-functions cl-struct-magit-section-tags current-load-list #[(cl-x cl-s cl-n) "\303!\205\340 G\304Y\205\340 \305H >\205\340 \306\307\n\"\210\306\310\n\"\210\311\305H >\204, \312\313!\210\314H\n\"\210\306\315\n\"\210\311\305H >\204D \312\316!\210\317H\n\"\210\306\320\n\"\210\311\305H >\204\\ \312\321!\210\322H\n\"\210\306\323\n\"\210\311\305H >\204t \312\324!\210\325H\n\"\210\306\326\n\"\210\311\305H >\204\214 \312\327!\210\330H\n\"\210\306\331\n\"\210\311\305H >\204\244 \312\332!\210\333H\n\"\210\306\334\n\"\210\311\305H >\204\274 \312\335!\210\336H\n\"\210\306\337\n\"\210\311\305H >\204\324 \312\340!\210\341H\n\"\210\306\342\n\"\210\343\207" [cl-x cl-struct-magit-section-tags cl-s vectorp 9 0 princ "#S(magit-section" " parent" prin1 error "magit-section-parent accessing a non-magit-section" 1 " title" "magit-section-title accessing a non-magit-section" 2 " beginning" "magit-section-beginning accessing a non-magit-section" 3 " end" "magit-section-end accessing a non-magit-section" 4 " children" "magit-section-children accessing a non-magit-section" 5 " hidden" "magit-section-hidden accessing a non-magit-section" 6 " type" "magit-section-type accessing a non-magit-section" 7 " info" "magit-section-info accessing a non-magit-section" 8 ")" t] 3] cl-struct-magit-section put magit-section cl-struct-slots ((cl-tag-slot) (parent) (title) (beginning) (end) (children) (hidden) (type) (info)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t make-magit-section side-effect-free copy-magit-section magit-section-p error-free magit-section-info magit-section-type magit-section-hidden magit-section-children magit-section-end magit-section-beginning magit-section-title magit-section-parent magit-top-section default-boundp set-default make-variable-buffer-local permanent-local magit-old-top-section magit-section-hidden-default] 4)
(defalias 'magit-new-section #[(title type) "\306\307 \310\211\211\n \310& \205 \311\312\f!\" \203C \313H>\204* \314\315!\210\316\f\313H>\204: \314\317!\210\316HBI\210\202E \f\203m \f\313H>\204W \314\320!\210\f\321\313H>\204g \314\322!\210\321HI\210\f*\207" [magit-top-section title magit-section-hidden-default type s magit-old-top-section vector cl-struct-magit-section nil magit-find-section magit-section-path 0 error "magit-section-children storing a non-magit-section" 5 "magit-section-children accessing a non-magit-section" "magit-section-hidden storing a non-magit-section" 6 "magit-section-hidden accessing a non-magit-section" old cl-struct-magit-section-tags] 10])
(defalias 'magit-cancel-section #[(section) "\306H >\204\f \307\310!\210\311H\306H >\204 \307\312!\210\313H|\210\306H >\204, \307\314!\210\315H\211\203] \n\316\n\306H >\204D \307\317!\210\n\320H\" \306H >\204U \307\321!\210 \320\fI*\202` \322\211)\207" [section cl-struct-magit-section-tags parent #1=#:--cl-x-- #2=#:--cl-store-- magit-top-section 0 error "magit-section-beginning accessing a non-magit-section" 3 "magit-section-end accessing a non-magit-section" 4 "magit-section-parent accessing a non-magit-section" 1 delq "magit-section-children accessing a non-magit-section" 5 "magit-section-children storing a non-magit-section" nil] 5])(if macro-declaration-function (funcall macro-declaration-function (quote magit-with-section) (quote (declare (indent 2)))))
(defalias 'magit-with-section '(macro . #[(title type &rest body) "\304 \305\306 \nED\307DD\310\311D\312BB\313 \310\314D\315BB\310\316D\317\316DDEE\")BBB\207" [s title type body gensym let* magit-new-section magit-top-section setf magit-section-beginning ((point)) append magit-section-end ((point)) magit-section-children nreverse] 11]))
(defalias 'magit-set-section-info #[(info &optional section) "\206 \304H\n>\204 \305\306!\210\206 \307 I\207" [section magit-top-section cl-struct-magit-section-tags info 0 error "magit-section-info storing a non-magit-section" 8] 3])(if macro-declaration-function (funcall macro-declaration-function (quote magit-create-buffer-sections) (quote (declare (indent 0)))))
(defalias 'magit-create-buffer-sections '(macro . #[(&rest body) "\301\302\303\301\304\305\306\307\"BBBF\207" [body let ((inhibit-read-only t)) (erase-buffer) ((magit-old-top-section magit-top-section)) (setq magit-top-section nil) append ((when (null magit-top-section) (magit-with-section 'top nil (insert "(empty)\n"))) (magit-propertize-section magit-top-section) (magit-section-set-hidden magit-top-section (magit-section-hidden magit-top-section)))] 9]))
(defalias 'magit-propertize-section #[(section) "\304\305H >\204 \306\307!\210\310H\305H >\204 \306\311!\210\312H\313$\210\305H >\204/ \306\314!\210\315H\316\211\203G @\317\n!\210 A\211\2049 *\316\207" [section cl-struct-magit-section-tags s #1=#:--cl-dolist-temp-- put-text-property 0 error "magit-section-beginning accessing a non-magit-section" 3 "magit-section-end accessing a non-magit-section" 4 magit-section "magit-section-children accessing a non-magit-section" 5 nil magit-propertize-section] 5])
(defalias 'magit-find-section #[(path top) "\204 \207\304\305 \306H\n>\204 \307\310!\210 \311H\"\211\205\" \312A \")\207" [path top cl-struct-magit-section-tags sec find-if #[(s) "@ \303H\n>\204 \304\305!\210 \306H\232\207" [path s cl-struct-magit-section-tags 0 error "magit-section-title accessing a non-magit-section" 2] 3] 0 error "magit-section-children accessing a non-magit-section" 5 magit-find-section] 5])
(defalias 'magit-section-path #[(section) "\302H >\204\f \303\304!\210\305H\2055 \306\307\302H >\204 \303\304!\210\305H!\302H >\2040 \303\310!\210\311HC\"\207" [section cl-struct-magit-section-tags 0 error "magit-section-parent accessing a non-magit-section" 1 append magit-section-path "magit-section-title accessing a non-magit-section" 2] 4])
(defalias 'magit-find-section-at #[(pos secs) "\2037 @\303H >\204 \304\305!\210@\306H\nX\2030 \n@\303H >\204( \304\307!\210@\310HW\2047 A\211\204 \205T \311\n@\303H >\204J \304\312!\210@\313H\"\206T @\207" [secs cl-struct-magit-section-tags pos 0 error "magit-section-beginning accessing a non-magit-section" 3 "magit-section-end accessing a non-magit-section" 4 magit-find-section-at "magit-section-children accessing a non-magit-section" 5] 5])
(defalias 'magit-find-section-after #[(pos secs) "\203! @\303H >\204 \304\305!\210@\306H\nV\204! A\211\204 @\207" [secs cl-struct-magit-section-tags pos 0 error "magit-section-beginning accessing a non-magit-section" 3] 3])
(defalias 'magit-find-section-before #[(pos secs) "\304 \203& @\305H\n>\204 \306\307!\210 @\310H V\204& @ A\211\204 )\207" [prev secs cl-struct-magit-section-tags pos nil 0 error "magit-section-beginning accessing a non-magit-section" 3] 3])
(defalias 'magit-current-section #[nil "\301`\302\"\206 \207" [magit-top-section get-text-property magit-section] 3])
(defalias 'magit-insert-section #[(section-title-and-type buffer-title washer cmd &rest args) "\306 :\203\f @\202 :\205 A\307\n \"\211 \f\310H>\204* \311\312!\210\f\313`I\210\203> \314\315\316#\317\261\210`\320\321 \306\322\306 &\210`Sf\323=\204W \317c\210 \203l \214`}\210eb\210 \210db\210)\f\310H>\204y \311\324!\210\f\325`I\210\f \f\310H>\204\216 \311\326!\210\f\327H\237 \310H>\204\242 \311\330!\210 \327 I\210*\f* !`U\203\274 \331!!\210\202\277 \317c\210!,\207" [body-beg section-title-and-type section-title section-type #1=#:G62500 magit-top-section nil magit-new-section 0 error "magit-section-beginning storing a non-magit-section" 3 propertize face magit-section-title "\n" apply process-file t 10 "magit-section-end storing a non-magit-section" 4 "magit-section-children accessing a non-magit-section" 5 "magit-section-children storing a non-magit-section" magit-cancel-section cl-struct-magit-section-tags buffer-title cmd args washer #2=#:--cl-x-- #3=#:--cl-store-- section] 8])
(defalias 'magit-git-section #[(section-title-and-type buffer-title washer &rest args) "\306\307 \n \310\f\"&\207" [section-title-and-type buffer-title washer magit-git-executable magit-git-standard-options args apply magit-insert-section append] 9])
(defalias 'magit-next-section #[(section) "\305H >\204\f \306\307!\210\310H\211\2053 \n\305H >\204! \306\311!\210\n\312H>\211A@)\211 \2062 \313\n!))\207" [section cl-struct-magit-section-tags parent x next 0 error "magit-section-parent accessing a non-magit-section" 1 "magit-section-children accessing a non-magit-section" 5 magit-next-section] 4])
(defalias 'magit-goto-next-section #[nil "\305 \211\306H >\204 \307\310!\210\311H\204< \306H >\204! \307\312!\210\313H\203< \314`\306H >\2045 \307\312!\210\313H\"\206? \315!\211\203\244 \n\306H >\204P \307\316!\210\n\317Hb\210 \320>\203_ \321\n!\210\n\306H >\204k \307\310!\210\n\311H?\205\247 \322\n\306H >\204 \307\316!\210\n\317H!\322\n\306H >\204\220 \307\323!\210\n\324H!Z\211 \325 W\205\240 \326\f!)\202\247 \327\330!*\207" [section cl-struct-magit-section-tags next magit-submode offset magit-current-section 0 error "magit-section-hidden accessing a non-magit-section" 6 "magit-section-children accessing a non-magit-section" 5 magit-find-section-after magit-next-section "magit-section-beginning accessing a non-magit-section" 3 (log reflog) magit-show-commit line-number-at-pos "magit-section-end accessing a non-magit-section" 4 window-height recenter message "No next section"] 5 nil nil])
(defalias 'magit-prev-section #[(section) "\305H >\204\f \306\307!\210\310H\211\205r \311\n\305H >\204\" \306\312!\210\n\313H!>\211A@)\211 \203p \f\305H >\204= \306\314!\210\f\315H\204l \f\305H >\204O \306\312!\210\f\313H\203l \311\f\305H >\204b \306\312!\210\f\313H!@\211\2022 \f\202q \n))\207" [section cl-struct-magit-section-tags parent x prev 0 error "magit-section-parent accessing a non-magit-section" 1 reverse "magit-section-children accessing a non-magit-section" 5 "magit-section-hidden accessing a non-magit-section" 6] 5])
(defalias 'magit-goto-previous-section #[nil "\304 `\305H >\204 \306\307!\210\310HU\203H \311\304 !\211\203A \312>\203. \313\n\206, !\210\n\305H >\204: \306\307!\210\n\310Hb\202D \314\315!)\202\202 \316`\305H >\204V \306\317!\210\320H\" \321>\203i \313\n\206g !\210\n\206n \305H >\204y \306\307!\210\n\206~ \310Hb))\207" [section cl-struct-magit-section-tags prev magit-submode magit-current-section 0 error "magit-section-beginning accessing a non-magit-section" 3 magit-prev-section (log reflog) magit-show-commit message "No previous section" magit-find-section-before "magit-section-children accessing a non-magit-section" 5 (log reflog)] 5 nil nil])
(defalias 'magit-goto-section #[(path) "\304 \"\211\203 \n\305H >\204 \306\307!\210\n\310Hb\202 \311\312!)\207" [path magit-top-section sec cl-struct-magit-section-tags magit-find-section 0 error "magit-section-beginning accessing a non-magit-section" 3 message "No such section"] 4])
(defalias 'magit-for-all-sections #[(func &optional top) "\206 \211\2059 \n!\210\n\306H\f>\204 \307\310!\210\n\311H\312 \211 \f\2037 \f@\313 \"\210\fA\211\f\204% *\312)\207" [top magit-top-section section func cl-struct-magit-section-tags c 0 error "magit-section-children accessing a non-magit-section" 5 nil magit-for-all-sections #1=#:--cl-dolist-temp--] 5])
(defalias 'magit-section-set-hidden #[(section hidden) "\306H >\204\f \307\310!\210\311\nI\210\312\212\306H >\204 \307\313!\210\314Hb\210\315y\210`)\306H >\2045 \307\316!\210\317H \320\f \321\n$\210+\n?\205\205 \306H >\204T \307\322!\210\323H\315 \211 \203\203 @\324\211\306H >\204t \307\325!\210\311H\"\210A\211\204` *\315\207" [section cl-struct-magit-section-tags hidden end beg inhibit-read-only 0 error "magit-section-hidden storing a non-magit-section" 6 t "magit-section-beginning accessing a non-magit-section" 3 nil "magit-section-end accessing a non-magit-section" 4 put-text-property invisible "magit-section-children accessing a non-magit-section" 5 magit-section-set-hidden "magit-section-hidden accessing a non-magit-section" c #1=#:--cl-dolist-temp--] 5])
(defalias 'magit-section-any-hidden #[(section) "\302H >\204\f \303\304!\210\305H\206$ \306\307\302H >\204 \303\310!\210\311H\"\207" [section cl-struct-magit-section-tags 0 error "magit-section-hidden accessing a non-magit-section" 6 some magit-section-any-hidden "magit-section-children accessing a non-magit-section" 5] 4])
(defalias 'magit-section-collapse #[(section) "\304H >\204\f \305\306!\210\307H\310\211\2031 @\211\304H >\204% \305\311!\210\n\312\313I\210 A\211\204 *\314\310\"\207" [section cl-struct-magit-section-tags c #1=#:--cl-dolist-temp-- 0 error "magit-section-children accessing a non-magit-section" 5 nil "magit-section-hidden storing a non-magit-section" 6 t magit-section-set-hidden] 4])
(defalias 'magit-section-expand #[(section) "\304H >\204\f \305\306!\210\307H\310\211\2031 @\211\304H >\204% \305\311!\210\n\312\310I\210 A\211\204 *\313\310\"\207" [section cl-struct-magit-section-tags c #1=#:--cl-dolist-temp-- 0 error "magit-section-children accessing a non-magit-section" 5 nil "magit-section-hidden storing a non-magit-section" 6 magit-section-set-hidden] 4])
(defalias 'magit-section-expand-all-aux #[(section) "\304H >\204\f \305\306!\210\307H\310\211\2035 @\211\304H >\204% \305\311!\210\n\312\310I\210\313\n!\210 A\211\204 *\310\207" [section cl-struct-magit-section-tags c #1=#:--cl-dolist-temp-- 0 error "magit-section-children accessing a non-magit-section" 5 nil "magit-section-hidden storing a non-magit-section" 6 magit-section-expand-all-aux] 4])
(defalias 'magit-section-expand-all #[(section) "\301!\210\302\303\"\207" [section magit-section-expand-all-aux magit-section-set-hidden nil] 3])
(defalias 'magit-section-hideshow #[(flag-or-func) "\303 \211\304H >\204 \305\306!\210\307H\2056 \304H >\204! \305\310!\210\311Hb\210\312\n!\2032 \n!\2026 \313\n\")\207" [section cl-struct-magit-section-tags flag-or-func magit-current-section 0 error "magit-section-parent accessing a non-magit-section" 1 "magit-section-beginning accessing a non-magit-section" 3 functionp magit-section-set-hidden] 4])
(defalias 'magit-show-section #[nil "\300\301!\207" [magit-section-hideshow nil] 2 nil nil])
(defalias 'magit-hide-section #[nil "\300\301!\207" [magit-section-hideshow t] 2 nil nil])
(defalias 'magit-collapse-section #[nil "\300\301!\207" [magit-section-hideshow magit-section-collapse] 2 nil nil])
(defalias 'magit-expand-section #[nil "\300\301!\207" [magit-section-hideshow magit-section-expand] 2 nil nil])
(defalias 'magit-toggle-section #[nil "\300\301!\207" [magit-section-hideshow #[(s) "\302\211\303H >\204 \304\305!\210\306H?\"\207" [s cl-struct-magit-section-tags magit-section-set-hidden 0 error "magit-section-hidden accessing a non-magit-section" 6] 4]] 2 nil nil])
(defalias 'magit-expand-collapse-section #[nil "\300\301!\207" [magit-section-hideshow #[(s) "\301!\203\n \302!\207\303!\207" [s magit-section-any-hidden magit-section-expand-all magit-section-collapse] 2]] 2 nil nil])
(defalias 'magit-cycle-section #[nil "\300\301!\207" [magit-section-hideshow #[(s) "\305H >\204\f \306\307!\210\310H\203 \311!\207\312\305H >\204# \306\313!\210\314H\315 \316\317\f \n$+\2049 \320\321\"\207\322!\207" [s cl-struct-magit-section-tags cl-rest cl-seq cl-pred 0 error "magit-section-hidden accessing a non-magit-section" 6 magit-section-collapse magit-section-hidden "magit-section-children accessing a non-magit-section" 5 nil apply some magit-section-set-hidden t magit-section-expand] 5]] 2 nil nil])
(defalias 'magit-section-lineage #[(s) "\205 \302\303H >\204 \304\305!\210\306H!B\207" [s cl-struct-magit-section-tags magit-section-lineage 0 error "magit-section-parent accessing a non-magit-section" 1] 4])
(defalias 'magit-section-show-level #[(section level threshold path) "\306 \nY\"\210 \nW\205I \203 \307 @ T\n A$\207\310H\f>\204' \311\312!\210\313H\314 \211 \203G @\307 T\n\314$\210A\211\2042 *\314\207" [section level threshold path cl-struct-magit-section-tags c magit-section-set-hidden magit-section-show-level 0 error "magit-section-children accessing a non-magit-section" 5 nil #1=#:--cl-dolist-temp--] 6])
(defalias 'magit-show-level #[(level all) "\203 \304 \305\n\306$\207\307\310\311 !!\304 @\305\n A$)\207" [all magit-top-section level path magit-section-show-level 0 nil reverse magit-section-lineage magit-current-section] 5])
(defalias 'magit-show-only-files #[nil "\301=\203\n \302\303!\207\302\304!\207" [magit-submode status call-interactively magit-show-level-2 magit-show-level-1] 2 nil nil])
(defalias 'magit-show-only-files-all #[nil "\301=\203\n \302\303!\207\302\304!\207" [magit-submode status call-interactively magit-show-level-2-all magit-show-level-1-all] 2 nil nil])
(defalias 'magit-define-level-shower-1 '(macro . #[(level all) "\304\305\306 \203\f \307\202 \310#!\305\311\"\312 \313\n\314\315 E\257*\207" [level all doc fun intern format "magit-show-level-%s%s" "-all" "" "Show sections on level %s." defun nil (interactive) magit-show-level] 8]))
(defalias 'magit-define-level-shower '(macro . #[(level) "\301\302\303BB\302\304BBE\207" [level progn magit-define-level-shower-1 (nil) (t)] 5]))
(defalias 'magit-define-section-jumper '(macro . #[(sym title) "\304\305\306\"!\305\307 \"\310 \311\n\312\313\314CDD\257*\207" [sym title doc fun intern format "magit-jump-to-%s" "Jump to section `%s'." defun nil (interactive) magit-goto-section quote] 8]))
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\304\207" [current-load-list magit-highlight-overlay default-boundp set-default nil magit-highlighted-section] 3)
(defalias 'magit-highlight-section #[nil "\305 \211 =?\205\\ \n\204 \306\307\211\"\310 \311\312#\210 )\203Y \313H\f>\204. \314\315!\210\316H\203Y \317\n\313H\f>\204B \314\320!\210\321H\313H\f>\204Q \314\322!\210\323Hp$\202\\ \324\n!)\207" [section magit-highlighted-section magit-highlight-overlay ov cl-struct-magit-section-tags magit-current-section make-overlay 1 overlay-put face magit-item-highlight 0 error "magit-section-type accessing a non-magit-section" 7 move-overlay "magit-section-beginning accessing a non-magit-section" 3 "magit-section-end accessing a non-magit-section" 4 delete-overlay] 6])
(defalias 'magit-section-context-type #[(section) "\205Q \303H >\204 \304\305!\210\306H\2068 \303H >\204\" \304\307!\210\310H9\2058 \303H >\2045 \304\307!\210\310H\211\205P \n\311\303H >\204K \304\312!\210\313H!B)\207" [section cl-struct-magit-section-tags c 0 error "magit-section-type accessing a non-magit-section" 7 "magit-section-title accessing a non-magit-section" 2 magit-section-context-type "magit-section-parent accessing a non-magit-section" 1] 5])
(defalias 'magit-prefix-p #[(prefix list) "?\2064 @\302=\203 \303A \"\2064 ??\2054 \303 A\"\207 ??\2054 @ @\232\2054 \303A A\"\207" [prefix list * magit-prefix-p] 3])(if macro-declaration-function (funcall macro-declaration-function (quote magit-section-case) (quote (declare (indent 1)))))
(defalias 'magit-section-case '(macro . #[(head &rest clauses) "@\211A@)\306 \306 \211AA)@ \307\310B\311DD\f\312DD \313DDF\314\315\316\317\"\n\205S \320\fD\321\322\nED\323\321\324\n\325\326\f\327BB\fEFDD\"BE-\207" [head x opname context type info gensym let* ((magit-current-section)) magit-section-info magit-section-type magit-section-context-type cond append mapcar #[(clause) "@\304=\203 \207\305@!A\306\307\nD E *B\207" [clause body prefix context t reverse magit-prefix-p quote] 3] not error "Nothing to %s here." t "Can't %s a %s." or get ('magit-description) section clauses] 15]))(if macro-declaration-function (funcall macro-declaration-function (quote magit-section-action) (quote (declare (indent 1)))))
(defalias 'magit-section-action '(macro . #[(head &rest clauses) "\302\303 BBD\207" [head clauses magit-with-refresh magit-section-case] 4]))
(defalias 'magit-wash-sequence #[(func) "m?\205 \205 \202 \207" [func] 1])
(defalias 'magit-set-mode-line-process #[(str) "\203\n \302P\202 \303\212\304\305!*\207" [str pr " " "" magit-for-all-buffers #[nil "\211\207" [pr mode-line-process] 2]] 2])
(defalias 'magit-process-indicator-from-command #[(comps) "\304 B\n\"\203 GT\n\233\nA\203 \n@\305\235\204 \n@\207\n@\306\n\211A@)Q\207" [magit-git-executable magit-git-standard-options comps x magit-prefix-p ("remote") " "] 4])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\304\207" [current-load-list magit-process default-boundp set-default nil magit-process-client-buffer] 3)
(defalias 'magit-run* #[(cmd-and-args &optional logline noerase noerror nowait input) "@A \306\307!\310 &'\203 \311\312!\210\313\314!!\210p(\212 q\210\315\211) *\f+\2038 db\210\202; \316 \210\317,\206E \320\321\"\322\261\210-\203\246 \323\324& &%'\325'\326\"\210\327'\330\"\210.\203\201 r.q\210\331'ed#\210)\332'!\210\333\334\315\"\210/\335U\203\222 \336\337'!!\210\202\241 /\335V\203\241 \340/\310\341p$\210\315\202\344 .\203\316 r.q\210\f\323\342ed&\310 \310&\335\232)\313\310!\210\343(!\210\202\344 \323\344&\310 \310&\335\232\313\310!\210\343(!\210)\n\204\362 0\204\362 \311\345!\210\n.\207" [cmd-and-args default-directory successp buf dir args get-buffer-create "*magit-process*" nil error "Git is already running." magit-set-mode-line-process magit-process-indicator-from-command t erase-buffer "$ " magit-concat-with-delim " " "\n" apply start-process set-process-sentinel magit-process-sentinel set-process-filter magit-process-filter process-send-region process-send-eof sit-for 0.1 0 pop-to-buffer process-buffer run-with-timer #[(buf) "rq\210 \205 \302\303 !!\210db)\207" [buf magit-process display-buffer process-buffer] 3] call-process-region magit-need-refresh call-process "Git failed." cmd magit-process magit-process-client-buffer buffer-read-only inhibit-read-only noerase logline nowait input magit-process-popup-time noerror] 10])
(defalias 'magit-process-sentinel #[(process event) "\306\307\310\311O\"\312\313\"r\314 !q\210\315 db\210\n\316\261\210\317\n!\210*\320\321\320!\210\322!*\207" [event successp msg process inhibit-read-only magit-process format "Git %s." 0 -1 string-match "^finished" process-buffer t "\n" message nil magit-set-mode-line-process magit-refresh-buffer magit-process-client-buffer] 5])
(defalias 'magit-process-filter #[(proc string) "r\304!q\210\305\306!b\210\307\310\n\311\305$\211\203+ \312 b\210`\313 |\210\n T\314Oc\210\202. \nc\210)\306!`\314\223*\207" [proc inhibit-read-only string ret-pos process-buffer t process-mark position 13 :from-end line-beginning-position line-end-position nil] 6])
(defalias 'magit-run #[(cmd &rest args) "\300\301!\207" [magit-refresh-wrapper #[nil "\302 B!\207" [cmd args magit-run*] 3]] 2])
(defalias 'magit-run-git #[(&rest args) "\300\301!\207" [magit-refresh-wrapper #[nil "\303\304 B\n\"!\207" [magit-git-executable magit-git-standard-options args magit-run* append] 4]] 2])
(defalias 'magit-run-with-input #[(input cmd &rest args) "\300\301!\207" [magit-refresh-wrapper #[nil "\303 B\304\211\211\211\n&\207" [cmd args input magit-run* nil] 7]] 2])
(defalias 'magit-run-git-with-input #[(input &rest args) "\300\301!\207" [magit-refresh-wrapper #[nil "\304\305 B\n\"\306\211\211\211 &\207" [magit-git-executable magit-git-standard-options args input magit-run* append nil] 7]] 2])
(defalias 'magit-run-shell #[(fmt &rest args) "\303\304\305\306 \"#\307\310!)\207" [fmt args cmd apply format mapcar magit-escape-for-shell magit-refresh-wrapper #[nil "\303 \nE\n\"\207" [shell-file-name shell-command-switch cmd magit-run*] 4]] 6])
(defalias 'magit-run-git-async #[(&rest args) "\303\304 B\n\"\305\211\211\306%\207" [magit-git-executable magit-git-standard-options args magit-run* append nil t] 6])
(defalias 'magit-run-async-with-input #[(input cmd &rest args) "\303 B\304\211\211\305\n&\207" [cmd args input magit-run* nil t] 7])
(defalias 'magit-display-process #[nil "\300\301!\207" [display-buffer "*magit-process*"] 2 nil nil])
#@36 Jump to section `Untracked files'.
(defalias 'magit-jump-to-untracked #[nil "\300\301!\207" [magit-goto-section (untracked)] 2 (#$ . 45599) nil])
#@37 Jump to section `Unstaged changes'.
(defalias 'magit-jump-to-unstaged #[nil "\300\301!\207" [magit-goto-section (unstaged)] 2 (#$ . 45751) nil])
#@35 Jump to section `Staged changes'.
(defalias 'magit-jump-to-staged #[nil "\300\301!\207" [magit-goto-section (staged)] 2 (#$ . 45902) nil])
#@37 Jump to section `Unpushed commits'.
(defalias 'magit-jump-to-unpushed #[nil "\300\301!\207" [magit-goto-section (unpushed)] 2 (#$ . 46047) nil])
#@43 Jump to section `Unpushed commits (SVN)'.
(defalias 'magit-jump-to-svn-unpushed #[nil "\300\301!\207" [magit-goto-section (svn-unpushed)] 2 (#$ . 46198) nil])
#@27 Show sections on level 1.
(defalias 'magit-show-level-1 #[nil "\300\301\302\"\207" [magit-show-level 1 nil] 3 (#$ . 46363) nil])
#@27 Show sections on level 1.
(defalias 'magit-show-level-1-all #[nil "\300\301\302\"\207" [magit-show-level 1 t] 3 (#$ . 46498) nil])
#@27 Show sections on level 2.
(defalias 'magit-show-level-2 #[nil "\300\301\302\"\207" [magit-show-level 2 nil] 3 (#$ . 46635) nil])
#@27 Show sections on level 2.
(defalias 'magit-show-level-2-all #[nil "\300\301\302\"\207" [magit-show-level 2 t] 3 (#$ . 46770) nil])
#@27 Show sections on level 3.
(defalias 'magit-show-level-3 #[nil "\300\301\302\"\207" [magit-show-level 3 nil] 3 (#$ . 46907) nil])
#@27 Show sections on level 3.
(defalias 'magit-show-level-3-all #[nil "\300\301\302\"\207" [magit-show-level 3 t] 3 (#$ . 47042) nil])
#@27 Show sections on level 4.
(defalias 'magit-show-level-4 #[nil "\300\301\302\"\207" [magit-show-level 4 nil] 3 (#$ . 47179) nil])
#@27 Show sections on level 4.
(defalias 'magit-show-level-4-all #[nil "\300\301\302\"\207" [magit-show-level 4 t] 3 (#$ . 47314) nil])
(byte-code "\302B\303\302!\204\212\304\302\305 \306 \307\"\210\310 \311\312#\210\310 \313\314#\210\310 \315\316#\210\310 \317\320#\210\310 \321\322#\210\310 \323\324#\210\310 \325\326#\210\310 \327\330#\210\310 \331\332#\210\310 \333\334#\210\310 \335\336#\210\310 \337\340#\210\310 \341\342#\210\310 \343\344#\210\310 \345\330#\210\310 \346\340#\210\310 \347\350#\210\310 \351\352#\210\310 \353\354#\210\310 \355\356#\210\310 \357\360#\210\310 \361\362#\210\310 \363\364#\210\310 \365\366#\210\310 \367\370#\210\310 \371\372#\210\310 \373\374#\210\310 \375\376#\210\310 \377\201@ #\210\310 \201A \201B #\210\310 \201C \201D #\210\310 \201E \201F #\210\310 \201G \201H #\210\310 \201I \201J #\210\310 \201K \201L #\210\310 \201M \201N #\210\310 \201O \201P #\210\310 \201Q \201R #\210\310 \201S \201T #\210\310 \201U \201V #\210\310 \201W \201X #\210\310 \201Y \201Z #\210\310 \201[ \201\\ #\210\310 \201] \201^ #\210\310 \201_ \201` #\210\310 \201a \201b #\210\310 \201c \201d #\210\310 \201e \201f #\210\310 \201g \201h #\210\310 \201i \201j #\210\310 \201k \201l #\210\310 \201m \201n #\210\310 \201o \201p #\210\310 \201q \201r #\210\310 \201s \201t #\210\310 \201u \201v #\210\310 \201w \201x #\210\310 \201y \201z #\210\310 \201{ \201| #\210\310 \201} \201~ #\210\310 \201 \201\200 #\210\310 \201\201 \201\202 #\210\310 \201\203 \201\204 #\210\310 \201\205 \201\206 #\210\310 \201\207 \201\210 #\210\310 \201\211 \201\212 #\210\310 \201\213 \201\214 #\210\310 \201\215 \201\216 #\210\310 \201\217 \201\220 #\210\310 \201\221 \201\222 #\210\310 \201\223 \201\224 #\210\310 \201\225 \201\226 #\210\310 \201\227 \201\230 #\210\310 \201\231 \201\232 #\210 )\"\210\302\207" [current-load-list map magit-mode-map default-boundp set-default make-keymap suppress-keymap t define-key "n" magit-goto-next-section "p" magit-goto-previous-section " " magit-toggle-section [backtab] magit-expand-collapse-section "1" magit-show-level-1 "2" magit-show-level-2 "3" magit-show-level-3 "4" magit-show-level-4 [134217777] magit-show-level-1-all [134217778] magit-show-level-2-all [134217779] magit-show-level-3-all [134217780] magit-show-level-4-all [134217832] magit-show-only-files [134217800] magit-show-only-files-all [134217843] [134217811] "g" magit-refresh "G" magit-refresh-all "s" magit-stage-item "S" magit-stage-all "u" magit-unstage-item "U" magit-unstage-all "i" magit-ignore-item "I" magit-ignore-item-locally "?" magit-describe-item "." magit-mark-item "=" magit-diff-with-mark "-" magit-diff-smaller-hunks "+" magit-diff-larger-hunks "0" magit-diff-default-hunks "l" magit-log "L" magit-log-long "h" magit-reflog-head "H" magit-reflog "d" magit-diff-working-tree "D" magit-diff "a" magit-apply-item "A" magit-cherry-pick-item "v" magit-revert-item "x" magit-reset-head "X" magit-reset-working-tree "k" magit-discard-item "" magit-visit-item " " magit-show-item-or-scroll-up "" magit-show-item-or-scroll-down "" magit-copy-item-as-kill "b" magit-checkout "B" magit-create-branch "m" magit-manual-merge "M" magit-automatic-merge "e" magit-interactive-resolve-item "Nr" magit-svn-rebase "Nc" magit-svn-dcommit "R" magit-rebase-step "rs" magit-rewrite-start "rt" magit-rewrite-stop "ra" magit-rewrite-abort "rf" magit-rewrite-finish "r*" magit-rewrite-set-unused "r." magit-rewrite-set-used "P" magit-push "f" magit-remote-update "F" magit-pull "c" magit-log-edit "C" magit-add-log "t" magit-tag "T" magit-annotated-tag "z" magit-stash "Z" magit-stash-snapshot "w" magit-wazzup "$" magit-display-process "E" magit-interactive-rebase "V" magit-show-branches "q" quit-window] 6)
#@12 Magit menu
(defvar magit-mode-menu nil (#$ . 51036))
(byte-code "\302\303\304\305$\210\306 B\307\306!\204 \310\306\311\"\210\312\313\314\315#\210\316 B\307\316!\204+ \310\316\311\"\210\317\316!\210\312\316\320\321#\210\322 B\307\322!\204D \310\322\311\"\210\317\322!\210\312\322\320\321#\210\323 B\307\323!\204] \310\323\311\"\210\317\323!\210\312\323\320\321#\207" [magit-mode-map current-load-list easy-menu-do-define magit-mode-menu "Magit menu" ("Magit" ["Refresh" magit-refresh t] ["Refresh all" magit-refresh-all t] "---" ["Stage" magit-stage-item t] ["Stage all" magit-stage-all t] ["Unstage" magit-unstage-item t] ["Unstage all" magit-unstage-all t] ["Commit" magit-log-edit t] ["Add log entry" magit-add-log t] ["Tag" magit-tag t] ["Annotated tag" magit-annotated-tag t] "---" ["Diff working tree" magit-diff-working-tree t] ["Diff" magit-diff t] ["Log" magit-log t] ["Long Log" magit-log-long t] ["Reflog head" magit-reflog-head t] ["Reflog" magit-reflog t] "---" ["Cherry pick" magit-cherry-pick-item t] ["Apply" magit-apply-item t] ["Revert" magit-revert-item t] "---" ["Ignore" magit-ignore-item t] ["Ignore locally" magit-ignore-item-locally t] ["Discard" magit-discard-item t] ["Reset head" magit-reset-head t] ["Reset working tree" magit-reset-working-tree t] ["Stash" magit-stash t] ["Snapshot" magit-stash-snapshot t] "---" ["Switch branch" magit-checkout t] ["Create branch" magit-create-branch t] ["Merge" magit-automatic-merge t] ["Merge (no commit)" magit-manual-merge t] ["Interactive resolve" magit-interactive-resolve-item t] ["Rebase" magit-rebase-step t] ("Git SVN" ["Rebase" magit-svn-rebase (magit-svn-enabled)] ["Commit" magit-svn-dcommit (magit-svn-enabled)]) ("Rewrite" ["Start" magit-rewrite-start t] ["Stop" magit-rewrite-stop t] ["Finish" magit-rewrite-finish t] ["Abort" magit-rewrite-abort t] ["Set used" magit-rewrite-set-used t] ["Set unused" magit-rewrite-set-unused t]) "---" ["Push" magit-push t] ["Pull" magit-pull t] ["Remote update" magit-remote-update t] "---" ["Display Git output" magit-display-process t] ["Quit Magit" quit-window t]) magit-mode-hook default-boundp set-default nil put magit-mode mode-class special magit-submode make-variable-buffer-local permanent-local t magit-refresh-function magit-refresh-args] 5)
(defalias 'magit-remember-point #[nil "`\211\207" [last-point] 2])
(defalias 'magit-invisible-region-end #[(pos) "dU\204 \301!\203 \302!\211\202 \207" [pos invisible-p next-char-property-change] 3])
(defalias 'magit-invisible-region-start #[(pos) "eU\204 \301!\203 \302!S\211\202 \207" [pos invisible-p previous-char-property-change] 3])
(defalias 'magit-correct-point-after-command #[nil "\303`!\203 \304`!\211 U\203 \305`!\202 b\210)\306\211\207" [end last-point disable-point-adjustment invisible-p magit-invisible-region-end magit-invisible-region-start t] 3])
(defalias 'magit-post-command-hook #[nil "\300 \210\301 \207" [magit-correct-point-after-command magit-highlight-section] 1])
#@133 Review the status of a git repository and act on it.
Please see the manual for a complete description of Magit.
\{magit-mode-map}
(defalias 'magit-mode #[nil "\306 \210\307 \210\310\311\312\313\310\314\315\316\317\314\310$\210\315\320\321\310\211$\210\322!\210\323\324!\207" [buffer-read-only major-mode mode-name mode-line-process truncate-lines line-move-visual kill-all-local-variables buffer-disable-undo t magit-mode "Magit" "" nil add-hook pre-command-hook magit-remember-point post-command-hook magit-post-command-hook use-local-map run-mode-hooks magit-mode-hook magit-mode-map] 5 (#$ . 54033)])
(defalias 'magit-mode-init #[(dir submode refresh-func &rest refresh-args) "\n\f \306 \210\307 \207" [dir default-directory submode magit-submode refresh-func magit-refresh-function magit-mode magit-refresh-buffer refresh-args magit-refresh-args] 1])
(defalias 'magit-find-buffer #[(submode &optional dir) "\303\206 !\304\305\215)\207" [dir default-directory topdir magit-get-top-dir --cl-block-nil-- (byte-code "\306 \307\211\2036 @\212q\210\n\205& \310\n! \232\205& \f\311=\205& \f=)\203/ \312\313\"\210 A\211\204 *\307\207" [buf #1=#:--cl-dolist-temp-- default-directory topdir major-mode magit-submode buffer-list nil expand-file-name magit-mode throw --cl-block-nil-- submode] 4)] 2])
(defalias 'magit-find-status-buffer #[(&optional dir) "\301\302\"\207" [dir magit-find-buffer status] 3])
(defalias 'magit-for-all-buffers #[(func &optional dir) "\306 \307\211\203+ @\212q\210\n\310=\203# \203 \f \232\203# \210) A\211\204 *\307\207" [buf #1=#:--cl-dolist-temp-- major-mode dir default-directory func buffer-list nil magit-mode] 3])
(defalias 'magit-refresh-buffer #[(&optional buffer) "r\206 pq\210\306 \307 \211\205 \310\307 !\n\205- \311\n\312H\f>\204( \313\314!\210\n\315H`\" \203: \316\"\210\317 \210 \205F \320 \"\211 \203e \312H\f>\204Y \313\314!\210\315Hb\210y\210\202i \321 !\210\322p!\323 \211 \203\211 @\324`\"\210A\211\204u *\325 .\207" [buffer old-line old-section old-path cl-struct-magit-section-tags section-line line-number-at-pos magit-current-section magit-section-path count-lines 0 error "magit-section-beginning accessing a non-magit-section" 3 apply magit-refresh-marked-commits-in-buffer magit-find-section magit-goto-line get-buffer-window-list nil set-window-point magit-highlight-section magit-refresh-function magit-refresh-args magit-top-section s w #1=#:--cl-dolist-temp--] 5])
(defalias 'magit-revert-buffers #[nil "\302 \303\211\203- @\211\203& \304!\204& \305!\204& rq\210\303\306\307\217\210) A\211\204 *\303\207" [buffer #1=#:--cl-dolist-temp-- buffer-list nil verify-visited-file-modtime buffer-modified-p (byte-code "\300\301\211\211#\207" [revert-buffer t] 4) ((error))] 4])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\304\207" [current-load-list magit-refresh-needing-buffers default-boundp set-default nil magit-refresh-pending] 3)
(defalias 'magit-refresh-wrapper #[(func) "\203 \207\305\306\n\"\307\310 \311\216 ,\207" [magit-refresh-pending func default-directory magit-refresh-needing-buffers status-buffer magit-find-buffer status nil t ((byte-code "\203+ \304 \210\305 \"\203 \202 B\306\211\203* @\307\n!\210 A\211\204 *\306\207" [magit-refresh-needing-buffers status-buffer b #1=#:--cl-dolist-temp-- magit-revert-buffers memql nil magit-refresh-buffer] 4))] 3])
(defalias 'magit-need-refresh #[(&optional buffer) "\206 p\211 >?\205 B\211)\207" [buffer magit-refresh-needing-buffers] 3])
(defalias 'magit-refresh #[nil "\300\301!\207" [magit-refresh-wrapper #[nil "\300 \207" [magit-need-refresh] 1]] 2 nil nil])
(defalias 'magit-refresh-all #[nil "\301\302\"\207" [default-directory magit-for-all-buffers magit-refresh-buffer] 3 nil nil])
(defalias 'magit-wash-untracked-file #[nil "\306\307!\205l \310\311!`\312 T|\210\313\300\"\211 \314H >\204# \315\316!\210 \317`I\210\320!\210\321\322\261\210 \314H >\204> \315\323!\210 \324`I\210 \314H >\204Q \315\325!\210 \326H\237 \f\314H >\204b \315\327!\210\f\326I\210* \210+\330\207" [file #1=#:G62501 magit-top-section cl-struct-magit-section-tags #2=#:--cl-x-- #3=#:--cl-store-- looking-at "^? \\(.*\\)$" match-string-no-properties 1 line-end-position magit-new-section 0 error "magit-section-beginning storing a non-magit-section" 3 magit-set-section-info " " "\n" "magit-section-end storing a non-magit-section" 4 "magit-section-children accessing a non-magit-section" 5 "magit-section-children storing a non-magit-section" t] 4])
(defalias 'magit-wash-untracked-files #[nil "\300\301!\207" [magit-wash-sequence magit-wash-untracked-file] 2])
(defalias 'magit-insert-untracked-files #[nil "\300\301\302\303\304\305\306\307&\207" [magit-git-section untracked "Untracked files:" magit-wash-untracked-files "ls-files" "-t" "--others" "--exclude-standard"] 8])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list magit-diff-context-lines default-boundp set-default 3] 3)
(defalias 'magit-diff-U-arg #[nil "\301\302\"\207" [magit-diff-context-lines format "-U%d"] 3])
(defalias 'magit-diff-smaller-hunks #[(&optional count) "\302 Z]\303 \207" [magit-diff-context-lines count 0 magit-refresh] 3 nil "p"])
(defalias 'magit-diff-larger-hunks #[(&optional count) " \\\302 \207" [magit-diff-context-lines count magit-refresh] 2 nil "p"])
(defalias 'magit-diff-default-hunks #[nil "\301\302 \207" [magit-diff-context-lines 3 magit-refresh] 1 nil ""])
(defalias 'magit-diff-line-file #[nil "\300\301!\203\n \302\303!\207\300\304!\203 \302\305!\207\306\207" [looking-at "^diff --git ./\\(.*\\) ./\\(.*\\)$" match-string-no-properties 2 "^diff --cc +\\(.*\\)$" 1 nil] 2])
(defalias 'magit-wash-diffs #[nil "\300\301!\207" [magit-wash-sequence magit-wash-diff-or-other-file] 2])
(defalias 'magit-wash-diff-or-other-file #[nil "\300 \206 \301 \207" [magit-wash-diff magit-wash-other-file] 1])
(defalias 'magit-wash-other-file #[nil "\306\307!\205l \310\311!`\312 T|\210\313\300\"\211 \314H >\204# \315\316!\210 \317`I\210\320!\210\321\322\261\210 \314H >\204> \315\323!\210 \324`I\210 \314H >\204Q \315\325!\210 \326H\237 \f\314H >\204b \315\327!\210\f\326I\210* \210+\330\207" [file #1=#:G62502 magit-top-section cl-struct-magit-section-tags #2=#:--cl-x-- #3=#:--cl-store-- looking-at "^? \\(.*\\)$" match-string-no-properties 1 line-end-position magit-new-section 0 error "magit-section-beginning storing a non-magit-section" 3 magit-set-section-info " New " "\n" "magit-section-end storing a non-magit-section" 4 "magit-section-children accessing a non-magit-section" 5 "magit-section-children storing a non-magit-section" t] 4])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list magit-hide-diffs default-boundp set-default nil] 3)
(defalias 'magit-wash-diff #[nil "\306\307!\203Z\310\311 \312\"\211\n\313H\f>\204 \314\315!\210\n\316`I\210\317 \212\320y\210\321\322\320\323#\2036 \313\224b\210\2029 db\210\324 ) <\306\325!\203I \326\202\202 \212\321\327\323#)\203W \330\202\202 \212\321\331\323#)\203e \332\202\202 \212\321\333\323#)\203s \334\202\202 \212\321\335\323#)\203\201 \336\202\202 \337 =\212\321\340\323#)\205\221 \341\342! >\343=\344\"\203\243 \345\346<\"\202\376 \343=\347\"\203\263 \345\350<\"\202\376 \343=\351\"\203\303 \345\352<\"\202\376 \343=\353\"\203\323 \345\354<\"\202\376 \343=\355\"\203\345 \345\356<>#\202\376 \343=\357\"\203\365 \345\360<\"\202\376 \343=\361\"\205\376 \320 ?\362=<>E!\210\363?\364\261\210b\210\320\365\366!\210.\n\313H\f>\204(\314\367!\210\n\370`I\210\n @\n\313H\f>\204<\314\371!\210\n\372H\237 A@\313H\f>\204O\314\373!\210@\372AI\210*\n+\207\320\207" [magit-hide-diffs magit-section-hidden-default #1=#:G62503 magit-top-section cl-struct-magit-section-tags end looking-at "^diff" magit-new-section magit-current-line diff 0 error "magit-section-beginning storing a non-magit-section" 3 magit-diff-line-file nil search-forward-regexp "^diff\\|^@@" t point-marker "^diff --cc" unmerged "^new file" new "^new mode" mode "^deleted" deleted "^rename" renamed modified "^rename from \\(.*\\)" match-string-no-properties 1 memql (unmerged) format "Unmerged %s" (new) "New %s" (mode) "New mode %s" (deleted) "Deleted %s" (renamed) "Renamed %s (from %s)" (modified) "Modified %s" (format "? %s" file) magit-set-section-info " " "\n" magit-wash-sequence magit-wash-hunk "magit-section-end storing a non-magit-section" 4 "magit-section-children accessing a non-magit-section" 5 "magit-section-children storing a non-magit-section" file status file2 status-text #2=#:--cl-x-- #3=#:--cl-store--] 6])
(defalias 'magit-diff-item-kind #[(diff) "\302H >\204\f \303\304!\210\305H@\207" [diff cl-struct-magit-section-tags 0 error "magit-section-info accessing a non-magit-section" 8] 2])
(defalias 'magit-diff-item-file #[(diff) "\303H >\204\f \304\305!\210\306H\211A@)\207" [diff cl-struct-magit-section-tags x 0 error "magit-section-info accessing a non-magit-section" 8] 3])
(defalias 'magit-diff-item-file2 #[(diff) "\303H >\204\f \304\305!\210\306H\211AA)@\207" [diff cl-struct-magit-section-tags x 0 error "magit-section-info accessing a non-magit-section" 8] 3])
(defalias 'magit-wash-hunk #[nil "\306\307!\203\255 \310\311!GS\310\312!\313\314\"\211\n\312H\f>\204# \315\316!\210\n\317`I\210\320\321\322\"\210\323y\210m\204m \306\324!\204m \325`` \\d^\" \326\327\"\203R \320\321\330\"\210\202f \326\331\"\203a \320\321\332\"\210\202f \320\321\333\"\210)\323y\210\2020 \n\312H\f>\204y \315\334!\210\n\335`I\210\n \"\n\312H\f>\204\215 \315\336!\210\n\337H\237 #\"\312H\f>\204\240 \315\340!\210\"\337#I\210*\n\210,\341\207\323\207" [head n-columns #1=#:G62504 magit-top-section cl-struct-magit-section-tags prefix looking-at "\\(^@+\\)[^@]*@+" match-string 1 0 magit-new-section hunk error "magit-section-beginning storing a non-magit-section" 3 magit-put-line-property face magit-diff-hunk-header nil "^diff\\|^@@" buffer-substring-no-properties string-match "\\+" magit-diff-add "-" magit-diff-del magit-diff-none "magit-section-end storing a non-magit-section" 4 "magit-section-children accessing a non-magit-section" 5 "magit-section-children storing a non-magit-section" t #2=#:--cl-x-- #3=#:--cl-store--] 5])
(defalias 'magit-hunk-item-diff #[(hunk) "\303H >\204\f \304\305!\210\306H\211\303H >\204 \304\307!\210\n\310H\302=\204( \304\311!\210\n)\207" [hunk cl-struct-magit-section-tags diff 0 error "magit-section-parent accessing a non-magit-section" 1 "magit-section-type accessing a non-magit-section" 7 "Huh? Parent of hunk not a diff."] 3])
(defalias 'magit-diff-item-insert-header #[(diff buf) "\212\305H >\204 \306\307!\210\310Hb\210\311y\210`)\305H >\204# \306\312!\210\313H\203Y \305H >\2045 \306\312!\210\313H@\305H >\204D \306\307!\210\305H >\204P \306\312!\210\313H@\310H\202h \305H >\204e \306\314!\210\315H\316 \n\f#*\207" [diff cl-struct-magit-section-tags end beg buf 0 error "magit-section-beginning accessing a non-magit-section" 3 nil "magit-section-children accessing a non-magit-section" 5 "magit-section-end accessing a non-magit-section" 4 magit-insert-region] 4])
(defalias 'magit-insert-diff-item-patch #[(diff buf) "\212\305H >\204 \306\307!\210\310Hb\210\311y\210`)\305H >\204# \306\312!\210\313H\314 \n\f#*\207" [diff cl-struct-magit-section-tags end beg buf 0 error "magit-section-beginning accessing a non-magit-section" 3 nil "magit-section-end accessing a non-magit-section" 4 magit-insert-region] 4])
(defalias 'magit-insert-hunk-item-patch #[(hunk buf) "\303\304! \"\210\305\306H\n>\204 \307\310!\210\311H\306H\n>\204# \307\312!\210\313H #\207" [hunk buf cl-struct-magit-section-tags magit-diff-item-insert-header magit-hunk-item-diff magit-insert-region 0 error "magit-section-beginning accessing a non-magit-section" 3 "magit-section-end accessing a non-magit-section" 4] 4])
(defalias 'magit-insert-hunk-item-region-patch #[(hunk reverse beg end buf) "\306\307! \"\210\212\310H\n>\204 \311\312!\210\313Hb\210\314 !\210\315y\210 \203( \316\202) \317 `\310H\n>\2047 \311\320!\210\321HW\203 `X\203R `W\203R \314 !\210\202y \322\323!\203_ \314 !\210\202y \322\f!\203y \324`T\325\326!\" r q\210\323\261\210*\315y\210\202* *r q\210\327ed\")\207" [hunk buf cl-struct-magit-section-tags reverse copy-op beg magit-diff-item-insert-header magit-hunk-item-diff 0 error "magit-section-beginning accessing a non-magit-section" 3 magit-insert-current-line nil "+" "-" "magit-section-end accessing a non-magit-section" 4 looking-at " " buffer-substring-no-properties line-beginning-position 2 diff-fixup-modifs end text] 4])
(defalias 'magit-hunk-item-is-conflict-p #[(hunk) "\303\304\305!\211\306H\n>\204 \307\310!\210 \311H)\"\207" [hunk cl-x cl-struct-magit-section-tags string-match "^diff --cc" magit-hunk-item-diff 0 error "magit-section-title accessing a non-magit-section" 2] 5])
(defalias 'magit-hunk-item-target-line #[(hunk) "\212\306 \210\307 \310\311!\203 \312\313!\210 \314H\n>\204 \312\315!\210 \316Hb\210\310\317!\204, \312\320!\210\321\322!\323\211 \314\211\f\206; \314 \206A G W\205\311 H\211 \324=\204b \325=\203~ \211 GW\205s H) T\202\201 \322 W\203\254 H H)\211\203\254 \326_\\ T\211\202\203 U\204\303 \327\330\331\f\206\274 \314 OD\"\202\310 _). !\323y\210\307 W\203\350 \310\311!\204\342 !T!\323y\210\202\320 !+\207" [line hunk cl-struct-magit-section-tags end start string beginning-of-line line-number-at-pos looking-at "-" error "Can't visit removed lines." 0 "magit-section-beginning accessing a non-magit-section" 3 "@@+ .* \\+\\([0-9]+\\),[0-9]+ @@+" "Hunk header not found." match-string 1 nil 43 45 10 signal parse-error "not an integer" index digit integer sign char parse-time-syntax parse-time-digits target] 7])
(defalias 'magit-apply-diff-item #[(diff &rest args) "\303!\203\n \304 Br\305\306!q\210\307 \210)\310\n\306\"\210\311\312\313\314 \315C\"#\207" [magit-diff-context-lines args diff zerop "--unidiff-zero" get-buffer-create "*magit-tmp*" erase-buffer magit-insert-diff-item-patch apply magit-run-git "apply" append "-"] 6])
(defalias 'magit-apply-hunk-item* #[(hunk reverse &rest args) "\305!\203\n \306 B\307\310!r\nq\210\311 \210)\312 \203( \313 \f\314 \315 \n%\210\202- \316 \n\"\210\317\320\n\321\322 \323C\"$)\207" [magit-diff-context-lines args tmp hunk reverse zerop "--unidiff-zero" get-buffer-create "*magit-tmp*" erase-buffer magit-use-region-p magit-insert-hunk-item-region-patch region-beginning region-end magit-insert-hunk-item-patch apply magit-run-git-with-input "apply" append "-"] 7])
(defalias 'magit-apply-hunk-item #[(hunk &rest args) "\302\303\304 $\207" [hunk args apply magit-apply-hunk-item* nil] 5])
(defalias 'magit-apply-hunk-item-reverse #[(hunk &rest args) "\302\303\304\305 B$\207" [hunk args apply magit-apply-hunk-item* t "--reverse"] 6])
(defalias 'magit-insert-unstaged-changes #[(title) "\302\303\304 \305\306\307 %)\207" [magit-hide-diffs title t magit-git-section unstaged magit-wash-diffs "diff" magit-diff-U-arg] 6])
(defalias 'magit-insert-staged-changes #[(no-commit) "\303 \203 \304\305!\306\307\310\311\312\313\314 \n&)\202# \306\307\310\311\312\313\314 &)\207" [magit-hide-diffs no-commit null-tree t magit-git-string "mktree </dev/null" magit-git-section staged "Staged changes:" magit-wash-diffs "diff" "--cached" magit-diff-U-arg] 8])
#@94 Return shortened and propertized version of full REFNAME, like
"refs/remotes/origin/master".
(defalias 'magit-parse-log-ref #[(refname) "\302\303\304 \"\203 \305\306 \"\307\202. \303\310 \"\203\" \305\311 \"\202. \303\312 \"\203. \305\313 \"\314 \300#)\207" [face refname magit-log-head-label string-match "^\\(tag: +\\)?refs/tags/\\(.+\\)" match-string 2 magit-log-tag-label "^refs/remotes/\\(.+\\)" 1 "[^/]+$" 0 propertize] 4 (#$ . 69578)])
#@183 Parse REFSTRING annotation from `git log --decorate'
output (for example: "refs/remotes/origin/master,
refs/heads/master") and return prettified string for displaying
in log buffer.
(defalias 'magit-parse-log-refs #[(refstring) "\301\302\303\304\305\306\307\310\311\312#!\"\"\313#\207" [refstring mapconcat identity mapcar magit-parse-log-ref remove-if #[(refname) "\301\302\"\207" [refname string-match "/HEAD$"] 3] reverse split-string ", *" t " - "] 11 (#$ . 70035)])
(defalias 'magit-wash-log-line #[nil "\306\307\310 \311#\203\240 \312\224b\203\240 \313\314!\204\240 \315\312!\312\224\312\225|\210\316 \210\317 b\210\306\320\310 \311#\203C \315\321!\322\224\322\225|\210\323 !c\210)\317 b\210\324\300\"\211\n\312H\f>\204V \325\326!\210\n\327`I\210\330!\210\331y\210\n\312H\f>\204n \325\332!\210\n\333`I\210\n \n\312H\f>\204\201 \325\334!\210\n\335H\237 \312H\f>\204\223 \325\336!\210\335 I\210*\n\210+\202\243 \331y\210\311\207" [commit refstring #1=#:G62505 magit-top-section cl-struct-magit-section-tags #2=#:--cl-x-- search-forward-regexp "[0-9a-fA-F]\\{40\\}" line-end-position t 0 looking-back "commit " match-string-no-properties fixup-whitespace line-beginning-position "^[|*\\/ ]+\\((\\(tag:.+?\\|refs/.+?\\))\\)" 2 1 magit-parse-log-refs magit-new-section error "magit-section-beginning storing a non-magit-section" 3 magit-set-section-info nil "magit-section-end storing a non-magit-section" 4 "magit-section-children accessing a non-magit-section" 5 "magit-section-children storing a non-magit-section" #3=#:--cl-store--] 5])
(defalias 'magit-wash-log #[nil "\301\302\303!)\207" [magit-old-top-section nil magit-wash-sequence magit-wash-log-line] 2])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list magit-currently-shown-commit default-boundp set-default nil] 3)
(defalias 'magit-wash-commit #[nil "\300\301\302\303#\205 \304\224b\210\305 \207" [search-forward-regexp "^diff" nil t 0 magit-wash-diffs] 4])
(defalias 'magit-refresh-commit-buffer #[(commit) "\306\307 \210 \310\311\310\211\312\313\314\315\316\317 & \210 \204s \320\321\310\"\211 \f\322H>\204- \323\324!\210\f\325`I\210\326c\210\f\322H>\204A \323\327!\210\f\330`I\210\f \f\322H>\204U \323\331!\210\f\332H\237 ! \322H>\204h \323\333!\210 \332!I\210*\f\210*\334 !\210\335 \211\322H>\204\205 \323\336!\210 \337H\"*\207" [inhibit-read-only magit-top-section magit-old-top-section commit #1=#:G62506 cl-struct-magit-section-tags t erase-buffer nil magit-git-section magit-wash-commit "log" "--max-count=1" "--pretty=medium" "--cc" "-p" magit-new-section top 0 error "magit-section-beginning storing a non-magit-section" 3 "(empty)\n" "magit-section-end storing a non-magit-section" 4 "magit-section-children accessing a non-magit-section" 5 "magit-section-children storing a non-magit-section" magit-propertize-section magit-section-set-hidden "magit-section-hidden accessing a non-magit-section" 6 #2=#:--cl-x-- #3=#:--cl-store--] 11])
(defalias 'magit-show-commit #[(commit &optional scroll) "\306!\203% G\307Y\203% \310H >\203% \310H >\204! \311\312!\210\313H\n\314\315! \232\203a \316 !\211 \204@ \317 !\202] \205] \320 \321\322\323 \" r\324\216\325\326\"\210 ,)\202x \317 !\210r q\210 q\210eb\210\327\f\300\330$)*\207" [commit cl-struct-magit-section-tags default-directory buf dir magit-currently-shown-commit vectorp 9 0 error "magit-section-info accessing a non-magit-section" 8 get-buffer-create "*magit-commit*" get-buffer-window display-buffer selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\203/ \n@\306 @!\203( \307 \211A@)!\203( \310 @ \211A@)\"\210\nA\211\204 *\307\f!\203; \311\f\312\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window select-window norecord] 4)) select-window norecord magit-mode-init magit-refresh-commit-buffer win scroll save-selected-window-alist save-selected-window-window] 6])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306\305!\210\307\305\310\311#\207" [current-load-list magit-marked-commit default-boundp set-default nil magit-mark-overlay make-variable-buffer-local put permanent-local t] 4)
(defalias 'magit-refresh-marked-commits #[nil "\300\301!\207" [magit-for-all-buffers magit-refresh-marked-commits-in-buffer] 2])
(defalias 'magit-refresh-marked-commits-in-buffer #[nil "\204 \302\303\211\"\304 \305\306#\210 )\307!\210\310\311!\207" [magit-mark-overlay ov make-overlay 1 overlay-put face magit-item-mark delete-overlay magit-for-all-sections #[(section) "\304H >\204\f \305\306!\210\307H\310=\205J \304H >\204 \305\311!\210\312H\n\232\205J \313 \304H >\2046 \305\314!\210\315H\304H >\204E \305\316!\210\317Hp$\207" [section cl-struct-magit-section-tags magit-marked-commit magit-mark-overlay 0 error "magit-section-type accessing a non-magit-section" 7 commit "magit-section-info accessing a non-magit-section" 8 move-overlay "magit-section-beginning accessing a non-magit-section" 3 "magit-section-end accessing a non-magit-section" 4] 5]] 4])
(defalias 'magit-set-marked-commit #[(commit) "\302 \207" [commit magit-marked-commit magit-refresh-marked-commits] 1])
(defalias 'magit-marked-commit #[nil "\206 \301\302!\207" [magit-marked-commit error "No commit marked"] 2])
(defalias 'magit-insert-unpulled-commits #[(remote branch) "\302\303\304\305\306\307\310\311 #&\207" [remote branch magit-git-section unpulled "Unpulled commits:" magit-wash-log "log" "--pretty=format:* %H %s" format "HEAD..%s/%s"] 10])
(defalias 'magit-insert-unpushed-commits #[(remote branch) "\302\303\304\305\306\307\310\311 #&\207" [remote branch magit-git-section unpushed "Unpushed commits:" magit-wash-log "log" "--pretty=format:* %H %s" format "%s/%s..HEAD"] 10])
(defalias 'magit-insert-unpulled-svn-commits #[nil "\300\301\302\303\304\305\306\307\310 \"&\207" [magit-git-section svn-unpulled "Unpulled commits (SVN):" magit-wash-log "log" "--pretty=format:* %H %s" format "HEAD..remotes/%s" magit-get-svn-branch-name] 9])
(defalias 'magit-insert-unpushed-svn-commits #[nil "\300\301\302\303\304\305\306\307\310 \"&\207" [magit-git-section svn-unpushed "Unpushed commits (SVN):" magit-wash-log "log" "--pretty=format:* %H %s" format "remotes/%s..HEAD" magit-get-svn-branch-name] 9])
(defalias 'magit-refresh-status #[nil "\306\307 \210 \310\311\312\310\"\211 \313H\f>\204 \314\315!\210 \316`I\210\317 \211 \205- \320\321\322# @\323 A\324\325! B\326\327B\" C@\203Q \330\331@\320\322@\332##c\210\330\333\334\206Y \335\336\337#\340D!#c\210\330\341C\203n \342\202p B\"c\210\343\344!\211 E\203\211 \330\345\346\347\350\351E\"\"\"c\210)\352 \211 F\203\232 \353\330\354F#c\210)\355c\210\356 \210\357 \210\360 \210\361 \210@\203\265 \362@\"\210A\203\275 \363 \210C\206\304 \364 G\365G\203\320 \366\202\321 \367!\210G\203\335 \370C!\210)@\203\351 \371@\"\210A\203\361 \372 \210- \313H\f>\204\376 \314\373!\210 \374`I\210 H \313H\f>\204\314\375!\210 \376H\237 IH\313H\f>\204%\314\377!\210H\376II\210* \210* \204\232\311\201M \310\"\211 JJ\313H\f>\204K\314\315!\210J\316`I\210\201N c\210J\313H\f>\204c\314\373!\210J\374`I\210J KJ\313H\f>\204z\314\375!\210J\376H\237 LK\313H\f>\204\216\314\377!\210K\376LI\210*J\210*\201O !\210\201P \211\313H\f>\204\262\314\201Q !\210 \201R H\"*\207" [inhibit-read-only magit-top-section magit-old-top-section #1=#:G62507 cl-struct-magit-section-tags branch t erase-buffer nil magit-new-section status 0 error "magit-section-beginning storing a non-magit-section" 3 magit-get-current-branch magit-get "branch" "remote" magit-svn-enabled magit-git-string "log --max-count=1 --abbrev-commit --pretty=oneline" string-match "fatal: bad default revision" format "Remote: %s %s\n" "url" "Local: %s %s\n" propertize "(detached)" face magit-branch abbreviate-file-name "Head: %s\n" "nothing commited (yet)" magit-file-lines ".git/MERGE_HEAD" "Merging: %s\n" magit-concat-with-delim ", " mapcar magit-name-rev magit-rebase-info apply "Rebasing: %s (%s of %s)\n" "\n" magit-insert-untracked-files magit-insert-stashes magit-insert-pending-changes magit-insert-pending-commits magit-insert-unpulled-commits magit-insert-unpulled-svn-commits magit-anything-staged-p magit-insert-unstaged-changes "Unstaged changes:" "Changes:" magit-insert-staged-changes magit-insert-unpushed-commits magit-insert-unpushed-svn-commits "magit-section-end storing a non-magit-section" 4 "magit-section-children accessing a non-magit-section" 5 "magit-section-children storing a non-magit-section" remote svn-enabled head no-commit default-directory merge-heads rebase staged #2=#:--cl-x-- #3=#:--cl-store-- #4=#:G62508 #5=#:--cl-x-- #6=#:--cl-store-- top "(empty)\n" magit-propertize-section magit-section-set-hidden "magit-section-hidden accessing a non-magit-section" 6] 8])
#@50 Initialize git repository in specified directory
(defalias 'magit-init #[(dir) "\303!\211\203 \304\305 \306!\230\203 \307\202 \310 #!\2059 \311!\2041 \312\305\313\"!\2031 \314!\210\315\316\317D!))\207" [dir topdir default-directory magit-get-top-dir yes-or-no-p format expand-file-name "There is already a Git repository in %s. Reinitialize? " "There is a Git repository in %s. Create another in %s? " file-directory-p y-or-n-p "Directory %s does not exists. Create it? " make-directory magit-run* "git" "init"] 6 (#$ . 79021) (list (read-directory-name "Directory for Git repository: "))])
(defalias 'magit-status #[(dir) "\203\n \304\305=!\210\306 !\211\204# \307\310\311 \"!\203# \312 !\210\306 !\n\205E \313\314\n\"\206: \315\316\317\320\321\n!!\322Q!!\315 !\210\323\n\314\324#))\207" [magit-save-some-buffers dir topdir buf save-some-buffers dontask magit-get-top-dir y-or-n-p format "There is no Git repository in %S. Create one? " magit-init magit-find-buffer status switch-to-buffer get-buffer-create "*magit: " file-name-nondirectory directory-file-name "*" magit-mode-init magit-refresh-status] 7 nil (list (or (and (not current-prefix-arg) (magit-get-top-dir default-directory)) (magit-read-top-dir)))])
#@44 Add the item at point to the staging area.
(defalias 'magit-stage-item #[nil "\300\301!\207" [magit-refresh-wrapper #[nil "\305 \211\306H >\204 \307\310!\210\311H\306H >\204 \307\312!\210\313H\314! \315\316\f\"\2035 \317\320\n\"\202\233 \315\321\f\"\203M \322!\203F \307\323!\210\324\325\"\202\233 \315\326\f\"\203^ \317\320\327\330!#\202\233 \315\331\f\"\203k \307\332!\202\233 \315\333\f\"\203x \307\334!\202\233 \315\335\f\"\203\205 \307\336!\202\233 \204\220 \307\337\340\"\202\233 \307\341\340 \342N\206\232 #,\207" [item cl-struct-magit-section-tags info #1=#:G62509 #2=#:G62510 magit-current-section 0 error "magit-section-info accessing a non-magit-section" 8 "magit-section-type accessing a non-magit-section" 7 magit-section-context-type magit-prefix-p (file untracked) magit-run-git "add" (hunk diff unstaged) magit-hunk-item-is-conflict-p "Can't stage individual resolution hunks. Please stage the whole file." magit-apply-hunk-item "--cached" (diff unstaged) "-u" magit-diff-item-file (* staged) "Already staged" (hunk) "Can't stage this hunk" (diff) "Can't stage this diff" "Nothing to %s here." "stage" "Can't %s a %s." magit-description] 6]] 2 (#$ . 80259) nil])
#@49 Remove the item at point from the staging area.
(defalias 'magit-unstage-item #[nil "\300\301!\207" [magit-refresh-wrapper #[nil "\305 \211\306H >\204 \307\310!\210\311H\306H >\204 \307\312!\210\313H\314! \315\316\f\"\2035 \317\320\"\202\205 \315\321\f\"\203H \322\323\324\325\326\327!%\202\205 \315\330\f\"\203U \307\331!\202\205 \315\332\f\"\203b \307\333!\202\205 \315\334\f\"\203o \307\335!\202\205 \204z \307\336\337\"\202\205 \307\340\337 \341N\206\204 #,\207" [item cl-struct-magit-section-tags info #1=#:G62511 #2=#:G62512 magit-current-section 0 error "magit-section-info accessing a non-magit-section" 8 "magit-section-type accessing a non-magit-section" 7 magit-section-context-type magit-prefix-p (hunk diff staged) magit-apply-hunk-item-reverse "--cached" (diff staged) magit-run-git "reset" "-q" "HEAD" "--" magit-diff-item-file (* unstaged) "Already unstaged" (hunk) "Can't unstage this hunk" (diff) "Can't unstage this diff" "Nothing to %s here." "unstage" "Can't %s a %s." magit-description] 8]] 2 (#$ . 81459) nil])
(defalias 'magit-stage-all #[nil "\300\301\302\303#\207" [magit-run-git "add" "-u" "."] 4 nil nil])
(defalias 'magit-unstage-all #[nil "\300\301\302\"\207" [magit-run-git "reset" "HEAD"] 3 nil nil])
(defalias 'magit-checkout #[(rev) "\205\n \301\302\303!\"\207" [rev magit-run-git "checkout" magit-rev-to-git] 4 nil (list (magit-read-rev "Switch to" (magit-default-rev)))])
(defalias 'magit-read-create-branch-args #[nil "\303 \304\305!\306\307\" \n+D\207" [cur-branch branch parent magit-get-current-branch read-string "Create branch: " magit-read-rev "Parent"] 3])
(defalias 'magit-create-branch #[(branch parent) "\205 \302\230?\205 \205 \303\304\305\306 !$\207" [branch parent "" magit-run-git "checkout" "-b" magit-rev-to-git] 6 nil (magit-read-create-branch-args)])
(defalias 'magit-guess-branch #[nil "\302 \211\205* \303H >\204 \304\305!\210\306H\307=\205* \303H >\204' \304\310!\210\311H)\207" [sec cl-struct-magit-section-tags magit-current-section 0 error "magit-section-type accessing a non-magit-section" 7 wazzup "magit-section-info accessing a non-magit-section" 8] 3])
(defalias 'magit-manual-merge #[(rev) "\205\f \301\302\303\304\305!$\207" [rev magit-run-git "merge" "--no-ff" "--no-commit" magit-rev-to-git] 6 nil (list (magit-read-rev "Manually merge" (magit-guess-branch)))])
(defalias 'magit-automatic-merge #[(rev) "\205\n \301\302\303!\"\207" [rev magit-run-git "merge" magit-rev-to-git] 4 nil (list (magit-read-rev "Merge" (magit-guess-branch)))])
(defalias 'magit-rebase-info #[nil "\300\301!\203 \302\303\304!@!\303\305!@\303\306!@E\207\300\307!\203* \303\310!@\303\311!@\303\312!@E\207\313\207" [file-exists-p ".dotest" magit-name-rev magit-file-lines ".dotest/onto" ".dotest/next" ".dotest/last" ".git/.dotest-merge" ".git/.dotest-merge/onto_name" ".git/.dotest-merge/msgnum" ".git/.dotest-merge/end" nil] 4])
(defalias 'magit-rebase-step #[nil "\305 \211\204 \306\307!\211\205 \310\311\312 !\")\202L \313\314\315\316!\210\317 \320\f\321\"\2032 \310\311\322\"\202K \320\f\323\"\203@ \310\311\324\"\202K \320\f\325\"\205K \310\311\326\"+)\207" [info rev message-log-max cursor-in-echo-area reply magit-rebase-info magit-read-rev "Rebase to" magit-run-git "rebase" magit-rev-to-git t nil message "Rebase in progress. Abort, Skip, or Continue? " read-event memql (65 97) "--abort" (83 115) "--skip" (67 99) "--continue"] 5 nil nil])
(defalias 'magit-svn-rebase #[nil "\300\301\302\"\207" [magit-run-git-async "svn" "rebase"] 3 nil nil])
(defalias 'magit-svn-dcommit #[nil "\300\301\302\"\207" [magit-run-git-async "svn" "dcommit"] 3 nil nil])
(defalias 'magit-svn-enabled #[nil "\300 ??\207" [magit-get-svn-branch-name] 1])
(defalias 'magit-get-svn-branch-name #[nil "\300\301\302 \303\304$\206 \300\305\302 \303\304$\207" [find "git-svn" magit-list-interesting-revisions :test equal "trunk"] 5])
(defalias 'magit-reset-head #[(rev &optional hard) "\205 \302\303 \203 \304\202 \305\306!#\207" [rev hard magit-run-git "reset" "--hard" "--soft" magit-rev-to-git] 5 nil (list (magit-read-rev (format "%s head to" (if current-prefix-arg "Hard reset" "Reset")) (or (magit-default-rev) "HEAD^")) current-prefix-arg)])
(defalias 'magit-reset-working-tree #[nil "\300\301!\205\n \302\303\304\"\207" [yes-or-no-p "Discard all uncommitted changes? " magit-run-git "reset" "--hard"] 3 nil nil])
(defalias 'magit-read-rewrite-info #[nil "\301\302!\205 \303\304!\305\216rq\210\306\302!\210eb\210\307p!+\207" [#1=#:temp-buffer file-exists-p ".git/magit-rewrite-info" generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents read] 2])
(defalias 'magit-write-rewrite-info #[(info) "\303\304\305\306!!\307\216rq\210\310\np\"\210\311\312p\")rq\210~\210\313ed \314\315%\210,\207" [#1=#:temp-buffer #2=#:temp-file info ".git/magit-rewrite-info" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) prin1 princ "\n" write-region nil 0] 7])
(defalias 'magit-insert-pending-commits #[nil "\306 \301\236A\211\205 \307\301\310\"\211\n\311H\f>\204 \312\313!\210\n\314`I\210\315\316\317\320#c\210 \310 \211 \203\310 @\211@ A \321 \322\" \307\323\"\211 !!\311H\f>\204] \312\313!\210!\314`I\210\324!\210\325\326\203s \327\202t \330#\331\261\210!\311H\f>\204\210 \312\332!\210!\333`I\210! \"!\311H\f>\204\237 \312\334!\210!\335H\237 #\"\311H\f>\204\263 \312\336!\210\"\335#I\210*!\210- A\211 \2044 *\n\311H\f>\204\325 \312\332!\210\n\333`I\210\n $\n\311H\f>\204\351 \312\334!\210\n\335H\237 %$\311H\f>\204\374 \312\336!\210$\335%I\210*\n\210*\331c*\207" [info pending #1=#:G62513 magit-top-section cl-struct-magit-section-tags p magit-read-rewrite-info magit-new-section nil 0 error "magit-section-beginning storing a non-magit-section" 3 propertize "Pending commits:\n" face magit-section-title plist-get used commit magit-set-section-info magit-git-string "log --max-count=1 --pretty=format:%s %s --" ". %s" "* %s" "\n" "magit-section-end storing a non-magit-section" 4 "magit-section-children accessing a non-magit-section" 5 "magit-section-children storing a non-magit-section" #2=#:--cl-dolist-temp-- properties #3=#:G62514 #4=#:--cl-x-- #5=#:--cl-store-- #6=#:--cl-x-- #7=#:--cl-store--] 6])
(defalias 'magit-rewrite-set-commit-property #[(commit prop value) "\306 \301\236A\307\n \"\211\205 \310 A\f#\241\210\311!\210\312 +\207" [info pending commit p prop value magit-read-rewrite-info assoc plist-put magit-write-rewrite-info magit-need-refresh] 6])
(defalias 'magit-rewrite-set-used #[nil "\300\301!\207" [magit-refresh-wrapper #[nil "\305 \211\306H >\204 \307\310!\210\311H\306H >\204 \307\312!\210\313H\314! \315\316\f\"\2053 \317\n\320\321#,\207" [item cl-struct-magit-section-tags info #1=#:G62515 #2=#:G62516 magit-current-section 0 error "magit-section-info accessing a non-magit-section" 8 "magit-section-type accessing a non-magit-section" 7 magit-section-context-type magit-prefix-p (commit pending) magit-rewrite-set-commit-property used t] 5]] 2 nil nil])
(defalias 'magit-rewrite-set-unused #[nil "\300\301!\207" [magit-refresh-wrapper #[nil "\305 \211\306H >\204 \307\310!\210\311H\306H >\204 \307\312!\210\313H\314! \315\316\f\"\2053 \317\n\320\321#,\207" [item cl-struct-magit-section-tags info #1=#:G62517 #2=#:G62518 magit-current-section 0 error "magit-section-info accessing a non-magit-section" 8 "magit-section-type accessing a non-magit-section" 7 magit-section-context-type magit-prefix-p (commit pending) magit-rewrite-set-commit-property used nil] 5]] 2 nil nil])
(defalias 'magit-insert-pending-changes #[nil "\304 \302\236\211A@)\211\205 \305\306\307\310\311\312\313 \314\n&)*\207" [info x orig magit-hide-diffs magit-read-rewrite-info t magit-git-section pending-changes "Pending changes" magit-wash-diffs "diff" magit-diff-U-arg "-R"] 9])
(defalias 'magit-rewrite-start #[(from &optional onto) "\304 \204 \305\306!\210\307 \203 \305\310!\210\311\312!\311\313 \"\314\315\n\"\316\300D\303\317\320 \"BD!\210\321\322\323\n#+\207" [orig from base pending magit-everything-clean-p error "You have uncommitted changes." magit-read-rewrite-info "Rewrite in progress." magit-git-string "rev-parse HEAD" "rev-parse %s^" magit-git-lines "rev-list %s.." magit-write-rewrite-info mapcar list magit-run-git "reset" "--hard"] 6 nil (list (magit-read-rev "Rewrite from" (magit-default-rev)))])
(defalias 'magit-rewrite-stop #[(&optional noconfirm) "\302 \211\204 \303\304!\210 \204 \305\306!\205 \307\310!\210\311 )\207" [info noconfirm magit-read-rewrite-info error "No rewrite in progress." yes-or-no-p "Stop rewrite? " magit-write-rewrite-info nil magit-need-refresh] 3 nil nil])
(defalias 'magit-rewrite-abort #[nil "\303 \302\236\211A@)\204 \304\305!\210\306 \204 \304\307!\210\310\311!\205, \312\313!\210\314\315\316\n#*\207" [info x orig magit-read-rewrite-info error "No rewrite in progress." magit-everything-clean-p "You have uncommitted changes." yes-or-no-p "Abort rewrite? " magit-write-rewrite-info nil magit-run-git "reset" "--hard"] 5 nil nil])
(defalias 'magit-rewrite-finish #[nil "\300\301!\207" [magit-refresh-wrapper #[nil "\300\301!\207" [magit-rewrite-finish-step t] 2]] 2 nil nil])
(defalias 'magit-rewrite-finish-step #[(first-p) "\305 \211\204 \306\307!\210\301\236A\310\311 \312\313$\211@\n\204$ \314\313!\2026 \315 \313\f?#\2056 \316 \317\313#\210\320\321!,\207" [info pending first-unused commit first-p magit-read-rewrite-info error "No rewrite in progress." find-if #[(p) "\301A\302\"?\207" [p plist-get used] 3] :from-end t magit-rewrite-stop magit-apply-commit magit-rewrite-set-commit-property used magit-rewrite-finish-step nil] 6])
(defalias 'magit-remote-update #[nil "\300 \203\n \301\302\303\"\207\301\304\305\"\207" [magit-svn-enabled magit-run-git-async "svn" "fetch" "remote" "update"] 3 nil nil])
(defalias 'magit-pull #[nil "\300\301\302\"\207" [magit-run-git-async "pull" "-v"] 3 nil nil])
(defalias 'magit-read-remote #[(prompt def) "\302\203 \303\304 #\202 \303\305 \"\306\307!\310\211\211\211&\207" [def prompt completing-read format "%s (default %s): " "%s: " magit-git-lines "remote" nil] 8])
(defalias 'magit-push #[nil "\304 \206 \305\306!\307\310\311#\n\204 \204! \312\313\314\" \"\202\" \2042 \n\2042 \315 \310\311$\210\316\317\320 $+\207" [branch branch-remote current-prefix-arg push-remote magit-get-current-branch error "Don't push a detached head. That's gross." magit-get "branch" "remote" magit-read-remote format "Push %s to" magit-set magit-run-git-async "push" "-v"] 5 nil nil])
(byte-code "\302B\303\302!\2041 \304\302\305 \306 \307\310#\210\306 \311\312#\210\306 \313\314#\210\306 \315\316#\210\306 \317\320#\210 )\"\210\321B\303\321!\204@ \304\321\322\"\210\322\207" [current-load-list map magit-log-edit-map default-boundp set-default make-sparse-keymap define-key "" magit-log-edit-commit "" magit-log-edit-toggle-amending [134217840] log-edit-previous-comment [134217838] log-edit-next-comment " " magit-log-edit-cancel-log-message magit-pre-log-edit-window-configuration nil] 6)
#@108 Fill the paragraph, but preserve open parentheses at beginning of lines.
Prefix arg means justify as well.
(defalias 'magit-log-fill-paragraph #[(&optional justify) "\305P\306 \210`\307 \210`\310\311\n \f#\210,\312\207" [paragraph-start adaptive-fill-mode beg end justify "\\|*\\|(" forward-paragraph backward-paragraph nil fill-region t] 4 (#$ . 92714) "P"])
(byte-code "\302\303N\204\f \304\302\303\305#\210\306\307!\204 \304\307\310\311#\210\307B\312\307!\204( \313\307\314 \"\210\306\315!\2044 \304\315\310\311#\210\315B\312\315!\204D \313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^ \313\301\317\301\320\"\210 \"\210\304\311\321\322#\207" [current-load-list magit-log-edit-mode-abbrev-table magit-log-edit-mode-hook variable-documentation put "Hook run when entering Magit Log Edit mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp magit-log-edit-mode-map definition-name magit-log-edit-mode default-boundp set-default make-sparse-keymap magit-log-edit-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent text-mode] 5)
#@506 Major mode derived from `text-mode' by `define-derived-mode'.
It inherits all of the parent's attributes, but has its own keymap,
abbrev table and syntax table:
`magit-log-edit-mode-map', `magit-log-edit-mode-abbrev-table' and `magit-log-edit-mode-syntax-table'
which more-or-less shadow text-mode's corresponding tables.
In addition to any hooks its parent mode might have run,
this mode runs the hook `magit-log-edit-mode-hook', as the final step
during initialization.
\{magit-log-edit-mode-map}
(defalias 'magit-log-edit-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324 !\210\325\f!\210 \306\326!\210\327\324 !\210)\330\331!\203` \331\332!\207\333\332!\207" [delay-mode-hooks major-mode mode-name magit-log-edit-mode-map magit-log-edit-mode-syntax-table parent make-local-variable t text-mode magit-log-edit-mode "Magit Log Edit" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table fill-paragraph-function magit-log-fill-paragraph fboundp run-mode-hooks magit-log-edit-mode-hook run-hooks magit-log-edit-mode-abbrev-table local-abbrev-table magit-log-edit-map] 6 (#$ . 93887) nil])
(defalias 'magit-log-edit-cleanup #[nil "\212eb\210\300\301!\210eb\210\302\303\304\305#\205 \306\307\304\211#)\207" [flush-lines "^#" re-search-forward "[ \n]*\\'" nil t replace-match "\n"] 4])
(defalias 'magit-log-edit-append #[(str) "\212\301\302!q\210db\210\303\261)\207" [str get-buffer-create "*magit-log-edit*" "\n"] 2])
(byte-code "\301B\302\303!\207" [current-load-list magit-log-header-end (lambda (#1=#:defconst-tmp-var) (defconst magit-log-header-end #1#)) "-- End of Magit header --\n"] 2)
(defalias 'magit-log-edit-get-fields #[nil "\306\307!\310\211\203< \212 q\210eb\210\311\312!\2031 \313\314\315!\227!\314\316!\211 B\n+B\310y\210\202 \311\317!!\204; \310)\237*\207" [result buf alist value key magit-log-header-end get-buffer "*magit-log-edit*" nil looking-at "^\\([A-Za-z0-9-_]+\\): *\\(.*\\)$" intern match-string 1 2 regexp-quote] 4])
(defalias 'magit-log-edit-set-fields #[(fields) "\304\305!\212q\210eb\210\306\307\310\311 !\"\312\313#\203 \314\224\314\225|\210eb\210\n\205G \n\203E \315\316\n\211@@)!!\317\n\211@A)\320\261\210\nA\211\204) c*\207" [buf magit-log-header-end fields x get-buffer-create "*magit-log-edit*" search-forward-regexp format "^\\([A-Za-z0-9-_]+:.*\n\\)+%s" regexp-quote nil t 0 capitalize symbol-name ": " "\n"] 6])
(defalias 'magit-log-edit-set-field #[(name value) "\304 \236\211\203 \203 \n \241\210\202* \305\n\"\202* \203* \306 BC\"\307!*\207" [fields name cell value magit-log-edit-get-fields delq append magit-log-edit-set-fields] 5])
(defalias 'magit-log-edit-get-field #[(name) "\301 \236A\207" [name magit-log-edit-get-fields] 2])
(defalias 'magit-log-edit-setup-author-env #[(author) "\203. \304\305\"\204 \306\307!\210\310\311\"\310\312\"\310\313\"\314\315 \"\210\314\316\n\"\210\314\317 \"+\207\314\315!\210\314\316!\210\314\317!\207" [author date email name string-match "\\(.*\\) <\\(.*\\)>, \\(.*\\)" error "Can't parse author string." match-string 1 2 3 setenv "GIT_AUTHOR_NAME" "GIT_AUTHOR_EMAIL" "GIT_AUTHOR_DATE"] 5])
(defalias 'magit-log-edit-push-to-comment-ring #[(comment) "\302!\204 \303\304\"\232?\205 \305 \"\207" [log-edit-comment-ring comment ring-empty-p ring-ref 0 ring-insert] 4])
(defalias 'magit-log-edit-commit #[nil "\306 \301\236A\307\232\302\236A\307\232\303\236A\304\236A \310\311 !\210\312\f!\210\313\314!\210\315 \210\316 \317U\2035 \320c\210p r\321\322\"\"q\210 \203P \323\324 \325\326\327&\210\202o \330\331#\332$\333\326\327E\n\205a \334 \205f \335%\205l \336%$\210*\337 \210\340 \210&\205\204 \341&!\210\314\211&-\207" [fields amend commit-all tag author commit-buf magit-log-edit-get-fields "yes" magit-log-edit-push-to-comment-ring buffer-string magit-log-edit-setup-author-env magit-log-edit-set-fields nil magit-log-edit-cleanup buffer-size 0 "(Empty description)\n" magit-find-buffer status magit-run-git-with-input "tag" "-a" "-F" "-" apply magit-run-async-with-input append "commit" ("--all") ("--amend") ("--signoff") erase-buffer bury-buffer set-window-configuration default-directory magit-git-executable magit-git-standard-options magit-commit-signoff magit-pre-log-edit-window-configuration] 10 nil nil])
(defalias 'magit-log-edit-cancel-log-message #[nil "\203\n \302\303!\205 \304 \210\305 \210 \205 \306 !\210\307\211\207" [magit-log-edit-confirm-cancellation magit-pre-log-edit-window-configuration yes-or-no-p "Really cancel editing the log (any changes will be lost)?" erase-buffer bury-buffer set-window-configuration nil] 2 nil nil])
(defalias 'magit-log-edit-toggle-amending #[nil "\305 \306\236\211\203 \211A\307\232\203 \310\202 \307\241\210\2021 \306\307\211 B\n+B\311\312\313\314\"!\210\315!*\207" [fields cell alist value key magit-log-edit-get-fields amend "yes" "no" magit-log-edit-append magit-format-commit "HEAD" "%s%n%n%b" magit-log-edit-set-fields] 5 nil nil])
(defalias 'magit-pop-to-log-edit #[(operation) "\305\306!\307 \310 !\210\n\311 \210\312\313\f\"*\207" [default-directory buf dir magit-pre-log-edit-window-configuration operation get-buffer-create "*magit-log-edit*" current-window-configuration pop-to-buffer magit-log-edit-mode message "Type C-c C-c to %s (C-c C-k to cancel)."] 3])
(defalias 'magit-log-edit #[nil "\301\302\303\"\210\203@ \304 \204@ \305=\203% \306 \204@ \307\310!\203@ \311 \210\202@ \312\313!\204@ \301\313\314=\2049 \307\315!\203= \316\202> \317\"\210\320\321!\207" [magit-commit-all-when-nothing-staged magit-log-edit-set-field tag nil magit-anything-staged-p ask-stage magit-everything-clean-p y-or-n-p "Nothing staged. Stage everything now? " magit-stage-all magit-log-edit-get-field commit-all t "Nothing staged. Commit all unstaged changes? " "yes" "no" magit-pop-to-log-edit "commit"] 4 nil nil])
(defalias 'magit-add-log #[nil "\305 \211\306H >\204 \307\310!\210\311H\312=\205 \313\213\314\306H >\204& \307\310!\210\311H\312=\2034 \315!\202O \306H >\204@ \307\310!\210\311H\316=\203L \202O \307\317!!\320 \210eb\210\321\322\323\324\n!\"\325\326#\204} db\210\322\327\n\"c\210 \203x \322\330 \"c\210\331c\202\310 \205\310 \212\321\332\325\326#\205\214 \306\224)\206\221 d \321\322\333\324 !\"\f\326#\203\261 \321\334\f\326#\203\254 \335u\202\307 \fb\202\307 \fb\210n\203\277 \336\337!\210\202\302 \340 \210\322\341 \"c)+\207" [section cl-struct-magit-section-tags file fun limit magit-current-section 0 error "magit-section-type accessing a non-magit-section" 7 hunk ((byte-code "\212\300 \210\301 )\207" [magit-visit-item add-log-current-defun] 1)) magit-diff-item-file magit-hunk-item-diff diff "No change at point" magit-log-edit search-forward-regexp format "^\\* %s" regexp-quote nil t "\n* %s" " (%s)" ": " "^\\* " "(.*\\<%s\\>.*):" "^(" -2 open-line 1 newline "(%s): "] 6 nil nil])
(defalias 'magit-tag #[(name) "\301\302\"\207" [name magit-run-git "tag"] 3 nil "sNew tag name: "])
(defalias 'magit-annotated-tag #[(name) "\301\302\"\210\303\304!\207" [name magit-log-edit-set-field tag magit-pop-to-log-edit "tag"] 3 nil "sNew tag name: "])
(defalias 'magit-wash-stash #[nil "\306\307\310 \311#\203\206 \312\313!\312\314!\313\224\313\225|\210\313\224b\210\315 \210\316 b\210c\210\316 b\210\317 \301\"\211\n\313H\f>\204< \320\321!\210\n\322`I\210\323 !\210\324y\210\n\313H\f>\204T \320\325!\210\n\326`I\210\n \n\313H\f>\204g \320\327!\210\n\330H\237 \313H\f>\204y \320\331!\210\330I\210*\n\210,\202\211 \324y\210\311\207" [name stash #1=#:G62519 magit-top-section cl-struct-magit-section-tags #2=#:--cl-x-- search-forward-regexp "stash@{\\(.*\\)}" line-end-position t match-string-no-properties 0 1 fixup-whitespace line-beginning-position magit-new-section error "magit-section-beginning storing a non-magit-section" 3 magit-set-section-info nil "magit-section-end storing a non-magit-section" 4 "magit-section-children accessing a non-magit-section" 5 "magit-section-children storing a non-magit-section" #3=#:--cl-store--] 5])
(defalias 'magit-wash-stashes #[nil "\301\302\303!)\207" [magit-old-top-section nil magit-wash-sequence magit-wash-stash] 2])
(defalias 'magit-insert-stashes #[nil "\300\301\302\303\304\305%\207" [magit-git-section stashes "Stashes:" magit-wash-stashes "stash" "list"] 6])
(defalias 'magit-stash #[(description) "\301\302\303#\207" [description magit-run-git "stash" "save"] 4 nil "sStash description: "])
(defalias 'magit-stash-snapshot #[nil "\300\301!\207" [magit-refresh-wrapper #[nil "\300\301\302\303\304\305 \"#\210\300\301\306\307#\207" [magit-run-git "stash" "save" format-time-string "Snapshot taken at %Y-%m-%d %H:%M:%S" current-time "apply" "stash@{0}"] 6]] 2 nil nil])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list magit-currently-shown-stash default-boundp set-default nil] 3)
(defalias 'magit-show-stash #[(stash &optional scroll) "\306!\203% G\307Y\203% \310H >\203% \310H >\204! \311\312!\210\313H\n\314\315! \232\203a \316 !\211 \204@ \317 !\202] \205] \320 \321\322\323 \" r\324\216\325 \326\"\210 ,)\202\210 \317 !\210r q\210 q\210eb\210\327PB \330 ! !\331\f\332\333 !%+*\207" [stash cl-struct-magit-section-tags default-directory buf dir magit-currently-shown-stash vectorp 9 0 error "magit-section-info accessing a non-magit-section" 8 get-buffer-create "*magit-stash*" get-buffer-window display-buffer selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\203/ \n@\306 @!\203( \307 \211A@)!\203( \310 @ \211A@)\"\210\nA\211\204 *\307\f!\203; \311\f\312\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window select-window norecord] 4)) select-window norecord "^2^" magit-rev-range-to-git magit-mode-init diff magit-refresh-diff-buffer win scroll save-selected-window-alist save-selected-window-window range args] 7])
(defalias 'magit-commit-at-point #[(&optional nil-ok-p) "\304 \211\305H >\204 \306\307!\210\310H\302=\205& \305H >\204# \306\311!\210\312H \203/ \n\2026 \n\2066 \306\313!*\207" [section cl-struct-magit-section-tags commit nil-ok-p magit-current-section 0 error "magit-section-type accessing a non-magit-section" 7 "magit-section-info accessing a non-magit-section" 8 "No commit at point."] 3])
(defalias 'magit-apply-commit #[(commit &optional docommit noerase revert) "\306\307\"\310\n\311 \f\203 \312\202 \307C \205 \313\314 !D?\205# \315CC%B\316# \2036 \203S \f\203D \317\320\321\"!\210\202S \317\320\322\"!\210\323\324\320\325\"\"\210*\207" [commit parent-id magit-git-executable magit-git-standard-options revert docommit magit-choose-parent-id "cherry-pick" magit-run* append "revert" "-m" number-to-string "--no-commit" nil magit-log-edit-append magit-format-commit "Reverting \"%s\"" "%s%n%n%b" magit-log-edit-set-field author "%an <%ae>, %ai" noerase success] 8])
(defalias 'magit-apply-item #[nil "\300\301!\207" [magit-refresh-wrapper #[nil "\305 \211\306H >\204 \307\310!\210\311H\306H >\204 \307\312!\210\313H\314! \315\316\f\"\203: \317\n!\210\320\n\321\322#\202\240 \315\323\f\"\203G \317\n!\202\240 \315\324\f\"\203T \307\325!\202\240 \315\326\f\"\203a \307\325!\202\240 \315\327\f\"\203n \330!\202\240 \315\331\f\"\203{ \332!\202\240 \315\333\f\"\203\212 \334\335\336\n#\202\240 \204\225 \307\337\336\"\202\240 \307\340\336 \341N\206\237 #,\207" [item cl-struct-magit-section-tags info #1=#:G62520 #2=#:G62521 magit-current-section 0 error "magit-section-info accessing a non-magit-section" 8 "magit-section-type accessing a non-magit-section" 7 magit-section-context-type magit-prefix-p (commit pending) magit-apply-commit magit-rewrite-set-commit-property used t (commit) (* unstaged) "Change is already in your working tree" (* staged) (hunk) magit-apply-hunk-item (diff) magit-apply-diff-item (stash) magit-run-git "stash" "apply" "Nothing to %s here." "Can't %s a %s." magit-description] 6]] 2 nil nil])
(defalias 'magit-cherry-pick-item #[nil "\300\301!\207" [magit-refresh-wrapper #[nil "\305 \211\306H >\204 \307\310!\210\311H\306H >\204 \307\312!\210\313H\314! \315\316\f\"\203; \317\n\320\"\210\321\n\322\320#\202n \315\323\f\"\203I \317\n\320\"\202n \315\324\f\"\203X \325\326\327\n#\202n \204c \307\330\331\"\202n \307\332\331 \333N\206m #,\207" [item cl-struct-magit-section-tags info #1=#:G62522 #2=#:G62523 magit-current-section 0 error "magit-section-info accessing a non-magit-section" 8 "magit-section-type accessing a non-magit-section" 7 magit-section-context-type magit-prefix-p (commit pending) magit-apply-commit t magit-rewrite-set-commit-property used (commit) (stash) magit-run-git "stash" "pop" "Nothing to %s here." "cherry-pick" "Can't %s a %s." magit-description] 6]] 2 nil nil])
(defalias 'magit-revert-item #[nil "\300\301!\207" [magit-refresh-wrapper #[nil "\305 \211\306H >\204 \307\310!\210\311H\306H >\204 \307\312!\210\313H\314! \315\316\f\"\203= \317\n\320\211\321$\210\322\n\323\320#\202~ \315\324\f\"\203M \317\n\320\211\321$\202~ \315\325\f\"\203Z \326!\202~ \315\327\f\"\203h \330\331\"\202~ \204s \307\332\333\"\202~ \307\334\333 \335N\206} #,\207" [item cl-struct-magit-section-tags info #1=#:G62524 #2=#:G62525 magit-current-section 0 error "magit-section-info accessing a non-magit-section" 8 "magit-section-type accessing a non-magit-section" 7 magit-section-context-type magit-prefix-p (commit pending) magit-apply-commit nil t magit-rewrite-set-commit-property used (commit) (hunk) magit-apply-hunk-item-reverse (diff) magit-apply-diff-item "--reverse" "Nothing to %s here." "revert" "Can't %s a %s." magit-description] 6]] 2 nil nil])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306\301!\210\307\301\310\311#\210\306\305!\210\307\305\310\311#\207" [current-load-list magit-have-graph default-boundp set-default unset magit-have-decorate make-variable-buffer-local put permanent-local t] 4)
(defalias 'magit-configure-have-graph #[nil "\302=\205 \303\304!\211\305=\211)\207" [magit-have-graph res unset magit-git-exit-code "log --graph --max-count=0" 0] 3])
(defalias 'magit-configure-have-decorate #[nil "\302=\205 \303\304!\211\305=\211)\207" [magit-have-decorate res unset magit-git-exit-code "log --decorate --max-count=0" 0] 3])
(defalias 'magit-refresh-log-buffer #[(range style args) "\306 \210\307 \210\310\311 \210 \312\313\314\312\315 \316\"\317\320\321\322\f\"\323'\205% \324C(\205, \325C)\326B#BBB%\210 \204\240 \327\330\312\"\211 **\331H+>\204P \332\333!\210*\334`I\210\335c\210*\331H+>\204g \332\336!\210*\337`I\210* ,*\331H+>\204 \332\340!\210*\341H\237 -,\331H+>\204\224 \332\342!\210,\341-I\210**\210*\343 !\210\344 \211\331H+>\204\263 \332\345!\210 \346H\"*\207" [inhibit-read-only magit-top-section magit-old-top-section range magit-log-cutoff-length style magit-configure-have-graph magit-configure-have-decorate t erase-buffer nil apply magit-git-section magit-rev-range-describe "Commits" magit-wash-log "log" format "--max-count=%s" append "--decorate" "--graph" ("--") magit-new-section top 0 error "magit-section-beginning storing a non-magit-section" 3 "(empty)\n" "magit-section-end storing a non-magit-section" 4 "magit-section-children accessing a non-magit-section" 5 "magit-section-children storing a non-magit-section" magit-propertize-section magit-section-set-hidden "magit-section-hidden accessing a non-magit-section" 6 magit-have-decorate magit-have-graph args #1=#:G62526 cl-struct-magit-section-tags #2=#:--cl-x-- #3=#:--cl-store--] 14])
(defalias 'magit-log #[(&optional arg) "\203 \305\306\307\"\202\f \307\310\n!\311 ! \312\313!\210\314 \315\316 \317\f&+\207" [arg range default-directory topdir args magit-read-rev-range "Log" "HEAD" magit-get-top-dir magit-rev-range-to-git switch-to-buffer "*magit-log*" magit-mode-init log magit-refresh-log-buffer "--pretty=oneline"] 7 nil "P"])
(defalias 'magit-log-long #[(&optional arg) "\203 \305\306\307\"\202\f \307\310\n!\311 ! \312\313!\210\314 \315\316 \317\f&+\207" [arg range default-directory topdir args magit-read-rev-range "Long log" "HEAD" magit-get-top-dir magit-rev-range-to-git switch-to-buffer "*magit-log*" magit-mode-init log magit-refresh-log-buffer "--stat"] 7 nil "P"])
(defalias 'magit-refresh-reflog-buffer #[(head args) "\306\307 \210 \310\311\312\313\314 \"\315\316\317\313\320\f\"\321&\210 \204\205 \322\323\310\"\211 \"\"\324H#>\2045 \325\326!\210\"\327`I\210\330c\210\"\324H#>\204L \325\331!\210\"\332`I\210\" $\"\324H#>\204d \325\333!\210\"\334H\237 %$\324H#>\204y \325\335!\210$\334%I\210*\"\210*\336 !\210\337 \211\324H#>\204\230 \325\340!\210 \341H\"*\207" [inhibit-read-only magit-top-section magit-old-top-section head magit-log-cutoff-length args t erase-buffer nil magit-git-section reflog format "Local history of head %s" magit-wash-log "log" "--walk-reflogs" "--max-count=%s" "--pretty=oneline" magit-new-section top 0 error "magit-section-beginning storing a non-magit-section" 3 "(empty)\n" "magit-section-end storing a non-magit-section" 4 "magit-section-children accessing a non-magit-section" 5 "magit-section-children storing a non-magit-section" magit-propertize-section magit-section-set-hidden "magit-section-hidden accessing a non-magit-section" 6 #1=#:G62527 cl-struct-magit-section-tags #2=#:--cl-x-- #3=#:--cl-store--] 10])
(defalias 'magit-reflog #[(head) "\205 \304 !\305!\306\307!\210\310\n\311\312 %*\207" [head default-directory topdir args magit-get-top-dir magit-rev-to-git switch-to-buffer "*magit-reflog*" magit-mode-init reflog magit-refresh-reflog-buffer] 6 nil (list (magit-read-rev "Reflog of" "HEAD"))])
(defalias 'magit-reflog-head #[nil "\300\301!\207" [magit-reflog "HEAD"] 2 nil nil])
(defalias 'magit-refresh-diff-buffer #[(range args) "\306\307 \210 \310\311\312\313 \314\"\315\316\317 \f&\210 \204x \320\321\310\"\211 \322H >\204/ \323\324!\210\325`I\210\326c\210\322H >\204D \323\327!\210\330`I\210 !\322H >\204Y \323\331!\210\332H\237 \"!\322H >\204m \323\333!\210!\332\"I\210*\210*\334 !\210\335 \211\322H >\204\213 \323\336!\210 \337H\"*\207" [inhibit-read-only magit-top-section magit-old-top-section range args #1=#:G62528 t erase-buffer nil magit-git-section diffbuf magit-rev-range-describe "Changes" magit-wash-diffs "diff" magit-diff-U-arg magit-new-section top 0 error "magit-section-beginning storing a non-magit-section" 3 "(empty)\n" "magit-section-end storing a non-magit-section" 4 "magit-section-children accessing a non-magit-section" 5 "magit-section-children storing a non-magit-section" magit-propertize-section magit-section-set-hidden "magit-section-hidden accessing a non-magit-section" 6 cl-struct-magit-section-tags #2=#:--cl-x-- #3=#:--cl-store--] 8])
(defalias 'magit-diff #[(range) "\205 \305!\306\307! \310\f!\210\212\fq\210\311\n\312\313 %,\207" [range default-directory dir args buf magit-rev-range-to-git get-buffer-create "*magit-diff*" display-buffer magit-mode-init diff magit-refresh-diff-buffer] 6 nil (list (magit-read-rev-range "Diff"))])
(defalias 'magit-diff-working-tree #[(rev) "\301\206 \302!\207" [rev magit-diff "HEAD"] 2 nil (list (magit-read-rev "Diff with (default HEAD)"))])
(defalias 'magit-diff-with-mark #[nil "\300\301 \302 B!\207" [magit-diff magit-marked-commit magit-commit-at-point] 3 nil nil])
(defalias 'magit-wazzup-toggle-ignore #[(branch edit) "\304 \203 \305\306\n\"\307!\n \235\203' \203 \310\311!\203- \312\n \"\202- \313 \nC\"\314 \"\210\315 *\207" [ignore-file edit branch ignored ".git/info/wazzup-exclude" read-string "Branch to ignore for wazzup: " magit-file-lines y-or-n-p "Branch %s is already ignored. Unignore?" delete append magit-write-file-lines magit-need-refresh] 3])
(defalias 'magit-refresh-wazzup-buffer #[(head all) "\306\307 \210 \310\311\312\310\"\211 \313H\f>\204 \314\315!\210 \316`I\210\317\320\"c\210\321\322! 8\323\324! 9:\203; 9\202@ \325\3269\" ;\327\330\331\" <;\310 =\211 >\203\322 >@=\332\333=\" ?\334?<\"\211 @\203u \335=!@\230\204\310 \332\336=#\203\310 \337?\335=!<#\210\332\340=# A\306 B\341=\342B\317\343A=\2118\235\203\252 \344\202\253 \345$\346\347\317\350C\"\351\317\352=#\353&) D\354=D\"\210**>A\211>\204S . \313H\f>\204\340 \314\355!\210 \356`I\210 E \313H\f>\204\364 \314\357!\210 \360H\237 FE\313H\f>\204\314\361!\210E\360FI\210* \210* \204x\311\362\310\"\211 GG\313H\f>\204+\314\315!\210G\316`I\210\363c\210G\313H\f>\204A\314\355!\210G\356`I\210G HG\313H\f>\204X\314\357!\210G\360H\237 IH\313H\f>\204l\314\361!\210H\360II\210*G\210*\364 !\210\365 \211\313H\f>\204\212\314\366!\210 \367H\"*\207" [inhibit-read-only magit-top-section magit-old-top-section #1=#:G62529 cl-struct-magit-section-tags head t erase-buffer nil magit-new-section wazzupbuf 0 error "magit-section-beginning storing a non-magit-section" 3 format "Wazzup, %s\n\n" magit-file-lines ".git/info/wazzup-exclude" magit-git-lines "branch -a | cut -c3-" remove-if #[(b) " \235\207" [b excluded] 2] make-hash-table :test equal magit-git-string "rev-parse %s" gethash file-name-nondirectory "merge-base %s %s" puthash "log --pretty=oneline %s..%s | wc -l" magit-git-section wazzup "%s unmerged commits in %s%s" " (normally ignored)" "" magit-wash-log "log" "--max-count=%s" "--pretty=oneline" "%s..%s" "--" magit-set-section-info "magit-section-end storing a non-magit-section" 4 "magit-section-children accessing a non-magit-section" 5 "magit-section-children storing a non-magit-section" top "(empty)\n" magit-propertize-section magit-section-set-hidden "magit-section-hidden accessing a non-magit-section" 6 excluded all-branches all branches reported b #2=#:--cl-dolist-temp-- hash reported-branch n magit-section-hidden-default magit-log-cutoff-length section #3=#:--cl-x-- #4=#:--cl-store-- #5=#:G62530 #6=#:--cl-x-- #7=#:--cl-store--] 13])
(defalias 'magit-wazzup #[(&optional all) "\303!\304\305!\210\306 \307\310\311 \n%)\207" [default-directory topdir all magit-get-top-dir switch-to-buffer "*magit-wazzup*" magit-mode-init wazzup magit-refresh-wazzup-buffer magit-get-current-branch] 6 nil "P"])
(defalias 'magit-ignore-file #[(file edit local) "\203 \304\202 \305\n\203 \306\307 \"\310\311 \312Q\313 #\210\314 )\207" [local ignore-file edit file ".git/info/exclude" ".gitignore" read-string "File to ignore: " append-to-file "/" "\n" nil magit-need-refresh] 4])
(defalias 'magit-ignore-item #[nil "\300\301!\207" [magit-refresh-wrapper #[nil "\306 \211\307H >\204 \310\311!\210\312H\307H >\204 \310\313!\210\314H\315! \316\317\f\"\2036 \320\n\321#\202Z \316\322\f\"\203D \323\n\"\202Z \204O \310\324\325\"\202Z \310\326\325 \327N\206Y #,\207" [item cl-struct-magit-section-tags info #1=#:G62531 #2=#:G62532 current-prefix-arg magit-current-section 0 error "magit-section-info accessing a non-magit-section" 8 "magit-section-type accessing a non-magit-section" 7 magit-section-context-type magit-prefix-p (file untracked) magit-ignore-file nil (wazzup) magit-wazzup-toggle-ignore "Nothing to %s here." "ignore" "Can't %s a %s." magit-description] 6]] 2 nil nil])
(defalias 'magit-ignore-item-locally #[nil "\300\301!\207" [magit-refresh-wrapper #[nil "\306 \211\307H >\204 \310\311!\210\312H\307H >\204 \310\313!\210\314H\315! \316\317\f\"\2036 \320\n\321#\202L \204A \310\322\323\"\202L \310\324\323 \325N\206K #,\207" [item cl-struct-magit-section-tags info #1=#:G62533 #2=#:G62534 current-prefix-arg magit-current-section 0 error "magit-section-info accessing a non-magit-section" 8 "magit-section-type accessing a non-magit-section" 7 magit-section-context-type magit-prefix-p (file untracked) magit-ignore-file t "Nothing to %s here." "ignore" "Can't %s a %s." magit-description] 6]] 2 nil nil])
(defalias 'magit-discard-diff #[(diff) "\303!\304!\211\305=\203& \306\307\310 \"!\205L \311\312\313\314 $\210\311\315\314 #\202L \n\316=\203> \306\307\317 \"!\205L \311\320\321\314 $\202L \306\307\322 \"!\205L \311\315\314 #*\207" [diff file kind magit-diff-item-kind magit-diff-item-file deleted yes-or-no-p format "Resurrect %s? " magit-run-git "reset" "-q" "--" "checkout" new "Delete %s? " "rm" "-f" "Discard changes to %s? "] 6])
(defalias 'magit-discard-item #[nil "\300\301!\207" [magit-refresh-wrapper #[nil "\305 \211\306H >\204 \307\310!\210\311H\306H >\204 \307\312!\210\313H\314! \315\316\f\"\203> \317\320\321\n\"!\205\373 \322\323\n\"\202\373 \315\324\f\"\203S \317\325!\205\373 \322\326\327\330#\202\373 \315\331\f\"\203o \317\332 \203d \333\202e \334!\205\373 \335!\202\373 \315\336\f\"\203\234 \337\340\341!!!\203\226 \317\332 \203\212 \333\202\213 \334!\205\373 \335\342\"\202\373 \307\343!\202\373 \315\344\f\"\203\251 \345!\202\373 \315\346\f\"\203\266 \345!\202\373 \315\347\f\"\203\303 \307\350!\202\373 \315\351\f\"\203\320 \307\352!\202\373 \315\353\f\"\203\345 \317\354!\205\373 \355\356\357\n#\202\373 \204\360 \307\360\361\"\202\373 \307\362\361 \363N\206\372 #,\207" [item cl-struct-magit-section-tags info #1=#:G62535 #2=#:G62536 magit-current-section 0 error "magit-section-info accessing a non-magit-section" 8 "magit-section-type accessing a non-magit-section" 7 magit-section-context-type magit-prefix-p (file untracked) yes-or-no-p format "Delete %s? " magit-run "rm" (untracked) "Delete all untracked files and directories? " "git" "clean" "-df" (hunk diff unstaged) magit-use-region-p "Discard changes in region? " "Discard hunk? " magit-apply-hunk-item-reverse (hunk diff staged) magit-file-uptodate-p magit-diff-item-file magit-hunk-item-diff "--index" "Can't discard this hunk. Please unstage it first." (diff unstaged) magit-discard-diff (diff staged) (hunk) "Can't discard this hunk" (diff) "Can't discard this diff" (stash) "Discard stash? " magit-run-git "stash" "drop" "Nothing to %s here." "discard" "Can't %s a %s." magit-description] 6]] 2 nil nil])
(defalias 'magit-visit-item #[nil "\300\301!\207" [magit-refresh-wrapper #[nil "\306 \211\307H >\204 \310\311!\210\312H\307H >\204 \310\313!\210\314H\315! \316\317\f\"\2034 \320\n!\202\231 \316\321\f\"\203C \320\322!!\202\231 \316\323\f\"\203a \322\324!!\325! \"\320\"!\210\326!*\202\231 \316\327\f\"\203r \330\n!\210\331\332!\202\231 \316\333\f\"\203\203 \334\n!\210\331\335!\202\231 \204\216 \310\336\337\"\202\231 \310\340\337 \341N\206\230 #,\207" [item cl-struct-magit-section-tags info #1=#:G62537 #2=#:G62538 line magit-current-section 0 error "magit-section-info accessing a non-magit-section" 8 "magit-section-type accessing a non-magit-section" 7 magit-section-context-type magit-prefix-p (file untracked) find-file (diff) magit-diff-item-file (hunk) magit-hunk-item-diff magit-hunk-item-target-line goto-line (commit) magit-show-commit pop-to-buffer "*magit-commit*" (stash) magit-show-stash "*magit-diff*" "Nothing to %s here." "visit" "Can't %s a %s." magit-description file] 6]] 2 nil nil])
(defalias 'magit-show-item-or-scroll-up #[nil "\300\301!\207" [magit-refresh-wrapper #[nil "\305 \211\306H >\204 \307\310!\210\311H\306H >\204 \307\312!\210\313H\314! \315\316\f\"\2035 \317\n\320\"\202E \315\321\f\"\203C \322\n\320\"\202E \320 ,\207" [item cl-struct-magit-section-tags info #1=#:G62539 #2=#:G62540 magit-current-section 0 error "magit-section-info accessing a non-magit-section" 8 "magit-section-type accessing a non-magit-section" 7 magit-section-context-type magit-prefix-p (commit) magit-show-commit scroll-up (stash) magit-show-stash] 4]] 2 nil nil])
(defalias 'magit-show-item-or-scroll-down #[nil "\300\301!\207" [magit-refresh-wrapper #[nil "\305 \211\306H >\204 \307\310!\210\311H\306H >\204 \307\312!\210\313H\314! \315\316\f\"\2035 \317\n\320\"\202E \315\321\f\"\203C \322\n\320\"\202E \320 ,\207" [item cl-struct-magit-section-tags info #1=#:G62541 #2=#:G62542 magit-current-section 0 error "magit-section-info accessing a non-magit-section" 8 "magit-section-type accessing a non-magit-section" 7 magit-section-context-type magit-prefix-p (commit) magit-show-commit scroll-down (stash) magit-show-stash] 4]] 2 nil nil])
(defalias 'magit-mark-item #[(&optional unmark) "\203 \301\302!\207\303\304!\207" [unmark magit-set-marked-commit nil magit-refresh-wrapper #[nil "\306 \211\307H >\204 \310\311!\210\312H\307H >\204 \310\313!\210\314H\315! \316\317\f\"\203; \320\n=?\2057 \n!\202Q \204F \310\321\322\"\202Q \310\323\322 \324N\206P #,\207" [item cl-struct-magit-section-tags info #1=#:G62543 #2=#:G62544 magit-marked-commit magit-current-section 0 error "magit-section-info accessing a non-magit-section" 8 "magit-section-type accessing a non-magit-section" 7 magit-section-context-type magit-prefix-p (commit) magit-set-marked-commit "Nothing to %s here." "mark" "Can't %s a %s." magit-description] 6]] 2 nil "P"])
(defalias 'magit-describe-item #[nil "\302 \303\304\305H >\204 \306\307!\210\310H\305H >\204 \306\311!\210\312H\305H >\204/ \306\313!\210\314H\305H >\204> \306\315!\210\316H\305H >\204M \306\317!\210\320H\321!&)\207" [section cl-struct-magit-section-tags magit-current-section message "Section: %s %s-%s %S %S %S" 0 error "magit-section-type accessing a non-magit-section" 7 "magit-section-beginning accessing a non-magit-section" 3 "magit-section-end accessing a non-magit-section" 4 "magit-section-title accessing a non-magit-section" 2 "magit-section-info accessing a non-magit-section" 8 magit-section-context-type] 9 nil nil])
#@46 Copy sha1 of commit at point into kill ring.
(defalias 'magit-copy-item-as-kill #[nil "\300\301!\207" [magit-refresh-wrapper #[nil "\305 \211\306H >\204 \307\310!\210\311H\306H >\204 \307\312!\210\313H\314! \315\316\f\"\2039 \317\n!\210\320\321\n\"\202O \204D \307\322\323\"\202O \307\324\323 \325N\206N #,\207" [item cl-struct-magit-section-tags info #1=#:G62545 #2=#:G62546 magit-current-section 0 error "magit-section-info accessing a non-magit-section" 8 "magit-section-type accessing a non-magit-section" 7 magit-section-context-type magit-prefix-p (commit) kill-new message "%s" "Nothing to %s here." "copy" "Can't %s a %s." magit-description] 6]] 2 (#$ . 123718) nil])
#@50 Start a git rebase -i session, old school-style.
(defalias 'magit-interactive-rebase #[nil "\306 \210\307`\310\"\302\311!\235\205 \312H >\204 \313\314!\210\315H\316\317!\320\317\321\322\f\"\"\210\323\216\324\325\n\203; \n\326P\206> \327\330!\331R!,\207" [section cl-struct-magit-section-tags commit old-editor exec-directory magit-git-executable server-start get-text-property magit-section magit-section-context-type 0 error "magit-section-info accessing a non-magit-section" 8 getenv "GIT_EDITOR" setenv expand-file-name "emacsclient" ((byte-code "\203 \301\302\"\210\301\207" [old-editor setenv "GIT_EDITOR"] 3)) shell-command " rebase -i " "^" read-string "Interactively rebase to: " " &"] 5 (#$ . 124411) nil])
#@51 Show all of the current branches in other-window.
(defalias 'magit-show-branches #[nil "\303 \304\305\306 \"r\307\216\310\311!\210\312 \210\313\n\314P\315\211#,\207" [save-selected-window-alist save-selected-window-window magit-git-executable selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\203/ \n@\306 @!\203( \307 \211A@)!\203( \310 @ \211A@)\"\210\nA\211\204 *\307\f!\203: \311\f!\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window select-window] 4)) switch-to-buffer-other-window "*magit-branches*" erase-buffer shell-command " branch -va" t] 4 (#$ . 125145) nil])
(defalias 'magit-interactive-resolve #[(file) "\306\307\"\310\311P!\310\312P!\310\313P!\314 \211 \204# \315\316\"\210r\fq\210\317\320\"\2034 \306\321\"c\210)r q\210\317\322\"\203F \306\323\"c\210)r\nq\210\317\324\"\203X \306\325\"c\210)r\326 \n\f#q\210\327\330!\210\327\331!\210 \327\332!\210\333\332\334\".\207" [file windows their-buffer our-buffer base-buffer merge-status magit-git-string "ls-files -u -- %s" generate-new-buffer ".base" ".current" ".merged" current-window-configuration error "Cannot resolge %s" string-match "^[0-9]+ [0-9a-f]+ 1" "cat-file blob :1:%s" "^[0-9]+ [0-9a-f]+ 2" "cat-file blob :2:%s" "^[0-9]+ [0-9a-f]+ 3" "cat-file blob :3:%s" ediff-merge-buffers-with-ancestor make-local-variable magit-ediff-file magit-ediff-windows ediff-quit-hook add-hook #[nil " \n \f \306 \210\307!\210\310 \210\311!\210\312!\210\312!\210\312!\210\313!\203= \312!\210\314!\210\315\316!.\207" [ediff-buffer-A ediff-buffer-B ediff-buffer-C ediff-ancestor-buffer magit-ediff-file magit-ediff-windows ediff-cleanup-mess find-file erase-buffer insert-buffer-substring kill-buffer bufferp set-window-configuration message "Conflict resolution finished; you may save the buffer" windows file buffer-Ancestor buffer-C buffer-B buffer-A] 6]] 7])
(defalias 'magit-interactive-resolve-item #[nil "\300\301!\207" [magit-refresh-wrapper #[nil "\306 \211\307H >\204 \310\311!\210\312H\307H >\204 \310\313!\210\314H\315! \316\317\f\"\2039 \320\n\211 A@)!\202O \204D \310\321\322\"\202O \310\323\322 \324N\206N #,\207" [item cl-struct-magit-section-tags info #1=#:G62547 #2=#:G62548 x magit-current-section 0 error "magit-section-info accessing a non-magit-section" 8 "magit-section-type accessing a non-magit-section" 7 magit-section-context-type magit-prefix-p (diff) magit-interactive-resolve "Nothing to %s here." "resolv" "Can't %s a %s." magit-description] 6]] 2 nil nil])
(provide 'magit)