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

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
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
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
 
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
 
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315&    \207" [require magit custom-declare-variable magit-fetch-modules-jobs funcall function #[0 "\300\207" [4] 1] "Number of submodules to fetch in parallel.\nIgnored for Git versions before v2.8.0." :package-version (magit . "2.12.0") :group magit-commands :type (choice (const :tag "one at a time" nil) number)] 10)
#@55 Popup console for fetch commands.
 
(fn &optional ARG)
(defalias 'magit-fetch-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-fetch-popup nil] 5 (#$ . 798) "P"])
(defvar magit-fetch-popup (list :variable 'magit-fetch-arguments :man-page "git-fetch" :switches '((112 "Prune deleted branches" "--prune")) :actions '("Configure" (67 "variables..." magit-branch-config-popup) "Fetch from" (112 magit-get-push-remote magit-fetch-from-pushremote) (117 magit-get-remote magit-fetch-from-upstream) (101 "elsewhere" magit-fetch-other) (97 "all remotes" magit-fetch-all) "Fetch" (111 "another branch" magit-fetch-branch) (114 "explicit refspec" magit-fetch-refspec) (109 "submodules" magit-fetch-modules)) :default-action 'magit-fetch :max-action-columns 1))
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-fetch-popup custom-declare-variable magit-fetch-arguments funcall function #[0 "\301\302\"\207" [magit-fetch-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8)
(defalias 'magit-fetch-arguments #[0 "\303=\203    \207\n\207" [magit-current-popup magit-current-popup-args magit-fetch-arguments magit-fetch-popup] 2])
(put 'magit-fetch-arguments 'definition-name 'magit-fetch-popup)
#@20 
 
(fn REMOTE ARGS)
(defalias 'magit-git-fetch #[514 "\300\301!\210\302\303#\207" [run-hooks magit-credential-hook magit-run-git-async "fetch"] 6 (#$ . 2120)])
#@62 Fetch from the push-remote of the current branch.
 
(fn ARGS)
(defalias 'magit-fetch-from-pushremote #[257 "\300 \211\203 \301\"\202\302 \211\203\303\304\"\202\303\305!\262\207" [magit-get-push-remote magit-git-fetch magit-get-current-branch user-error "No push-remote is configured for %s" "No branch is checked out"] 6 (#$ . 2287) (byte-code "\300 C\207" [magit-fetch-arguments] 1)])
#@70 Fetch from the upstream repository of the current branch.
 
(fn ARGS)
(defalias 'magit-fetch-from-upstream #[257 "\300 \211\203 \301\"\202\302 \211\203\303\304\"\202\303\305!\262\207" [magit-get-remote magit-git-fetch magit-get-current-branch user-error "No upstream is configured for %s" "No branch is checked out"] 6 (#$ . 2689) (byte-code "\300 C\207" [magit-fetch-arguments] 1)])
#@50 Fetch from another repository.
 
(fn REMOTE ARGS)
(defalias 'magit-fetch-other #[514 "\300\"\207" [magit-git-fetch] 5 (#$ . 3089) (byte-code "\300\301!\302 D\207" [magit-read-remote "Fetch remote" magit-fetch-arguments] 2)])
#@56 Fetch a BRANCH from a REMOTE.
 
(fn REMOTE BRANCH ARGS)
(defalias 'magit-fetch-branch #[771 "\300B\"\207" [magit-git-fetch] 7 (#$ . 3321) (byte-code "\300\301!\211\302\303\"\304 E\207" [magit-read-remote-or-url "Fetch from remote or url" magit-read-remote-branch "Fetch branch" magit-fetch-arguments] 5)])
#@58 Fetch a REFSPEC from a REMOTE.
 
(fn REMOTE REFSPEC ARGS)
(defalias 'magit-fetch-refspec #[771 "\300B\"\207" [magit-git-fetch] 7 (#$ . 3636) (byte-code "\300\301!\211\302\303\"\304 E\207" [magit-read-remote-or-url "Fetch from remote or url" magit-read-refspec "Fetch using refspec" magit-fetch-arguments] 5)])
#@36 Fetch from all remotes.
 
(fn ARGS)
(defalias 'magit-fetch-all #[257 "\300\301!\210\302\303\304#\207" [run-hooks magit-credential-hook magit-run-git-async "remote" "update"] 5 (#$ . 3955) (byte-code "\300\301 \302\303D\304\305$C\207" [cl-intersection magit-fetch-arguments "--verbose" "--prune" :test equal] 5)])
#@129 Fetch from all remotes, and prune.
Prune remote tracking branches for branches that have been
removed on the respective remote.
(defalias 'magit-fetch-all-prune #[0 "\300\301!\210\302\303\304\305#\207" [run-hooks magit-credential-hook magit-run-git-async "remote" "update" "--prune"] 4 (#$ . 4275) nil])
#@25 Fetch from all remotes.
(defalias 'magit-fetch-all-no-prune #[0 "\300\301!\210\302\303\304\"\207" [run-hooks magit-credential-hook magit-run-git-async "remote" "update"] 3 (#$ . 4585) nil])
#@268 Fetch all submodules.
 
Option `magit-fetch-modules-jobs' controls how many submodules
are being fetched in parallel.  Also fetch the super-repository,
because `git-fetch' does not support not doing that.  With a
prefix argument fetch all remotes.
 
(fn &optional ALL)
(defalias 'magit-fetch-modules #[256 "\302 \211\203(\211\303\304\305\306    \205\307\310\311 \"\205\312\313    !D\205#\314%)\202*\315 \207" [default-directory magit-fetch-modules-jobs magit-toplevel magit-run-git-async "fetch" "--verbose" "--recurse-submodules" version<= "2.8.0" magit-git-version "-j" number-to-string "--all" magit--not-inside-repository-error] 9 (#$ . 4782) "P"])
(provide 'magit-fetch)