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

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
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&    \207" [require magit custom-declare-variable magit-push-current-set-remote-if-missing funcall function #[0 "\300\207" [t] 1] "Whether to configure missing remotes before pushing.\n\nWhen nil, then the command `magit-push-current-to-pushremote' and\n`magit-push-current-to-upstream' do not appear in the push popup\nif the push-remote resp. upstream is not configured.  If the user\ninvokes one of these commands anyway, then it raises an error.\n\nWhen non-nil, then these commands always appear in the push\npopup.  But if the required configuration is missing, then they\ndo appear in a way that indicates that this is the case.  If the\nuser invokes one of them, then it asks for the necessary\nconfiguration, stores the configuration, and then uses it to push\na first time.\n\nThis option also affects whether the argument `--set-upstream' is\navailable in the popup.  If the value is t, then that argument is\nredundant.  But note that changing the value of this option does\nnot take affect immediately, the argument will only be added or\nremoved after restarting Emacs." :package-version (magit . "2.6.0") :group magit-commands :type (choice (const :tag "don't set" nil) (const :tag "set branch.<name>.pushRemote" t) (const :tag "set remote.pushDefault" default))] 10)
16 #@54 Popup console for push commands.
17
18 (fn &optional ARG)
19 (defalias 'magit-push-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-push-popup nil] 5 (#$ . 1763) "P"])
20 (defvar magit-push-popup (byte-code "\301\302\303\304\305\306\307\310\311?\205\312BBBB\313\314\315\316\257\n\207" [magit-push-current-set-remote-if-missing :variable magit-push-arguments :man-page "git-push" :switches (102 "Force with lease" "--force-with-lease") (70 "Force" "--force") (104 "Disable hooks" "--no-verify") (100 "Dry run" "--dry-run") ((117 "Set upstream" "--set-upstream")) :actions ("Configure" (67 "variables..." magit-branch-config-popup) (lambda nil (--when-let (magit-get-current-branch) (concat (propertize "Push " 'face 'magit-popup-heading) (propertize it 'face 'magit-branch-local) (propertize " to" 'face 'magit-popup-heading)))) (112 magit--push-current-to-pushremote-desc magit-push-current-to-pushremote) (117 magit--push-current-to-upstream-desc magit-push-current-to-upstream) (101 "elsewhere\n" magit-push-current) "Push" (111 "another branch" magit-push-other) (84 "a tag" magit-push-tag) (114 "explicit refspecs" magit-push-refspecs) (116 "all tags" magit-push-tags) (109 "matching branches" magit-push-matching)) :max-action-columns 2] 10))
21 (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-push-popup custom-declare-variable magit-push-arguments funcall function #[0 "\301\302\"\207" [magit-push-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8)
22 (defalias 'magit-push-arguments #[0 "\303=\203    \207\n\207" [magit-current-popup magit-current-popup-args magit-push-arguments magit-push-popup] 2])
23 (put 'magit-push-arguments 'definition-name 'magit-push-popup)
24 #@27 
25
26 (fn BRANCH TARGET ARGS)
27 (defalias 'magit-git-push #[771 "\300\301!\210\302!\211@A\211\303\304\305\306\307    #%\266\202\207" [run-hooks magit-credential-hook magit-split-branch-name magit-run-git-async "push" "-v" format "%s:refs/heads/%s"] 17 (#$ . 3568)])
28 #@396 Push the current branch to `branch.<name>.pushRemote'.
29 If that variable is unset, then push to `remote.pushDefault'.
30
31 When `magit-push-current-set-remote-if-missing' is non-nil and
32 the push-remote is not configured, then read the push-remote from
33 the user, set it, and then push to it.  With a prefix argument
34 the push-remote can be changed before pushed to it.
35
36 (fn ARGS &optional PUSH-REMOTE)
37 (defalias 'magit-push-current-to-pushremote #[513 "\301 \211\203H\203\302=\203\303\202\304\305\"\306\"\266\307!\211\203?\211\310 \235\2038\311\312Q#\202C\313\314\"\202C\313\315\"\262\202K\313\316!\207" [magit-push-current-set-remote-if-missing magit-get-current-branch default "remote.pushDefault" format "branch.%s.pushRemote" magit-set magit-get-push-remote magit-list-remotes magit-git-push "/" user-error "Remote `%s' doesn't exist" "No push-remote is configured for %s" "No branch is checked out"] 9 (#$ . 3841) (byte-code "\302 \303!\205\304    \305=\203\306\202\307\310\311 \"!D\207" [current-prefix-arg magit-push-current-set-remote-if-missing magit-push-arguments magit--push-current-set-pushremote-p magit-read-remote default "Set `remote.pushDefault' and push there" format "Set `branch.%s.pushRemote' and push there" magit-get-current-branch] 5)])
38 #@25 
39
40 (fn &optional CHANGE)
41 (defalias 'magit--push-current-set-pushremote-p #[256 "\211\204\205\301 ?\205\302 \207" [magit-push-current-set-remote-if-missing magit-get-push-remote magit-get-current-branch] 2 (#$ . 5133)])
42 (defalias 'magit--push-current-to-pushremote-desc #[0 "\301 \211\203\302!\303P\202$\304 \205$\305\306=\203\307\202\310\311\312#\313P\207" [magit-push-current-set-remote-if-missing magit-get-push-branch magit-branch-set-face "\n" magit--push-current-set-pushremote-p propertize default "pushDefault" "pushRemote" face bold ", after setting that\n"] 5])
43 #@315 Push the current branch to its upstream branch.
44
45 When `magit-push-current-set-remote-if-missing' is non-nil and
46 the upstream is not configured, then read the upstream from the
47 user, set it, and then push to it.  With a prefix argument the
48 upstream can be changed before pushed to it.
49
50 (fn ARGS &optional UPSTREAM)
51 (defalias 'magit-push-current-to-upstream #[513 "\300 \211\203(\203\301\"\210\302!\211\203\303#\202#\304\305\"\262\202+\304\306!\207" [magit-get-current-branch magit-set-upstream-branch magit-get-upstream-branch magit-git-push user-error "No upstream is configured for %s" "No branch is checked out"] 8 (#$ . 5727) (byte-code "\301 \302!\205\n\303 D\207" [current-prefix-arg magit-push-arguments magit--push-current-set-upstream-p magit-read-upstream-branch] 3)])
52 #@25 
53
54 (fn &optional CHANGE)
55 (defalias 'magit--push-current-set-upstream-p #[256 "\211\204\205\301 ?\205\302 \207" [magit-push-current-set-remote-if-missing magit-get-upstream-branch magit-get-current-branch] 2 (#$ . 6530)])
56 (defalias 'magit--push-current-to-upstream-desc #[0 "\300 \211\203\301!\302P\202\303 \205\304\305\306\307#\310P\207" [magit-get-upstream-branch magit-branch-set-face "\n" magit--push-current-set-upstream-p propertize "@{upstream}" face bold ", after setting that\n"] 5])
57 #@79 Push the current branch to a branch read in the minibuffer.
58
59 (fn TARGET ARGS)
60 (defalias 'magit-push-current #[514 "\300\301 #\207" [magit-git-push magit-get-current-branch] 6 (#$ . 7041) (byte-code "\300 \211\203\301\302\303\"\304\211\305%\306 D\202\307\310!\207" [magit-get-current-branch magit-read-remote-branch format "Push %s to" nil confirm magit-push-arguments user-error "No branch is checked out"] 7)])
61 #@131 Push an arbitrary branch or commit somewhere.
62 Both the source and the target are read in the minibuffer.
63
64 (fn SOURCE TARGET ARGS)
65 (defalias 'magit-push-other #[771 "\300#\207" [magit-git-push] 7 (#$ . 7468) (byte-code "\300\301!\211\302\303\304\"\305\306!\203\307!\206*\310!\202*\311\312\"\205*\307 \206*\310 \313%\314 E\207" [magit-read-local-branch-or-commit "Push" magit-read-remote-branch format "Push %s to" nil magit-local-branch-p magit-get-push-branch magit-get-upstream-branch magit-rev-ancestor-p "HEAD" confirm magit-push-arguments] 8)])
66 (defvar magit-push-refspecs-history nil)
67 #@273 Push one or multiple REFSPECS to a REMOTE.
68 Both the REMOTE and the REFSPECS are read in the minibuffer.  To
69 use multiple REFSPECS, separate them with commas.  Completion is
70 only available for the part before the colon, or when no colon
71 is used.
72
73 (fn REMOTE REFSPECS ARGS)
74 (defalias 'magit-push-refspecs #[771 "\300\301!\210\302\303\304%\207" [run-hooks magit-credential-hook magit-run-git-async "push" "-v"] 9 (#$ . 8080) (byte-code "\301\302!\303\304\305\306\307 B\310\211\311%\312#\313 E\207" [crm-default-separator magit-read-remote "Push to remote" split-string magit-completing-read-multiple "Push refspec,s" "HEAD" magit-list-local-branch-names nil magit-push-refspecs-history t magit-push-arguments] 8)])
75 #@196 Push all matching branches to another repository.
76 If multiple remotes exist, then read one from the user.
77 If just one exists, use that without requiring confirmation.
78
79 (fn REMOTE &optional ARGS)
80 (defalias 'magit-push-matching #[513 "\300\301!\210\302\303\304\305%\207" [run-hooks magit-credential-hook magit-run-git-async "push" "-v" ":"] 8 (#$ . 8805) (byte-code "\300\301\302\303#\304 D\207" [magit-read-remote "Push matching branches to" nil t magit-push-arguments] 4)])
81 #@210 Push all tags to another repository.
82 If only one remote exists, then push to that.  Otherwise prompt
83 for a remote, offering the remote configured for the current
84 branch as default.
85
86 (fn REMOTE &optional ARGS)
87 (defalias 'magit-push-tags #[513 "\300\301!\210\302\303\304$\207" [run-hooks magit-credential-hook magit-run-git-async "push" "--tags"] 7 (#$ . 9288) (byte-code "\300\301\302\303#\304 D\207" [magit-read-remote "Push tags to remote" nil t magit-push-arguments] 4)])
88 #@67 Push a tag to another repository.
89
90 (fn TAG REMOTE &optional ARGS)
91 (defalias 'magit-push-tag #[770 "\300\301!\210\302\303$\207" [run-hooks magit-credential-hook magit-run-git-async "push"] 8 (#$ . 9770) (byte-code "\300\301!\211\302\303\304\"\305\306#\307 E\207" [magit-read-tag "Push tag" magit-read-remote format "Push %s to remote" nil t magit-push-arguments] 6)])
92 #@800 Push somewhere without using an explicit refspec.
93
94 This command simply runs "git push -v [ARGS]".  ARGS are the
95 arguments specified in the popup buffer.  No explicit refspec
96 arguments are used.  Instead the behavior depends on at least
97 these Git variables: `push.default', `remote.pushDefault',
98 `branch.<branch>.pushRemote', `branch.<branch>.remote',
99 `branch.<branch>.merge', and `remote.<remote>.push'.
100
101 To add this command to the push popup add this to your init file:
102
103   (with-eval-after-load \='magit-remote
104     (magit-define-popup-action \='magit-push-popup ?P
105       \='magit-push-implicitly--desc
106       \='magit-push-implicitly ?p t))
107
108 The function `magit-push-implicitly--desc' attempts to predict
109 what this command will do.  The value it returns is displayed in
110 the popup buffer.
111
112 (fn ARGS)
113 (defalias 'magit-push-implicitly #[257 "\300\301!\210\302\303\304#\207" [run-hooks magit-credential-hook magit-run-git-async "push" "-v"] 5 (#$ . 10148) (byte-code "\300 C\207" [magit-push-arguments] 1)])
114 (defalias 'magit-push-implicitly--desc #[0 "\300\301!\211\302\232?\205\213\303 \206\304\305!\211\205\300\306\307#\211\205,\310\311\312\313\314#\312\313\315##\266\202\206\213\316 ?\2059\317 \211\205H\310\320\321!\312\322\313\315##\262\206\213\316 \211\205^\310\320\321!\312\323\313\315##\262\206\213\324 \211\205t\310\320\321!\312\325\313\315##\262\206\213\310\326\312\327\313\315#\312\301\313\315#\312\313\315#$\207" [magit-get "push.default" "nothing" magit-get-remote magit-remote-p "origin" "remote" "push" format "%s using %s" propertize face magit-branch-remote bold magit-get-push-branch magit-get-upstream-branch "%s aka %s\n" magit-branch-set-face "@{upstream}" "pushRemote" magit-get-@{push}-branch "@{push}" "using %s (%s is %s)\n" "git push"] 10])
115 #@694 Push to REMOTE without using an explicit refspec.
116 The REMOTE is read in the minibuffer.
117
118 This command simply runs "git push -v [ARGS] REMOTE".  ARGS
119 are the arguments specified in the popup buffer.  No refspec
120 arguments are used.  Instead the behavior depends on at least
121 these Git variables: `push.default', `remote.pushDefault',
122 `branch.<branch>.pushRemote', `branch.<branch>.remote',
123 `branch.<branch>.merge', and `remote.<remote>.push'.
124
125 To add this command to the push popup add this to your init file:
126
127   (with-eval-after-load \='magit-remote
128     (magit-define-popup-action \='magit-push-popup ?r
129       \='magit-push-to-remote--desc
130       \='magit-push-to-remote ?p t))
131
132 (fn REMOTE ARGS)
133 (defalias 'magit-push-to-remote #[514 "\300\301!\210\302\303\304$\207" [run-hooks magit-credential-hook magit-run-git-async "push" "-v"] 7 (#$ . 11943) (byte-code "\300\301!\302 D\207" [magit-read-remote "Push to remote" magit-push-arguments] 2)])
134 (defalias 'magit-push-to-remote--desc #[0 "\300\301\302\303\304\305#\"\207" [format "using %s\n" propertize "git push <remote>" face bold] 6])
135 (provide 'magit-push)