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

Chizi123
2018-11-17 5cb5f70b1872a757e93ea333b0e2dca50c6c8957
commit | author | age
5cb5f7 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (byte-code "\300\301!\210\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)
16 #@55 Popup console for fetch commands.
17
18 (fn &optional ARG)
19 (defalias 'magit-fetch-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-fetch-popup nil] 5 (#$ . 798) "P"])
20 (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))
21 (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)
22 (defalias 'magit-fetch-arguments #[0 "\303=\203    \207\n\207" [magit-current-popup magit-current-popup-args magit-fetch-arguments magit-fetch-popup] 2])
23 (put 'magit-fetch-arguments 'definition-name 'magit-fetch-popup)
24 #@20 
25
26 (fn REMOTE ARGS)
27 (defalias 'magit-git-fetch #[514 "\300\301!\210\302\303#\207" [run-hooks magit-credential-hook magit-run-git-async "fetch"] 6 (#$ . 2120)])
28 #@62 Fetch from the push-remote of the current branch.
29
30 (fn ARGS)
31 (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)])
32 #@70 Fetch from the upstream repository of the current branch.
33
34 (fn ARGS)
35 (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)])
36 #@50 Fetch from another repository.
37
38 (fn REMOTE ARGS)
39 (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)])
40 #@56 Fetch a BRANCH from a REMOTE.
41
42 (fn REMOTE BRANCH ARGS)
43 (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)])
44 #@58 Fetch a REFSPEC from a REMOTE.
45
46 (fn REMOTE REFSPEC ARGS)
47 (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)])
48 #@36 Fetch from all remotes.
49
50 (fn ARGS)
51 (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)])
52 #@129 Fetch from all remotes, and prune.
53 Prune remote tracking branches for branches that have been
54 removed on the respective remote.
55 (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])
56 #@25 Fetch from all remotes.
57 (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])
58 #@268 Fetch all submodules.
59
60 Option `magit-fetch-modules-jobs' controls how many submodules
61 are being fetched in parallel.  Also fetch the super-repository,
62 because `git-fetch' does not support not doing that.  With a
63 prefix argument fetch all remotes.
64
65 (fn &optional ALL)
66 (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"])
67 (provide 'magit-fetch)