mirror of https://github.com/Chizi123/.emacs.d.git
view | history | commit | commitdiff
Chizi123
2018-11-18 c655eea759be1db69c5e6b45c228139d8390122a
commit | author | age
5cb5f7 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (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)
16 #@56 Popup console for remote commands.
17
18 (fn &optional ARG)
19 (defalias 'magit-remote-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-remote-popup nil] 5 (#$ . 1565) "P"])
20 (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))
21 (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)
22 (defalias 'magit-remote-arguments #[0 "\303=\203    \207\n\207" [magit-current-popup magit-current-popup-args magit-remote-arguments magit-remote-popup] 2])
23 (put 'magit-remote-arguments 'definition-name 'magit-remote-popup)
24 #@39 
25
26 (fn PROMPT &optional INITIAL-INPUT)
27 (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)])
28 #@73 Add a remote named REMOTE and fetch it.
29
30 (fn REMOTE URL &optional ARGS)
31 (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)])
32 #@51 Rename the remote named OLD to NEW.
33
34 (fn OLD NEW)
35 (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)])
36 #@46 Delete the remote named REMOTE.
37
38 (fn REMOTE)
39 (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)])
40 #@34 
41
42 (fn REMOTE &optional NEW-NAME)
43 (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)])
44 (defconst magit--refspec-re "\\`\\(\\+\\)?\\([^:]+\\):\\(.*\\)\\'")
45 #@64 Remove stale remote-tracking branches for REMOTE.
46
47 (fn REMOTE)
48 (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)])
49 #@562 Remove stale refspecs for REMOTE.
50
51 A refspec is stale if there no longer exists at least one branch
52 on the remote that would be fetched due to that refspec.  A stale
53 refspec is problematic because its existence causes Git to refuse
54 to fetch according to the remaining non-stale refspecs.
55
56 If only stale refspecs remain, then offer to either delete the
57 remote or to replace the stale refspecs with the default refspec.
58
59 Also remove the remote-tracking branches that were created due to
60 the now stale refspecs.  Other stale branches are not removed.
61
62 (fn REMOTE)
63 (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)])
64 #@294 Set the local representation of REMOTE's default branch.
65 Query REMOTE and set the symbolic-ref refs/remotes/<remote>/HEAD
66 accordingly.  With a prefix argument query for the branch to be
67 used, which allows you to select an incorrect value if you fancy
68 doing that.
69
70 (fn REMOTE &optional BRANCH)
71 (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)])
72 #@127 Unset the local representation of REMOTE's default branch.
73 Delete the symbolic-ref "refs/remotes/<remote>/HEAD".
74
75 (fn REMOTE)
76 (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)])
77 (defvar magit-remote-config--remote nil)
78 #@58 Popup console for setting remote variables.
79
80 (fn REMOTE)
81 (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)])
82 (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)))
83 (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))
84 #@16 
85
86 (fn VAL DEF)
87 (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)])
88 #@25 
89
90 (fn &optional PROMPT)
91 (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)])
92 (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])
93 #@79 Set the variable `url' for the remote named REMOTE to URLS.
94
95 (fn REMOTE URLS)
96 (defalias 'magit-set-remote*url #[514 "\300\301#\207" [magit-remote-config--set-url "url"] 6 (#$ . 11244) (magit-remote-config--read-args "url" "Urls: ")])
97 #@85 Set the variable `fetch' for the remote named REMOTE to VALUES.
98
99 (fn REMOTE VALUES)
100 (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: ")])
101 #@83 Set the variable `pushurl' for the remote named REMOTE to URLS.
102
103 (fn REMOTE URLS)
104 (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: ")])
105 #@84 Set the variable `push' for the remote named REMOTE to VALUES.
106
107 (fn REMOTE VALUES)
108 (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: ")])
109 #@15 
110
111 (fn REMOTE)
112 (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)])
113 (defalias 'magit-format-remote*url #[0 "\300\301!\207" [magit-remote-config--format-variable "url"] 2])
114 (defalias 'magit-format-remote*fetch #[0 "\300\301!\207" [magit-remote-config--format-variable "fetch"] 2])
115 (defalias 'magit-format-remote*pushurl #[0 "\300\301!\207" [magit-remote-config--format-variable "pushurl"] 2])
116 (defalias 'magit-format-remote*push #[0 "\300\301!\207" [magit-remote-config--format-variable "push"] 2])
117 (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])
118 #@19 
119
120 (fn VAR PROMPT)
121 (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)])
122 #@40 
123
124 (fn REMOTE VAR VALUES &optional ARG)
125 (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)])
126 #@17 
127
128 (fn VARIABLE)
129 (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)])
130 (provide 'magit-remote)