;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& \210\302\316\304\305\317DD\320\310\321\312\313\314\322& \210\302\323\304\305\324DD\325\310\326\312\313\314\322& \207" [require magit custom-declare-variable magit-remote-add-set-remote.pushDefault funcall function #[0 "\300\207" [ask-if-unset] 1 #1=""] "Whether to set the value of `remote.pushDefault' after adding a remote.\n\nIf `ask', then always ask. If `ask-if-unset', then ask, but only\nif the variable isn't set already. If nil, then don't ever set.\nIf the value is a string, then set without asking, provided that\nthe name of the added remote is equal to that string and the\nvariable isn't already set." :package-version (magit . "2.4.0") :group magit-commands :type (choice (const :tag "Ask if unset" ask-if-unset) (const :tag "Always ask" ask) (string :tag "Set if named") (const :tag "Don't set")) magit-remote-direct-configure #[0 "\300\207" [t] 1 #1#] "Whether the command `magit-remote' shows Git variables.\nWhen set to nil, no variables are displayed by this transient\ncommand, instead the sub-transient `magit-remote-configure'\nhas to be used to view and change remote related variables." (magit . "2.12.0") boolean magit-prefer-push-default #[0 "\300\207" [nil] 1 #1#] "Whether to prefer `remote.pushDefault' over per-branch variables." (magit . "3.0.0")] 10)#@15 (fn REMOTE) (defalias 'magit-remote #[257 "\300\301\302\211\303%\207" [transient-setup magit-remote nil :scope] 7 (#$ . 1447) (byte-code "\300 C\207" [magit-get-current-remote] 1)]) (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\321\322\323F\324\325\326\310\327\257\324\325\330\310\331\257\324\325\332\310\333\257\324\325\334\310\335\257\324\325\336\310\337\257\324\325\340\310\341\257\257#\316\317\320\342D\343\325\344\320\345\346\344\347\344\310\300\350\302\303#\210\300\350\351\352#\210\353\350\354\"\210\350\257 C#\316\355\320\356D\316\317\357\324\325\360\320\361\310\362\257\324\325\363\320\364\310\365\257\324\325\366\320\367\310\370\257E#\316\317\357\324\325\371\320\372\310\373\257\324\325\374\320\375\310\376\257\324\325\377\320\201@\310\201A\257\324\201B\201C\325\201D\320\201E\310\201F\257 F#\316\317\357\324\325\201G\310\201H\257C#E#E\"\207" [put magit-remote interactive-only t function-documentation "Add, configure or remove a remote." transient--prefix transient-prefix :command :man-page "git-remote" :value ("-f") transient--set-layout vector transient-column :description "Variables" :if #[0 "\205\301 \207" [magit-remote-direct-configure transient-scope] 1] transient-suffix :key "u" magit-remote..url "U" magit-remote..fetch "s" magit-remote..pushurl "S" magit-remote..push "O" magit-remote..tagopt "h" magit-remote..followremotehead "Arguments for add" transient-switch "-f" "Fetch after add" :shortarg :argument transient:magit-remote:-f completion-predicate transient--suffix-only defalias transient--default-infix-command transient-columns "Actions" nil "a" "Add" magit-remote-add "r" "Rename" magit-remote-rename "k" "Remove" magit-remote-remove "C" "Configure..." magit-remote-configure "p" "Prune stale branches" magit-remote-prune "P" "Prune stale refspecs" magit-remote-prune-refspecs :level 7 "z" "Unshallow remote" magit-remote-unshallow "d u" magit-update-default-branch] 23)#@39 (fn PROMPT &optional INITIAL-INPUT) (defalias 'magit-read-url #[513 "\300\"\301\302\"\203\303!\207\207" [magit-read-string-ns string-prefix-p "~" expand-file-name] 6 (#$ . 3513)])#@73 Add a remote named REMOTE and fetch it. (fn REMOTE URL &optional ARGS) (defalias 'magit-remote-add #[770 "\301\302\303!D\211:\203\212\211\242\211;\203A\243\211:\2032\211\243\211\204#\304\202-\305\232\205-!\262\202<\305\232\205<!\262\202\203\211\306=\203y\243\211:\203j\211\243\211\204[!\202e\305\232\205e!\262\202t\305\232\205t!\262\202\203\305\232\205\203!\262\266\202\202\225\211\305\232\205\223!\266\202\203\252\307\310\311%\210\312\303\"\210\313 \207\314\310\311%\207" [magit-remote-add-set-remote.pushDefault #[257 "\300\301\302\"!\207" [y-or-n-p format "Set `remote.pushDefault' to \"%s\"? "] 5 "\n\n(fn REMOTE)"] magit-get "remote.pushDefault" t (ask-if-unset nil) ask magit-call-git "remote" "add" magit-set magit-refresh magit-run-git-async] 10 (#$ . 3706) (byte-code "\300\301!\302\303!\211\304\305\205\306\307\"\205\310\311\211\312%\"\313\314!E\207" [magit-get "remote.origin.url" magit-read-string-ns "Remote name" magit-read-url "Remote url" string-match "\\([^:/]+\\)/[^/]+\\(\\.git\\)?\\'" replace-match t 1 transient-args magit-remote] 11)])#@51 Rename the remote named OLD to NEW. (fn OLD NEW) (defalias 'magit-remote-rename #[514 "\230?\205\300\301\302$\210\303\"\210\304 \207" [magit-call-git "remote" "rename" magit-remote--cleanup-push-variables magit-refresh] 7 (#$ . 4846) (byte-code "\300\301!\211\302\303\304\"!D\207" [magit-read-remote "Rename remote" magit-read-string-ns format "Rename %s to"] 6)])#@46 Delete the remote named REMOTE. (fn REMOTE) (defalias 'magit-remote-remove #[257 "\300\301\302#\210\303!\210\304 \207" [magit-call-git "remote" "rm" magit-remote--cleanup-push-variables magit-refresh] 5 (#$ . 5226) (byte-code "\300\301!C\207" [magit-read-remote "Delete remote"] 2)])#@34 (fn REMOTE &optional NEW-NAME) (defalias 'magit-remote--cleanup-push-variables #[513 "\301 \302\303!\232\203\304\303\"\210\305\306\307\310\311\312\313\"%\211\2055\211@\314\306?\205)\315$\210A\266\202\202)\207" [default-directory magit--toplevel-safe magit-get "remote.pushDefault" magit-set magit-git-lines "config" "--name-only" "--get-regexp" "^branch\\.[^.]*\\.pushRemote" format "^%s$" magit-call-git "--unset"] 10 (#$ . 5518)]) (defconst magit--refspec-re "\\`\\(\\+\\)?\\([^:]+\\):\\(.*\\)\\'")#@64 Remove stale remote-tracking branches for REMOTE. (fn REMOTE) (defalias 'magit-remote-prune #[257 "\300\301\302#\207" [magit-run-git-async "remote" "prune"] 5 (#$ . 6042) (byte-code "\300\301!C\207" [magit-read-remote "Prune stale branches of remote"] 2)])#@562 Remove stale refspecs for REMOTE. A refspec is stale if there no longer exists at least one branch on the remote that would be fetched due to that refspec. A stale refspec is problematic because its existence causes Git to refuse to fetch according to the remaining non-stale refspecs. If only stale refspecs remain, then offer to either delete the remote or to replace the stale refspecs with the default refspec. Also remove the remote-tracking branches that were created due to the now stale refspecs. Other stale branches are not removed. (fn REMOTE) (defalias 'magit-remote-prune-refspecs #[257 "\301!\302!\303\304\"\305!\306\211\203t\211@\307\"\203m\310\311\"\310\312\"\307\313\"\203>\314\315\316\211$\317\320\321\"\n\"\262\202B\235\204k\307\313\"\203`\314\315\316\211$\322\320\323\"\f\"\262\202f\n\235@CBB\262\266A\266\202\202\210\211\204\324\325\"\207\211GGU\203\332\326\327\330\331E\306\244\303\332 \"\333!\334\335\336#\266\202\337\340!@\341\260\262\342\"\211\343\267\210\202\323\344\303\345 \"C\"\266\202\323\346\347\350 #\266\202\323\351\352!\266\202\323\210\324\353!\210\202P\354\355\"\203\371\211@\211\242\243\356\357\360D\361D\306%\266\202\262\202\f\356\357\306\303\362\363\364\"G\"\306\365\366\"%\203L\211\211\203H\211@\211\242\243\346\367\370 \371!$\210\372\373\374#\210\211\211\203?\211@\346\375\376#\210A\266\202\202,\266A\266\202\202\210\202P\351\352!\210\377 \207" [magit--refspec-re magit-list-remote-branches magit-remote-list-refs format "remote.%s.fetch" magit-get-all nil string-match match-string-no-properties 2 3 "\\*" replace-match ".*" t seq-some make-closure #[257 "\300\301\302\303$\207" [V0 nil string-match t] 9 "\n\n(fn %)"] seq-filter #[257 "\300\301\302\303$\207" [V0 nil string-match t] 9 "\n\n(fn %)"] message "No stale refspecs for remote %S" read-char-choice "replace with [d]efault refspec" "[r]emove remote" "[a]abort" "All of %s's refspecs are stale. " butlast ", " mapconcat identity ", or " last " " (115 114 97) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (115 177 114 191 97 202)) magit-set-all "+refs/heads/*:refs/remotes/%s/*" magit-call-git "remote" "rm" user-error "Abort" "" length= 1 magit-confirm prune-stale-refspecs "Prune stale refspec %s and branch %%s" "Prune stale refspec %s and %%d branches" "Prune %%d stale refspecs and %d branches" mapcan #[257 "\300A!\207" [copy-sequence] 3 "\n\n(fn %)"] mapcar #[257 "\211\242\243\300\301\302\300#Q\207" ["\n" mapconcat #[257 "\300P\207" [" "] 3 "\n\n(fn %)"]] 9 "\n\n(fn ARG0)"] "config" "--unset" regexp-quote magit--log-action #[257 "\300\301G\"\207" [format "Deleting %d branches"] 4 "\n\n(fn REFS)"] #[257 "\300\301\302\303\"#\207" [format "Deleting branch %s (was %s)" magit-rev-parse "--short"] 7 "\n\n(fn REF)"] "update-ref" "-d" magit-refresh] 16 (#$ . 6307) (byte-code "\300\301!C\207" [magit-read-remote "Prune refspecs of remote"] 2)])#@294 Set the local representation of REMOTE's default branch. Query REMOTE and set the symbolic-ref refs/remotes//HEAD accordingly. With a prefix argument query for the branch to be used, which allows you to select an incorrect value if you fancy doing that. (fn REMOTE &optional BRANCH) (defalias 'magit-remote-set-head #[513 "\300\301\302\206 \303$\207" [magit-run-git "remote" "set-head" "--auto"] 7 (#$ . 9318) (byte-code "\301\302!\211\205\303\304\305\"\306\211\307%D\207" [current-prefix-arg magit-read-remote "Set HEAD for remote" magit-read-remote-branch format "Set %s/HEAD to" nil t] 8)])#@127 Unset the local representation of REMOTE's default branch. Delete the symbolic-ref "refs/remotes//HEAD". (fn REMOTE) (defalias 'magit-remote-unset-head #[257 "\300\301\302\303$\207" [magit-run-git "remote" "set-head" "--delete"] 6 (#$ . 9936) (byte-code "\300\301!C\207" [magit-read-remote "Unset HEAD for remote"] 2)]) (defalias 'magit-update-default-branch #[0 "\300 \300\301!\211\242\243\211\242\243\242\243\211\242\243\302\211\232\2035\303\304\305\306\307 %!\262\310\"\210\311 \207\211\204E\312\304\313\n\" \314#\262\315\304\316 \317%!\203\\\310\"\210\311 \207\320\321!\207" [magit--get-default-branch t nil read-string format "Name of default branch is still `%s', %s\n%s `%s': " "but the upstreams of some local branches might need updating." "Name of upstream branches to replace with" magit--set-default-branch magit-refresh magit-read-other-local-branch "Name of old default branch to be renamed to `%s'" "master" y-or-n-p "Default branch changed from `%s' to `%s' on %s.%s?" " Do the same locally" user-error "Abort"] 19 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-update-default-branch interactive-only t function-documentation "Update name of the default branch after upstream changed it." transient--suffix transient-suffix :command :description "Update default branch" :inapt-if-not magit-get-some-remote] 10)#@181 Convert a shallow remote into a full one. If only a single refspec is set and it does not contain a wildcard, then also offer to replace it with the standard refspec. (fn REMOTE) (defalias 'magit-remote-unshallow #[257 "\300\301\302#\303\304\"\305\306\"\203*\307\310@\"\204*\311\303\312@#!\203*\313\301\302$\210\314\315\"\207" [magit-get-all "remote" "fetch" format "+refs/heads/*:refs/remotes/%s/*" length= 1 string-search "*" yes-or-no-p "Also replace refspec %s with %s? " magit-set magit-git-fetch "--unshallow"] 8 (#$ . 11386) (byte-code "\300 \206\301\302!C\207" [magit-get-current-remote magit-read-remote "Delete remote"] 2)])#@15 (fn REMOTE) (defalias 'magit-remote-configure #[257 "\300\301\302\211\303%\207" [transient-setup magit-remote-configure nil :scope] 7 (#$ . 12041) (byte-code "\204 \203\n\303=\204\304 \206\305 C\207" [current-prefix-arg magit-remote-direct-configure transient-current-command magit-remote magit-get-current-remote magit--read-remote-scope] 2)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312$#\210\313\301\314\315\316\317D\320\321\322\310\323\257\320\321\324\310\325\257\320\321\326\310\327\257\320\321\330\310\331\257\320\321\332\310\333\257\320\321\334\310\335\257\257#C\"\207" [put magit-remote-configure interactive-only t function-documentation "Configure a remote." transient--prefix transient-prefix :command :man-page "git-remote" transient--set-layout vector transient-column :description #[0 "\300\301\302\303#\300\304 \302\305#P\207" [propertize "Configure " face transient-heading transient-scope magit-branch-remote] 5] transient-suffix :key "u" magit-remote..url "U" magit-remote..fetch "s" magit-remote..pushurl "S" magit-remote..push "O" magit-remote..tagopt "h" magit-remote..followremotehead] 15)#@22 (fn &optional OBJ) (defalias 'magit--read-remote-scope #[256 "\300\203\301\302\301\303\304\"\305\"\"\202\306!\207" [magit-read-remote format "Set %s for remote" eieio-oref variable "" "Configure remote"] 8 (#$ . 13268)]) (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\305\322\323&\n#\210\300\324\302\"\210\303\324\304\305#\210\303\324\306\307#\210\303\324\310\311#\210\303\324\312\325\314\324\315\316\317\326\321\305&#\210\300\327\302\"\210\303\327\304\305#\210\303\327\306\307#\210\303\327\310\311#\210\303\327\312\313\314\327\315\316\317\330\321\305\322\323\331\332&\f#\210\300\333\302\"\210\303\333\304\305#\210\303\333\306\307#\210\303\333\310\311#\210\303\333\312\325\314\333\315\316\317\334&#\210\300\335\302\"\210\303\335\304\305#\210\303\335\306\307#\210\303\335\310\311#\210\303\335\312\336\314\335\315\316\317\337\340\341&#\210\300\342\302\"\210\303\342\304\305#\210\303\342\306\307#\210\303\342\310\343#\210\303\342\312\336\314\342\315\316\317\344\340\345\346\347&\n#\207" [defalias magit-remote..url transient--default-infix-command put interactive-only t completion-predicate transient--suffix-only function-documentation nil transient--suffix magit--git-variable:urls :command :scope magit--read-remote-scope :variable "remote.%s.url" :multi-value :history-key magit-remote..*url magit-remote..fetch magit--git-variable "remote.%s.fetch" magit-remote..pushurl "remote.%s.pushurl" :seturl-arg "--push" magit-remote..push "remote.%s.push" magit-remote..tagopt magit--git-variable:choices "remote.%s.tagOpt" :choices ("--no-tags" "--tags") magit-remote..followremotehead "How \"git fetch\" handles updates to \"remotes//HEAD\".\n\nThis command sets the local value of the Git variable\n`remote..followRemoteHEAD', where is a stand-in for\nthe actual remote, as displayed in the menu, from which this command\nis invoked. This variable is documented in (man \"git-config(1)\").\n\nUnfortunately Git does not provide a variable to set a default for\nall remotes of all repositories, but you can set the global value for\na remote name used in multiple repository, which will then be used as\nthe default for that remote in all repositories. You should consider\nusing \"always\" for remotes named \"origin\".\n\n git config set --global remote.origin.followRemoteHEAD always" "remote.%s.followRemoteHEAD" ("create" "always" "warn") :default "create"] 16)#@31 (fn &optional BRANCH SHORT) (defalias 'magit--push-remote-variable #[512 "\204\301 \262\302\203\203\203\303\202)\304\202)\203%\305\202)\306\307\"\310\"\207" [magit-prefer-push-default magit-get-current-branch magit--propertize-face "pushDefault" "remote.pushDefault" "pushRemote" format "branch.%s.pushRemote" bold] 6 (#$ . 15829)])#@22 (fn PROMPT-SUFFIX) (defalias 'magit--select-push-remote #[257 "\301 \206\302\303!\304!\305\204\203\306 \235\2042\307\262\310\311\312\313 #!\262\313!\314\"\266E\207" [current-prefix-arg magit-get-current-branch user-error "No branch is checked out" magit-get-push-remote nil magit-list-remotes t magit-read-remote format "Set %s and %s" magit--push-remote-variable magit-set] 9 (#$ . 16188)]) (provide 'magit-remote)