;ELC
|
;;; Compiled
|
;;; in Emacs version 26.1
|
;;; 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& \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-popup-show-variables #[0 "\300\207" [t] 1] "Whether the `magit-remote-popup' shows Git variables.\nWhen set to nil, no variables are displayed directly in this\npopup, instead the sub-popup `magit-remote-config-popup' has\nto be used to view and change remote related variables." (magit . "2.12.0") boolean] 10)
|
#@56 Popup console for remote commands.
|
|
(fn &optional ARG)
|
(defalias 'magit-remote-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-remote-popup nil] 5 (#$ . 1565) "P"])
|
(defvar magit-remote-popup (list :variable 'magit-remote-arguments :man-page "git-remote" :default-arguments '("-f") :variables #[0 "\205 \207" [magit-remote-popup-show-variables magit-remote-config-variables] 1] :switches '("Switches for add" (102 "Fetch after add" "-f")) :actions '((97 "Add" magit-remote-add) (67 "Configure..." magit-remote-config-popup) (114 "Rename" magit-remote-rename) (112 "Prune stale branches" magit-remote-prune) (107 "Remove" magit-remote-remove) (80 "Prune stale refspecs" magit-remote-prune-refspecs)) :max-action-columns 2))
|
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-remote-popup custom-declare-variable magit-remote-arguments funcall function #[0 "\301\302\"\207" [magit-remote-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8)
|
(defalias 'magit-remote-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-remote-arguments magit-remote-popup] 2])
|
(put 'magit-remote-arguments 'definition-name 'magit-remote-popup)
|
#@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 (#$ . 2873)])
|
#@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=\203G A\211:\205B \211A\211?\205@ !\262\262\202p \211\306=\203o A\211:\205j \211@\211?\205h A\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 (#$ . 3073) (byte-code "\300\301!\302\303!\304 E\207" [magit-read-string-ns "Remote name" magit-read-url "Remote url" magit-remote-arguments] 3)])
|
#@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 (#$ . 3941) (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 (#$ . 4322) (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 (#$ . 4615)])
|
(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 (#$ . 5195) (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\220\211GGU\203\323\304\324\"\325P\326\"\211\327\267\202\330\304\331 \"C\"\210\202\332\333\334 #\210\202\335\336!\210\210\202\216\211G\337U\2036\211@\211@A\211\340\341\304\342\"\304\343\"\307%\266\202\266\203\202I\340\341\307\304\344\345\346\"G\"\307\347\350\"%\203\212\211\211\203\206\211@\211@A\211\332\351\352 \353!$\210\354\355\356#\210\211\203}\211@\332\357\360#\210A\266\202\202j\266A\266\202\202M\210\202\216\335\336!\210\361 \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) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (115 243 114 256 97 266)) magit-set-all "+refs/heads/*:refs/remotes/%s/*" magit-call-git "remote" "rm" 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 (#$ . 5461) (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/<remote>/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 (#$ . 8395) (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/<remote>/HEAD".
|
|
(fn REMOTE)
|
(defalias 'magit-remote-unset-head #[257 "\300\301\302\303$\207" [magit-run-git "remote" "set-head" "--delete"] 6 (#$ . 9014) (byte-code "\300\301!C\207" [magit-read-remote "Unset HEAD for remote"] 2)])
|
(defvar magit-remote-config--remote nil)
|
#@58 Popup console for setting remote variables.
|
|
(fn REMOTE)
|
(defalias 'magit-remote-config-popup #[257 "\211\301\302\303\211#)\207" [magit-remote-config--remote magit-invoke-popup magit-remote-config-popup nil] 5 (#$ . 9391) (byte-code "\204 \303=\203 \n\203 \304\305!\202 \306 C\207" [current-prefix-arg magit-current-popup magit-remote-popup-show-variables magit-remote-popup magit-read-remote "Configure remote" magit-remote-config--remote-1] 2)])
|
(defvar magit-remote-config-variables '((lambda nil (concat (propertize "Configure " 'face 'magit-popup-heading) (propertize (magit-remote-config--remote) 'face 'magit-branch-remote))) (117 "remote.%s.url" magit-set-remote*url magit-format-remote*url) (85 "remote.%s.fetch" magit-set-remote*fetch magit-format-remote*fetch) (115 "remote.%s.pushurl" magit-set-remote*pushurl magit-format-remote*pushurl) (83 "remote.%s.push" magit-set-remote*push magit-format-remote*push) (79 "remote.%s.tagOpt" magit-cycle-remote*tagOpt magit-format-remote*tagOpt)))
|
(defvar magit-remote-config-popup (byte-code "\301\302\303\304BBBB\207" [magit-remote-config-variables :man-page "git-remote" :variables (:setup-function magit-remote-config-popup-setup)] 5))
|
#@16
|
|
(fn VAL DEF)
|
(defalias 'magit-remote-config-popup-setup #[514 "\301\"\210\302\300!\210\211\207" [magit-remote-config--remote magit-popup-default-setup make-local-variable] 5 (#$ . 10596)])
|
#@25
|
|
(fn &optional PROMPT)
|
(defalias 'magit-remote-config--remote #[256 "\211\203 \204 \206 \302 \206 \303!\207 \206 \302 \206 \304\207" [current-prefix-arg magit-remote-config--remote magit-remote-config--remote-1 magit-read-remote "<name>"] 3 (#$ . 10797)])
|
(defalias 'magit-remote-config--remote-1 #[0 "\300 \211\203\f \211\301\232\203 \302\303!\205 \303\202 \211\207" [magit-get-upstream-remote "." magit-remote-p "origin"] 3])
|
#@79 Set the variable `url' for the remote named REMOTE to URLS.
|
|
(fn REMOTE URLS)
|
(defalias 'magit-set-remote*url #[514 "\300\301#\207" [magit-remote-config--set-url "url"] 6 (#$ . 11244) (magit-remote-config--read-args "url" "Urls: ")])
|
#@85 Set the variable `fetch' for the remote named REMOTE to VALUES.
|
|
(fn REMOTE VALUES)
|
(defalias 'magit-set-remote*fetch #[514 "\300\301\302$\210\303 \207" [magit-set-all "remote" "fetch" magit-refresh] 7 (#$ . 11486) (magit-remote-config--read-args "fetch" "Fetch specs: ")])
|
#@83 Set the variable `pushurl' for the remote named REMOTE to URLS.
|
|
(fn REMOTE URLS)
|
(defalias 'magit-set-remote*pushurl #[514 "\300\301\302$\207" [magit-remote-config--set-url "pushurl" "--push"] 7 (#$ . 11768) (magit-remote-config--read-args "pushurl" "Urls: ")])
|
#@84 Set the variable `push' for the remote named REMOTE to VALUES.
|
|
(fn REMOTE VALUES)
|
(defalias 'magit-set-remote*push #[514 "\300\301\302$\210\303 \207" [magit-set-all "remote" "push" magit-refresh] 7 (#$ . 12039) (magit-remote-config--read-args "push" "Push specs: ")])
|
#@15
|
|
(fn REMOTE)
|
(defalias 'magit-cycle-remote*tagOpt #[257 "\300\301\302\"\303\304#\207" [magit--set-popup-variable format "remote.%s.tagOpt" ("--no-tags" "--tags") nil] 5 (#$ . 12316) (byte-code "\300 C\207" [magit-remote-config--remote] 1)])
|
(defalias 'magit-format-remote*url #[0 "\300\301!\207" [magit-remote-config--format-variable "url"] 2])
|
(defalias 'magit-format-remote*fetch #[0 "\300\301!\207" [magit-remote-config--format-variable "fetch"] 2])
|
(defalias 'magit-format-remote*pushurl #[0 "\300\301!\207" [magit-remote-config--format-variable "pushurl"] 2])
|
(defalias 'magit-format-remote*push #[0 "\300\301!\207" [magit-remote-config--format-variable "push"] 2])
|
(defalias 'magit-format-remote*tagOpt #[0 "\300 \301\302\303\"\304\305\211G\306\\%\207" [magit-remote-config--remote magit--format-popup-variable:choices format "remote.%s.tagOpts" ("--no-tags" "--tags") nil 16] 8])
|
#@19
|
|
(fn VAR PROMPT)
|
(defalias 'magit-remote-config--read-args #[514 "\300\301\302\"!\303\304#\305\306\307\310\211\211\205 \311\312\n\313#%\"D\207" [magit-remote-config--remote format "Set `%s' of remote" magit-get-all "remote" mapcar #[257 "\300\301\"\203 \302!\207\207" [string-prefix-p "~" expand-file-name] 4 "\n\n(fn URL)"] completing-read-multiple nil mapconcat identity ","] 16 (#$ . 13213)])
|
#@40
|
|
(fn REMOTE VAR VALUES &optional ARG)
|
(defalias 'magit-remote-config--set-url #[1027 "\300\301#\302\"\211\203# \211@\303\301\304\305 &\210A\266\202\202 \210\302\"\211\203G \211@\303\301\304\306 \307\310!\311Q&\210A\266\202\202( \266\312 \207" [magit-get-all "remote" -difference magit-call-git "set-url" "--add" "--delete" "^" regexp-quote "$" magit-refresh] 16 (#$ . 13629)])
|
#@17
|
|
(fn VARIABLE)
|
(defalias 'magit-remote-config--format-variable #[257 "\300\301\302\303 #\304\"\207" [magit--format-popup-variable:values format "remote.%s.%s" magit-remote-config--remote 25] 6 (#$ . 14035)])
|
(provide 'magit-remote)
|
