mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-17 c4001ccd1864293b64aa37d83a9d9457eb875e70
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
;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=\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 (#$ . 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)