;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (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) (defalias 'magit-fetch #[0 "\300\301!\207" [transient-setup magit-fetch] 2 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312$#\210\300\301\313\314#\207" [put magit-fetch interactive-only t function-documentation "Fetch from another repository." transient--prefix transient-prefix :command :man-page "git-fetch" transient--layout ([1 transient-column (:description "Arguments") ((1 transient-switch (:key "-p" :description "Prune deleted branches" :shortarg "-p" :argument "--prune" :command transient:magit-fetch:--prune)) (1 transient-switch (:key "-t" :description "Fetch all tags" :shortarg "-t" :argument "--tags" :command transient:magit-fetch:--tags)) (7 transient-switch (:key "-u" :description "Fetch full history" :argument "--unshallow" :command transient:magit-fetch:--unshallow)))] [1 transient-column (:description "Fetch from") ((1 transient-suffix (:key "p" :command magit-fetch-from-pushremote)) (1 transient-suffix (:key "u" :command magit-fetch-from-upstream)) (1 transient-suffix (:key "e" :description "elsewhere" :command magit-fetch-other)) (1 transient-suffix (:key "a" :description "all remotes" :command magit-fetch-all)))] [1 transient-column (:description "Fetch") ((1 transient-suffix (:key "o" :description "another branch" :command magit-fetch-branch)) (1 transient-suffix (:key "r" :description "explicit refspec" :command magit-fetch-refspec)) (1 transient-suffix (:key "m" :description "submodules" :command magit-fetch-modules)))] [1 transient-column (:description "Configure") ((1 transient-suffix (:key "C" :description "variables..." :command magit-branch-configure)))])] 8) (defalias 'magit-fetch-arguments #[0 "\300\301!\207" [transient-args magit-fetch] 2]) #@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 (#$ . 2222)]) #@13 (fn ARGS) (defalias 'magit-fetch-from-pushremote #[257 "\301 \204 \211\302 \235\204\303 \304\305\306\"!\262\307\"\266\310\"\207" [current-prefix-arg magit-get-push-remote magit-list-remotes magit--push-remote-variable magit-read-remote format "Set %s and fetch from there" magit-set magit-git-fetch] 7 (#$ . 2389) (byte-code "\300 C\207" [magit-fetch-arguments] 1)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312$#\207" [put magit-fetch-from-pushremote interactive-only t function-documentation "Fetch from the current push-remote.\n\nWith a prefix argument or when the push-remote is either not\nconfigured or unusable, then let the user first configure the\npush-remote." transient--suffix transient-suffix :command :description magit-fetch--pushremote-description] 8) (defalias 'magit-fetch--pushremote-description #[0 "\300 \301!\302\303\"\304 \235\203\207\203\305\306\"\207\305\307\"\207" [magit-get-current-branch magit-get-push-remote magit--push-remote-variable t magit-list-remotes format "%s, replacing invalid" "%s, setting that"] 6]) #@20 (fn REMOTE ARGS) (defalias 'magit-fetch-from-upstream #[514 "\204\300\301!\210\302\"\207" [error "The \"current\" remote could not be determined" magit-git-fetch] 5 (#$ . 3506) (byte-code "\300\301!\302 D\207" [magit-get-current-remote t magit-fetch-arguments] 2)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314&#\207" [put magit-fetch-from-upstream interactive-only t function-documentation "Fetch from the \"current\" remote, usually the upstream.\n\nIf the upstream is configured for the current branch and names\nan existing remote, then use that. Otherwise try to use another\nremote: If only a single remote is configured, then use that.\nOtherwise if a remote named \"origin\" exists, then use that.\n\nIf no remote can be determined, then this command is not available\nfrom the `magit-fetch' transient prefix and invoking it directly\nresults in an error." transient--suffix transient-suffix :command :if #[0 "\300\301!\207" [magit-get-current-remote t] 2] :description #[0 "\300\301!\207" [magit-get-current-remote t] 2]] 10) #@50 Fetch from another repository. (fn REMOTE ARGS) (defalias 'magit-fetch-other #[514 "\300\"\207" [magit-git-fetch] 5 (#$ . 4606) (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 (#$ . 4838) (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 (#$ . 5153) (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\302B\"\207" [magit-git-fetch nil "--all"] 5 (#$ . 5472) (byte-code "\300 C\207" [magit-fetch-arguments] 1)]) #@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 (#$ . 5667) 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 (#$ . 5977) 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%)\207\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 (#$ . 6174) "P"]) (provide 'magit-fetch)