;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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] "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] "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] "Whether to prefer `remote.pushDefault' over per-branch variables." (magit . "2.91.0")] 10) #@15 (fn REMOTE) (defalias 'magit-remote #[257 "\300\301\302\211\303%\207" [transient-setup magit-remote nil :scope] 7 (#$ . 1760) (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\300\301\315\316#\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--layout ([1 transient-column (:description "Variables" :if (lambda nil (and magit-remote-direct-configure (oref transient--prefix scope)))) ((1 transient-suffix (:key "u" :command magit-remote\.\.url)) (1 transient-suffix (:key "U" :command magit-remote\.\.fetch)) (1 transient-suffix (:key "s" :command magit-remote\.\.pushurl)) (1 transient-suffix (:key "S" :command magit-remote\.\.push)) (1 transient-suffix (:key "O" :command magit-remote\.\.tagopt)))] [1 transient-column (:description "Arguments for add") ((1 transient-switch (:key "-f" :description "Fetch after add" :shortarg "-f" :argument "-f" :command transient:magit-remote:-f)))] [1 transient-columns (:description "Actions") ([1 transient-column nil ((1 transient-suffix (:key "a" :description "Add" :command magit-remote-add)) (1 transient-suffix (:key "r" :description "Rename" :command magit-remote-rename)) (1 transient-suffix (:key "k" :description "Remove" :command magit-remote-remove)))] [1 transient-column nil ((1 transient-suffix (:key "C" :description "Configure..." :command magit-remote-configure)) (1 transient-suffix (:key "p" :description "Prune stale branches" :command magit-remote-prune)) (1 transient-suffix (:key "P" :description "Prune stale refspecs" :command magit-remote-prune-refspecs)))])])] 10) #@39 (fn PROMPT &optional INITIAL-INPUT) (defalias 'magit-read-url #[513 "\300\"\301\302\"\203\303!\202\211\207" [magit-read-string-ns string-prefix-p "~" expand-file-name] 6 (#$ . 3593)]) #@73 Add a remote named REMOTE and fetch it. (fn REMOTE URL &optional ARGS) (defalias 'magit-remote-add #[770 "\301\302!D\303:\205r@\211;\203(A\211:\205#\211A\211?\205!\304\262\262\202p\211\305=\203GA\211:\205B\211A\211?\205@!\262\262\202p\211\306=\203oA\211:\205j\211@\211?\205hA\211?\205f !\262\262\262\202p\307\262\266\202\203\211\310\311\312%\210\313\302\"\210\314 \207\315\311\312%\207" [magit-remote-add-set-remote\.pushDefault magit-get "remote.pushDefault" #[257 "\300\301\302\"!\207" [y-or-n-p format "Set `remote.pushDefault' to \"%s\"? "] 5 "\n\n(fn REMOTE)"] t ask ask-if-unset nil magit-call-git "remote" "add" magit-set magit-refresh magit-run-git-async] 11 (#$ . 3793) (byte-code "\300\301!\302\303!\304\305!E\207" [magit-read-string-ns "Remote name" magit-read-url "Remote url" transient-args magit-remote] 4)]) #@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 (#$ . 4670) (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 (#$ . 5051) (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 \211\203@\211\302\303!\232\203\304\303\"\210\305\306\307\310\311\312\313 \"%\211\205:\211@\314\306?\205.\315$\210A\266\202\202 \262)\202B\316 \207" [default-directory magit-toplevel magit-get "remote.pushDefault" magit-set magit-git-lines "config" "--name-only" "--get-regexp" "^branch.[^.]*.pushRemote" format "^%s$" magit-call-git "--unset" magit--not-inside-repository-error] 11 (#$ . 5344)]) (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 (#$ . 5924) (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 "\302!\303!\304\305\"\306!\307\211\203\316\211@\310\"\203\307\311\312\"\311\313\"\310\314\"\203o\315\316\317\211$\307 \317\320\203e\203e@\203J\307\262\202Y\307\317\310#)\266\203\262\210\211T\262A\262\2026\266\211\262\262\202s\235\204\305\310\314\"\203\272\315\316\317\211$\307 \320\203\257@\307\317\310#)\266\203\203\243\211B\262\210\211T\262A\262\202\210\266\211\237\262\262\202\300\n\235@CBB\262\266A\266\202\202\210\211\204\333\321\322\"\202\240\211GGU\203\"\323\304\324\"\325P\326\"\211\327=\203\330\304\331 \"C\"\210\202\211\332=\203\333\334\335 #\210\202\211\336=\203\337\340!\210\210\321\341!\210\202\236\211G\342U\203F\211@\211@A\211\343\344\304\345\"\304\346\"\307%\266\202\266\203\202Y\343\344\307\304\347\350\351\"G\"\307\352\353\"%\203\232\211\211\203\226\211@\211@A\211\333\354\355 \356!$\210\357\360\361#\210\211\203\215\211@\333\362\363#\210A\266\202\202z\266A\266\202\202]\210\202\236\337\340!\210\364 \207" [magit--refspec-re inhibit-changing-match-data magit-list-remote-branches magit-remote-list-refs format "remote.%s.fetch" magit-get-all nil string-match match-string 2 3 "\\*" replace-match ".*" t 0 message "No stale refspecs for remote %S" read-char-choice "All of %s's refspecs are stale. " "replace with [d]efault refspec, [r]emove remote, or [a]abort " (115 114 97) 115 magit-set-all "+refs/heads/*:refs/remotes/%s/*" 114 magit-call-git "remote" "rm" 97 user-error "Abort" "" 1 magit-confirm prune-stale-refspecs "Prune stale refspec %s and branch %%s" "Prune stale refspec %s and %%i branches" "Prune %%i stale refspecs and %i branches" cl-mapcan #[257 "\300A!\207" [copy-sequence] 3 "\n\n(fn S)"] mapcar #[257 "\211@A\211\211\300\301\302\300#Q\266\202\207" ["\n" mapconcat #[257 "\300P\207" [" "] 3 "\n\n(fn B)"]] 11 "\n\n(fn ARG0)"] "config" "--unset" regexp-quote magit--log-action #[257 "\300\301G\"\207" [format "Deleting %i 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] 23 (#$ . 6190) (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 (#$ . 9071) (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 (#$ . 9690) (byte-code "\300\301!C\207" [magit-read-remote "Unset HEAD for remote"] 2)]) #@15 (fn REMOTE) (defalias 'magit-remote-configure #[257 "\300\301\302\211\303%\207" [transient-setup magit-remote-configure nil :scope] 7 (#$ . 10026) (byte-code "\204 \203\n\303=\204\304 \206\305 C\207" [current-prefix-arg magit-remote-direct-configure current-transient-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\300\301\313\314#\207" [put magit-remote-configure interactive-only t function-documentation "Configure a remote." transient--prefix transient-prefix :command :man-page "git-remote" transient--layout ([1 transient-column (:description (lambda nil (concat (propertize "Configure " 'face 'transient-heading) (propertize (oref transient--prefix scope) 'face 'magit-branch-remote)))) ((1 transient-suffix (:key "u" :command magit-remote\.\.url)) (1 transient-suffix (:key "U" :command magit-remote\.\.fetch)) (1 transient-suffix (:key "s" :command magit-remote\.\.pushurl)) (1 transient-suffix (:key "S" :command magit-remote\.\.push)) (1 transient-suffix (:key "O" :command magit-remote\.\.tagopt)))])] 8) #@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 (#$ . 11224)]) (defalias 'magit-remote\.\.url #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\303\316\317&\n#\207" [put magit-remote\.\.url interactive-only t 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] 14) (defalias 'magit-remote\.\.fetch #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\303&#\207" [put magit-remote\.\.fetch interactive-only t function-documentation nil transient--suffix magit--git-variable :command :scope magit--read-remote-scope :variable "remote.%s.fetch" :multi-value] 12) (defalias 'magit-remote\.\.pushurl #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\303\316\317\320\321&\f#\207" [put magit-remote\.\.pushurl interactive-only t function-documentation nil transient--suffix magit--git-variable:urls :command :scope magit--read-remote-scope :variable "remote.%s.pushurl" :multi-value :history-key magit-remote\.\.*url :seturl-arg "--push"] 16) (defalias 'magit-remote\.\.push #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 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-remote\.\.push interactive-only t function-documentation nil transient--suffix magit--git-variable :command :scope magit--read-remote-scope :variable "remote.%s.push"] 10) (defalias 'magit-remote\.\.tagopt #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316&#\207" [put magit-remote\.\.tagopt interactive-only t function-documentation nil transient--suffix magit--git-variable:choices :command :scope magit--read-remote-scope :variable "remote.%s.tagOpt" :choices ("--no-tags" "--tags")] 12) #@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 (#$ . 14072)]) #@22 (fn PROMPT-SUFFIX) (defalias 'magit--select-push-remote #[257 "\301 \206\302\303!\304!\204\211\203\211\305 \235\204.\306\307\310\311 #!\262\311!\312\"\266D\207" [current-prefix-arg magit-get-current-branch user-error "No branch is checked out" magit-get-push-remote magit-list-remotes magit-read-remote format "Set %s and %s" magit--push-remote-variable magit-set] 8 (#$ . 14432)]) (provide 'magit-remote)