| 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) | |
