;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\306\307%\210\302\310\311\305\306\307%\210\302\312\313\305\306\307%\210\302\314\315\305\306\307%\210\302\316\317\305\306\307%\210\302\320\321\305\306\307%\210\302\322\323\305\306\307%\210\302\324\325\305\306\307%\207" [require magit custom-declare-face magit-sequence-pick ((t :inherit default)) "Face used in sequence sections." :group magit-faces magit-sequence-stop ((((class color) (background light)) :foreground "DarkOliveGreen4") (((class color) (background dark)) :foreground "DarkSeaGreen2")) magit-sequence-part ((((class color) (background light)) :foreground "Goldenrod4") (((class color) (background dark)) :foreground "LightGoldenrod2")) magit-sequence-head ((((class color) (background light)) :foreground "SkyBlue4") (((class color) (background dark)) :foreground "LightSkyBlue1")) magit-sequence-drop ((((class color) (background light)) :foreground "IndianRed") (((class color) (background dark)) :foreground "IndianRed")) magit-sequence-done ((t :inherit magit-hash)) magit-sequence-onto ((t :inherit magit-sequence-done)) magit-sequence-exec ((t :inherit magit-hash))] 6)
|
#@52 Resume the current cherry-pick or revert sequence.
|
(defalias 'magit-sequencer-continue #[0 "\300 \203 \301\302!\203 \303\304!\207\305\306 \203 \307\202 \310\311\"\207\303\312!\207" [magit-sequencer-in-progress-p magit-anything-unstaged-p t user-error "Cannot continue due to unstaged changes" magit-run-git-sequencer magit-revert-in-progress-p "revert" "cherry-pick" "--continue" "No cherry-pick or revert in progress"] 3 (#$ . 1541) nil])
|
#@69 Skip the stopped at commit during a cherry-pick or revert sequence.
|
(defalias 'magit-sequencer-skip #[0 "\300 \203 \301\302\303\"\210\304 \207\305\306!\207" [magit-sequencer-in-progress-p magit-call-git "reset" "--hard" magit-sequencer-continue user-error "No cherry-pick or revert in progress"] 3 (#$ . 1991) nil])
|
#@110 Abort the current cherry-pick or revert sequence.
|
This discards all changes made since the sequence started.
|
(defalias 'magit-sequencer-abort #[0 "\300 \203 \301\302 \203 \303\202 \304\305\"\207\306\307!\207" [magit-sequencer-in-progress-p magit-run-git-sequencer magit-revert-in-progress-p "revert" "cherry-pick" "--abort" user-error "No cherry-pick or revert in progress"] 3 (#$ . 2315) nil])
|
(defalias 'magit-sequencer-in-progress-p #[0 "\300 \206 \301 \207" [magit-cherry-pick-in-progress-p magit-revert-in-progress-p] 1])
|
#@22 The Perl executable.
|
(defvar magit-perl-executable "perl" (#$ . 2852))
|
#@61 Popup console for cherry-pick commands.
|
|
(fn &optional ARG)
|
(defalias 'magit-cherry-pick-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-cherry-pick-popup nil] 5 (#$ . 2929) "P"])
|
(defvar magit-cherry-pick-popup (list :variable 'magit-cherry-pick-arguments :man-page "git-cherry-pick" :switches '((115 "Add Signed-off-by lines" "--signoff") (101 "Edit commit messages" "--edit") (120 "Reference cherry in commit message" "-x") (70 "Attempt fast-forward" "--ff")) :options '((115 "Strategy" "--strategy=") (109 "Replay merge relative to parent" "--mainline=")) :actions '("Apply here" (65 "Pick" magit-cherry-copy) (97 "Apply" magit-cherry-apply) (104 "Harvest" magit-cherry-harvest) "Apply elsewhere" (100 "Donate" magit-cherry-donate) (110 "Spinout" magit-cherry-spinout) (115 "Spinoff" magit-cherry-spinoff)) :sequence-actions '((65 "Continue" magit-sequencer-continue) (115 "Skip" magit-sequencer-skip) (97 "Abort" magit-sequencer-abort)) :sequence-predicate 'magit-sequencer-in-progress-p :default-arguments '("--ff")))
|
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-cherry-pick-popup custom-declare-variable magit-cherry-pick-arguments funcall function #[0 "\301\302\"\207" [magit-cherry-pick-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8)
|
(defalias 'magit-cherry-pick-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-cherry-pick-arguments magit-cherry-pick-popup] 2])
|
(put 'magit-cherry-pick-arguments 'definition-name 'magit-cherry-pick-popup)
|
#@15
|
|
(fn PROMPT)
|
(defalias 'magit-cherry-pick-read-args #[257 "\300\301!\237\206\n \302!\303 D\207" [magit-region-values commit magit-read-other-branch-or-commit magit-cherry-pick-arguments] 3 (#$ . 4575)])
|
#@21
|
|
(fn VERB AWAY FN)
|
(defalias 'magit--cherry-move-read-args #[771 "\300\301!\237\206 \203 \302\202 \303\304\305\306!\"!C\307 \211\204% \310\311\"\210\312@\"\313D\211:\203\201 \211@\211\204\\ A\211:\203X \211@\211\314=\203W A\211\204V \310 \315#\210\210\210\210\202\200 \211\314=\203\200 A\211:\203 \211@\211\204~ A\211\204} \310 \316#\210\210\210\210\210\266\317!\320 C\"B\207" [magit-region-values commit magit-read-branch-or-commit magit-read-other-branch-or-commit format "%s cherry" capitalize magit-get-current-branch user-error "Cannot %s cherries while HEAD is detached" magit-rev-ancestor-p "Cannot %s cherries that %s reachable from HEAD" t "are" "are not" append magit-cherry-pick-arguments] 16 (#$ . 4786)])
|
(byte-code "\300\301\302\303#\300\207" [function-put magit--cherry-move-read-args lisp-indent-function defun] 4)
|
#@13
|
|
(fn VERB)
|
(defalias 'magit--cherry-spinoff-read-args #[257 "\300\301\302#\207" [magit--cherry-move-read-args t #[257 "\300\301\302\303\"!!\207" [butlast magit-branch-read-args format "Create branch from %s cherries"] 6 "\n\n(fn COMMITS)"]] 5 (#$ . 5651)])
|
#@227 Copy COMMITS from another branch onto the current branch.
|
Prompt for a commit, defaulting to the commit at point. If
|
the region selects multiple commits, then pick all of them,
|
without prompting.
|
|
(fn COMMITS &optional ARGS)
|
(defalias 'magit-cherry-copy #[513 "\300\"\207" [magit--cherry-pick] 5 (#$ . 5918) (magit-cherry-pick-read-args "Cherry-pick")])
|
#@223 Apply the changes in COMMITS but do not commit them.
|
Prompt for a commit, defaulting to the commit at point. If
|
the region selects multiple commits, then apply all of them,
|
without prompting.
|
|
(fn COMMITS &optional ARGS)
|
(defalias 'magit-cherry-apply #[513 "\300\301\302\303\"B\"\207" [magit--cherry-pick "--no-commit" remove "--ff"] 8 (#$ . 6282) (magit-cherry-pick-read-args "Apply changes from commit")])
|
#@239 Move COMMITS from another BRANCH onto the current branch.
|
Remove the COMMITS from BRANCH and stay on the current branch.
|
If a conflict occurs, then you have to fix that and finish the
|
process manually.
|
|
(fn COMMITS BRANCH &optional ARGS)
|
(defalias 'magit-cherry-harvest #[770 "\300\301 \302\303&\207" [magit--cherry-move magit-get-current-branch nil t] 10 (#$ . 6700) (magit--cherry-move-read-args "harvest" nil #[257 "\300@!\211G\211\301\267\202 \302\202 @\202 \303\304\305G\"\302\306$\262\262C\207" [magit-list-containing-branches #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 12 1 16)) nil magit-completing-read format "Remove %s cherries from branch" t] 8 "\n\n(fn COMMITS)"])])
|
#@249 Move COMMITS from the current branch onto another existing BRANCH.
|
Remove COMMITS from the current branch and stay on that branch.
|
If a conflict occurs, then you have to fix that and finish the
|
process manually.
|
|
(fn COMMITS BRANCH &optional ARGS)
|
(defalias 'magit-cherry-donate #[770 "\300\301 $\207" [magit--cherry-move magit-get-current-branch] 8 (#$ . 7445) (magit--cherry-move-read-args "donate" t #[257 "\300\301\302G\"!C\207" [magit-read-other-branch format "Move %s cherries to branch"] 5 "\n\n(fn COMMITS)"])])
|
#@250 Move COMMITS from the current branch onto a new BRANCH.
|
Remove COMMITS from the current branch and stay on that branch.
|
If a conflict occurs, then you have to fix that and finish the
|
process manually.
|
|
(fn COMMITS BRANCH START-POINT &optional ARGS)
|
(defalias 'magit-cherry-spinout #[1027 "\300\301 %\207" [magit--cherry-move magit-get-current-branch] 10 (#$ . 7976) (magit--cherry-spinoff-read-args "spinout")])
|
#@246 Move COMMITS from the current branch onto a new BRANCH.
|
Remove COMMITS from the current branch and checkout BRANCH.
|
If a conflict occurs, then you have to fix that and finish
|
the process manually.
|
|
(fn COMMITS BRANCH START-POINT &optional ARGS)
|
(defalias 'magit-cherry-spinoff #[1027 "\300\301 \302&\207" [magit--cherry-move magit-get-current-branch t] 11 (#$ . 8400) (magit--cherry-spinoff-read-args "spinoff")])
|
#@64
|
|
(fn COMMITS SRC DST ARGS &optional START-POINT CHECKOUT-DST)
|
(defalias 'magit--cherry-move #[1540 "\302 \303!\204\" |