;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; 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-pull-or-fetch funcall function #[0 "\300\207" [nil] 1 ""] "Whether `magit-pull' also offers some fetch suffixes." :package-version (magit . "3.0.0") :group magit-commands :type boolean] 10) (defalias 'magit-pull #[0 "\300\301\302\211\303\304 %\207" [transient-setup magit-pull nil :scope magit-get-current-branch] 6 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314&#\210\315\301\316\317\320\321D\322\323\324\320\325\326\327\310\300\330\302\303#\210\300\330\331\332#\210\333\330\334\"\210\330\257 \335\323\336\310\337\257\322\323\340\320\341\326\342\310\300\343\302\303#\210\300\343\331\332#\210\333\343\334\"\210\343\344\345\257 \322\323\346\320\347\350\324\326\351\310\300\352\302\303#\210\300\352\331\332#\210\333\352\334\"\210\352\257 F#\316\317\320\353D\335\323\354\310\355\257\335\323\356\310\357\257\335\323\360\320\361\310\362\257E#\316\317\320\363D\335\323\364\310\365\344\345\257C#\316\317\320\366\367\370F\335\323\371\320\372\310\373\257\335\323\374\320\375\310\376\257D#\316\317\320\377\367\370F\335\323\201@\320\201A\310\201B\257\335\323\201C\320\201D\310\201E\257\335\323\201F\320\201G\310\201H\257E#\316\317\320\201ID\335\323\201J\310\201K\201L\201M\257\335\323\201N\320\201O\310\201P\257D#\257\"\207" [put magit-pull interactive-only t function-documentation "Pull from another repository." transient--prefix transient-prefix :command :man-page "git-pull" :incompatible (("--ff-only" "--rebase=true" "--rebase=merges" "--rebase=interactive")) transient--set-layout vector transient-column :description #[0 "\203\301\207\302\207" [magit-pull-or-fetch "Pull arguments" "Arguments"] 1] transient-switch :key "-f" "Fast-forward only" :argument "--ff-only" transient:magit-pull:--ff-only completion-predicate transient--suffix-only defalias transient--default-infix-command transient-suffix "-r" magit-pull:--rebase "-A" "Autostash" "--autostash" transient:magit-pull:--autostash :level 7 "-F" "Force" :shortarg "--force" transient:magit-pull:--force #[0 "\300\301 \211\262\203\302\303\304\305#\302\304\306#\302\307\304\305#Q\207\302\310\304\305#\207" [nil magit-get-current-branch propertize "Pull into " face transient-heading magit-branch-local " from" "Pull from"] 7] "p" magit-pull-from-pushremote "u" magit-pull-from-upstream "e" "elsewhere" magit-pull-branch #[0 "\300\301\302\303\304#\305 \"\207" [format propertize "Pull into %s from" face transient-heading magit-get-upstream-branch] 5] "U" magit-pull-into-upstream "Fetch from" :if-non-nil magit-pull-or-fetch "f" "remotes" magit-fetch-all-no-prune "F" "remotes and prune" magit-fetch-all-prune "Fetch" "o" "another branch" magit-fetch-branch "s" "explicit refspec" magit-fetch-refspec "m" "submodules" magit-fetch-modules "Configure" "r" magit-branch..rebase :if magit-get-current-branch "C" "variables..." magit-branch-configure] 22) (defalias 'magit-pull-arguments #[0 "\300\301!\207" [transient-args magit-pull] 2]) (byte-code "\300\301\302\"\210\303\301\304\305#\210\303\301\306\307#\210\303\301\310\311#\210\303\301\312\313\314\301\315\316\317\320\321\322\323\324&\n#\207" [defalias magit-pull:--rebase transient--default-infix-command put interactive-only t completion-predicate transient--suffix-only function-documentation nil transient--suffix transient-option :command :description "Rebase local commits" :argument "--rebase=" :shortarg "-r" :choices ("true" "merges" "interactive" "false")] 14)#@13 (fn ARGS) (defalias 'magit-pull-from-pushremote #[257 "\300\301!\211\242\243\211\242\243\302\303!\210\304\305$\207" [magit--select-push-remote "pull from there" run-hooks magit-credential-hook magit-run-git-with-editor "pull"] 11 (#$ . 3691) (byte-code "\300 C\207" [magit-pull-arguments] 1)]) (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-pull-from-pushremote interactive-only t function-documentation "Pull from the push-remote of the current branch.\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 :if magit-get-current-branch :description magit-pull--pushbranch-description] 10) (defalias 'magit-pull--pushbranch-description #[0 "\300 \301\302\"\303!\304\302\"\206*\305 \235\203\306\307\"\207\203&\306\310\"\207\306\311\"\207" [magit-get-current-branch magit-get-push-branch t magit-get-push-remote magit--push-remote-variable magit-list-remotes format "%s, replacing non-existent" "%s, replacing invalid" "%s, setting that"] 7])#@13 (fn ARGS) (defalias 'magit-pull-from-upstream #[257 "\301 \206\302\303!\304\305\306#\304\305\307#\204#\310!\204=\311\"\204=\312\313\314\315\"\"\"\210\304\305\306#\262\304\305\307#\262\316\317!\210\320\321$\207" [current-prefix-arg magit-get-current-branch user-error "No branch is checked out" magit-get "branch" "remote" "merge" magit-get-upstream-branch magit--unnamed-upstream-p magit-set-upstream-branch magit-read-upstream-branch format "Set upstream of %s and pull from there" run-hooks magit-credential-hook magit-run-git-with-editor "pull"] 11 (#$ . 4858) (byte-code "\300 C\207" [magit-pull-arguments] 1)]) (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-pull-from-upstream interactive-only t function-documentation "Pull from the upstream of the current branch.\n\nWith a prefix argument or when the upstream is either not\nconfigured or unusable, then let the user first configure\nthe upstream." transient--suffix transient-suffix :command :if magit-get-current-branch :description magit-pull--upstream-description] 10) (defalias 'magit-pull--upstream-description #[0 "\300 \211\205J\301!\206J\302\303\304#\302\303\305#\306\307\310\"\311\"\203.\312\313\306\314\"\306\310\"#\207\315\"\2039\211\316P\207\204A\203E\211\317P\207\211\320P\266\203\207" [magit-get-current-branch magit-get-upstream-branch magit-get "branch" "remote" "merge" magit--propertize-face "@{upstream}" bold magit--unnamed-upstream-p format "%s of %s" magit-branch-remote magit--valid-upstream-p ", replacing non-existent" ", replacing invalid" ", setting that"] 10]) (defalias 'magit-pull-into-upstream #[0 "\301\302 \211\262\203$\211\242\243\303!\211\242\243\304\305#\210\306\307\310\"\"\207\311\312!\207" [magit-this-process nil magit-pull--upstreams magit-split-branch-name magit-run-git-async "fetch" set-process-sentinel make-closure #[514 "\301!\302>\205\303\304\305\300P\306#\207" [V0 process-status (exit signal) magit-run-git-async "update-ref" "refs/heads/" "FETCH_HEAD"] 6 "\n\n(fn PROCESS EVENT)"] user-error "Cannot perform background update of upstream branch"] 12 nil nil]) (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-pull-into-upstream interactive-only t function-documentation "Update the upstream of the current branch from its own upstream.\n\nIf the upstream of the current branch is a local branch, and the\nupstream of that is a remote branch, then update the local upstream.\nThis makes it possible to update the upstream branch, without having\nto first check it out." transient--suffix transient-suffix :command :if magit-pull--upstreams :description #[0 "\300 A\207" [magit-pull--upstreams] 1]] 10) (defalias 'magit-pull--upstreams #[0 "\300 \211\205 \301!\211\205\300!\211\205\302!\211\205B\207" [magit-get-upstream-branch magit-local-branch-p magit-remote-branch-p] 6])#@62 Pull from a branch read in the minibuffer. (fn SOURCE ARGS) (defalias 'magit-pull-branch #[514 "\300\301!\210\302!\211\242\243\303\304$\207" [run-hooks magit-credential-hook magit-get-tracked magit-run-git-with-editor "pull"] 10 (#$ . 7847) (byte-code "\300\301\302\211\211\303%\304 D\207" [magit-read-remote-branch "Pull" nil t magit-pull-arguments] 6)]) (provide 'magit-pull)