| 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) | |
