;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (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 (#$ . 1220) 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 (#$ . 1670) 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 (#$ . 1994) 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" (#$ . 2531)) (defalias 'magit-cherry-pick #[0 "\300\301!\207" [transient-setup magit-cherry-pick] 2 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316&#\210\300\301\317\320#\207" [put magit-cherry-pick interactive-only t function-documentation "Apply or transplant commits." transient--prefix transient-prefix :command :man-page "git-cherry-pick" :value ("--ff") :incompatible (("--ff" "-x")) transient--layout ([1 transient-column (:description "Arguments" :if-not magit-sequencer-in-progress-p) ((1 transient-suffix (:command magit-cherry-pick:--mainline)) (1 transient-suffix (:key "=s" :command magit-merge:--strategy)) (1 transient-switch (:key "-F" :description "Attempt fast-forward" :argument "--ff" :command transient:magit-cherry-pick:--ff)) (1 transient-switch (:key "-x" :description "Reference cherry in commit message" :shortarg "-x" :argument "-x" :command transient:magit-cherry-pick:-x)) (1 transient-switch (:key "-e" :description "Edit commit messages" :shortarg "-e" :argument "--edit" :command transient:magit-cherry-pick:--edit)) (1 transient-switch (:key "-s" :description "Add Signed-off-by lines" :shortarg "-s" :argument "--signoff" :command transient:magit-cherry-pick:--signoff)) (5 transient-suffix (:command magit:--gpg-sign)))] [1 transient-columns (:if-not magit-sequencer-in-progress-p) ([1 transient-column (:description "Apply here") ((1 transient-suffix (:key "A" :description "Pick" :command magit-cherry-copy)) (1 transient-suffix (:key "a" :description "Apply" :command magit-cherry-apply)) (1 transient-suffix (:key "h" :description "Harvest" :command magit-cherry-harvest)) (1 transient-suffix (:key "m" :description "Squash" :command magit-merge-squash)))] [1 transient-column (:description "Apply elsewhere") ((1 transient-suffix (:key "d" :description "Donate" :command magit-cherry-donate)) (1 transient-suffix (:key "n" :description "Spinout" :command magit-cherry-spinout)) (1 transient-suffix (:key "s" :description "Spinoff" :command magit-cherry-spinoff)))])] [1 transient-column (:description "Actions" :if magit-sequencer-in-progress-p) ((1 transient-suffix (:key "A" :description "Continue" :command magit-sequencer-continue)) (1 transient-suffix (:key "s" :description "Skip" :command magit-sequencer-skip)) (1 transient-suffix (:key "a" :description "Abort" :command magit-sequencer-abort)))])] 12) (defalias 'magit-cherry-pick:--mainline #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316\317\320&\n#\207" [put magit-cherry-pick:--mainline interactive-only t function-documentation nil transient--suffix transient-option :command :description "Replay merge relative to parent" :shortarg "-m" :argument "--mainline=" :reader transient-read-number-N+] 14) #@15 (fn PROMPT) (defalias 'magit-cherry-pick-read-args #[257 "\300\301!\237\206\n\302!\303\304!D\207" [magit-region-values commit magit-read-other-branch-or-commit transient-args magit-cherry-pick] 4 (#$ . 5554)]) #@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@\"D\211:\203\211\242\211\204[\243\211:\203V\211\242\211\313=\203U\243\211\204T\310\314\f\315#\210\210\210\266\202\201\211\313=\203~\243\211:\203}\211\242\211\204|\243\211\204{\310\314\f\316#\210\210\210\210\210\266\317!\320\321!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 t "Cannot %s cherries that %s reachable from HEAD" "are" "are not" append transient-args magit-cherry-pick] 15 (#$ . 5774)]) (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\302G\"\303 \"\207" [magit-branch-read-args format "Create branch from %s cherries" magit-get-upstream-branch] 5 "\n\n(fn COMMITS)"]] 5 (#$ . 6665)]) #@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 (#$ . 6952) (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 (#$ . 7316) (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 (#$ . 7734) (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 (#$ . 8479) (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 (#$ . 9010) (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 (#$ . 9434) (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\"\304\305\306#\210)\307!\211\203!\305\306\310 $\210\210\232\2041\304\305\311\"\210)\204;\312\"\207\313!@@\314P\312 \"\210\315 \316\317\f\f\f\n  &\"\207" [magit-process-raise-error magit-this-process magit-get-current-branch magit-branch-p t magit-call-git "branch" magit-get-indirect-upstream-branch "--set-upstream-to" "checkout" magit--cherry-pick last "^" set-process-sentinel make-closure #[514 "\306!\307>\205n\310!\311V\203\312\"\207\313\314\315#\210\312\"\210\316\304\301\"\203B\317\320\321\322\323\305\"\324\301!\305\304&\210\303\204?\325\326\301\"\207\327 \207\330\326\301\"\210$$\322\331\332%\333\334\300\335#$$B$\336\337\340\305#\210)\303\205n\341&\342\343\302\"\"\207" [V0 V1 V2 V3 V4 V5 process-status (exit signal) process-exit-status 0 magit-process-sentinel process-put inhibit-refresh t magit-rev-equal magit-call-git "update-ref" "-m" format "reset: moving to %s" magit-ref-fullname magit-run-git "checkout" magit-refresh magit-git "%s=%s -i -ne '/^pick (%s)/ or print'" "GIT_SEQUENCE_EDITOR" mapconcat magit-rev-abbrev "|" magit-run-git-sequencer "rebase" "-i" set-process-sentinel make-closure #[514 "\301!\302>\205$\303!\304V\203\305\"\207\306\307\310#\210\305\"\210\311\312\300\"\207" [V0 process-status (exit signal) process-exit-status 0 magit-process-sentinel process-put inhibit-refresh t magit-run-git "checkout"] 6 "\n\n(fn PROCESS EVENT)"] process-environment magit-perl-executable magit-this-process] 10 "\n\n(fn PROCESS EVENT)"]] 19 (#$ . 9860)]) #@38 (fn COMMITS ARGS &optional REVERT) (defalias 'magit--cherry-pick #[770 "\211\203\301\202 \302;\203)\303\304\305\306#)\266\203\203%\307\303\"\202'C\262\310\2032\301\2023\302\311\312\"\211\242\243\211\242\243\204y\304\f\313\304\211\203n\211A\262\242\262\262T\262\314\315\"\204LB\262\202L\266\211\237\262\266\206\202\331\211\203\207\316\317 \"\266\206\202\331\304\f\313\304\211\211\203\277\211A\262\242\262\262\211\262\203\277\314\315\"\203\262\304\262\203\277\262\262T\262\202\216\266\211\262\203\316 \266\206\202\331\320\321\322\323!\"\fB\266\206\262#\207" [inhibit-changing-match-data "revert" "cherry-pick" "\\.\\." nil t string-match split-string magit-run-git-sequencer -separate magit-merge-commit-p 0 string-prefix-p "--mainline=" user-error "Cannot %s merge and non-merge commits at once" format "--mainline=%s" read-number "Replay merges relative to parent: "] 22 (#$ . 11525)]) (defalias 'magit-cherry-pick-in-progress-p #[0 "\300\301\302!!\207" [file-exists-p magit-git-dir "CHERRY_PICK_HEAD"] 3]) (defalias 'magit-revert #[0 "\300\301!\207" [transient-setup magit-revert] 2 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314&#\210\300\301\315\316#\207" [put magit-revert interactive-only t function-documentation "Revert existing commits, with or without creating new commits." transient--prefix transient-prefix :command :man-page "git-revert" :value ("--edit") transient--layout ([1 transient-column (:description "Arguments" :if-not magit-sequencer-in-progress-p) ((1 transient-suffix (:command magit-cherry-pick:--mainline)) (1 transient-switch (:key "-e" :description "Edit commit message" :shortarg "-e" :argument "--edit" :command transient:magit-revert:--edit)) (1 transient-switch (:key "-E" :description "Don't edit commit message" :argument "--no-edit" :command transient:magit-revert:--no-edit)) (1 transient-suffix (:key "=s" :command magit-merge:--strategy)) (1 transient-switch (:key "-s" :description "Add Signed-off-by lines" :shortarg "-s" :argument "--signoff" :command transient:magit-revert:--signoff)) (5 transient-suffix (:command magit:--gpg-sign)))] [1 transient-column (:description "Actions" :if-not magit-sequencer-in-progress-p) ((1 transient-suffix (:key "V" :description "Revert commit(s)" :command magit-revert-and-commit)) (1 transient-suffix (:key "v" :description "Revert changes" :command magit-revert-no-commit)))] [1 transient-column (:description "Actions" :if magit-sequencer-in-progress-p) ((1 transient-suffix (:key "V" :description "Continue" :command magit-sequencer-continue)) (1 transient-suffix (:key "s" :description "Skip" :command magit-sequencer-skip)) (1 transient-suffix (:key "a" :description "Abort" :command magit-sequencer-abort)))])] 10) #@15 (fn PROMPT) (defalias 'magit-revert-read-args #[257 "\300\301!\206 \302!\303\304!D\207" [magit-region-values commit magit-read-branch-or-commit transient-args magit-revert] 4 (#$ . 14374)]) #@210 Revert COMMIT by creating a new commit. Prompt for a commit, defaulting to the commit at point. If the region selects multiple commits, then revert all of them, without prompting. (fn COMMIT &optional ARGS) (defalias 'magit-revert-and-commit #[513 "\300\301#\207" [magit--cherry-pick t] 6 (#$ . 14575) (magit-revert-read-args "Revert commit")]) #@227 Revert COMMIT by applying it in reverse to the worktree. Prompt for a commit, defaulting to the commit at point. If the region selects multiple commits, then revert all of them, without prompting. (fn COMMIT &optional ARGS) (defalias 'magit-revert-no-commit #[513 "\300\301B\302#\207" [magit--cherry-pick "--no-commit" t] 6 (#$ . 14931) (magit-revert-read-args "Revert changes")]) (defalias 'magit-revert-in-progress-p #[0 "\300\301\302!!\207" [file-exists-p magit-git-dir "REVERT_HEAD"] 3]) (defalias 'magit-am #[0 "\300\301!\207" [transient-setup magit-am] 2 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314&#\210\300\301\315\316#\207" [put magit-am interactive-only t function-documentation "Apply patches received by email." transient--prefix transient-prefix :command :man-page "git-am" :value ("--3way") transient--layout ([1 transient-column (:description "Arguments" :if-not magit-am-in-progress-p) ((1 transient-switch (:key "-3" :description "Fall back on 3way merge" :shortarg "-3" :argument "--3way" :command transient:magit-am:--3way)) (1 transient-suffix (:command magit-apply:-p)) (1 transient-switch (:key "-c" :description "Remove text before scissors line" :shortarg "-c" :argument "--scissors" :command transient:magit-am:--scissors)) (1 transient-switch (:key "-k" :description "Inhibit removal of email cruft" :shortarg "-k" :argument "--keep" :command transient:magit-am:--keep)) (1 transient-switch (:key "-b" :description "Limit removal of email cruft" :argument "--keep-non-patch" :command transient:magit-am:--keep-non-patch)) (1 transient-switch (:key "-d" :description "Use author date as committer date" :argument "--committer-date-is-author-date" :command transient:magit-am:--committer-date-is-author-date)) (1 transient-switch (:key "-D" :description "Use committer date as author date" :argument "--ignore-date" :command transient:magit-am:--ignore-date)) (1 transient-switch (:key "-s" :description "Add Signed-off-by lines" :shortarg "-s" :argument "--signoff" :command transient:magit-am:--signoff)) (5 transient-suffix (:command magit:--gpg-sign)))] [1 transient-column (:description "Apply" :if-not magit-am-in-progress-p) ((1 transient-suffix (:key "m" :description "maildir" :command magit-am-apply-maildir)) (1 transient-suffix (:key "w" :description "patches" :command magit-am-apply-patches)) (1 transient-suffix (:key "a" :description "plain patch" :command magit-patch-apply)))] [1 transient-column (:description "Actions" :if magit-am-in-progress-p) ((1 transient-suffix (:key "w" :description "Continue" :command magit-am-continue)) (1 transient-suffix (:key "s" :description "Skip" :command magit-am-skip)) (1 transient-suffix (:key "a" :description "Abort" :command magit-am-abort)))])] 10) (defalias 'magit-am-arguments #[0 "\300\301!\207" [transient-args magit-am] 2]) (defalias 'magit-apply:-p #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316&#\207" [put magit-apply:-p interactive-only t function-documentation nil transient--suffix transient-option :command :description "Remove leading slashes from paths" :argument "-p" :reader transient-read-number-N+] 12) #@53 Apply the patches FILES. (fn &optional FILES ARGS) (defalias 'magit-am-apply-patches #[512 "\300\301\302\303\304\"$\207" [magit-run-git-sequencer "am" "--" mapcar #[257 "\300\301!!\207" [magit-convert-filename-for-git expand-file-name] 4 "\n\n(fn IT)"]] 9 (#$ . 18301) (byte-code "\300\301!\206\302 \303\203\304\305\"\202\306\307#\262C\310 D\207" [magit-region-values file magit-file-at-point read-file-name format "Apply patch (%s): " "Apply patch: " nil magit-am-arguments] 5)]) #@62 Apply the patches from MAILDIR. (fn &optional MAILDIR ARGS) (defalias 'magit-am-apply-maildir #[512 "\300\301\302\303!!#\207" [magit-run-git-sequencer "am" magit-convert-filename-for-git expand-file-name] 8 (#$ . 18803) (byte-code "\300\301!\302 D\207" [read-file-name "Apply mbox or Maildir: " magit-am-arguments] 2)]) #@45 Resume the current patch applying sequence. (defalias 'magit-am-continue #[0 "\300 \203\301\302!\203\303\304!\207\305\306\307\"\207\310\311!\207" [magit-am-in-progress-p magit-anything-unstaged-p t error "Cannot continue due to unstaged changes" magit-run-git-sequencer "am" "--continue" user-error "Not applying any patches"] 3 (#$ . 19133) nil]) #@61 Skip the stopped at patch during a patch applying sequence. (defalias 'magit-am-skip #[0 "\300 \203\n\301\302\303\"\207\304\305!\207" [magit-am-in-progress-p magit-run-git-sequencer "am" "--skip" user-error "Not applying any patches"] 3 (#$ . 19491) nil]) #@103 Abort the current patch applying sequence. This discards all changes made since the sequence started. (defalias 'magit-am-abort #[0 "\300 \203\n\301\302\303\"\207\304\305!\207" [magit-am-in-progress-p magit-run-git "am" "--abort" user-error "Not applying any patches"] 3 (#$ . 19755) nil]) (defalias 'magit-am-in-progress-p #[0 "\300\301\302!!\207" [file-exists-p magit-git-dir "rebase-apply/applying"] 3]) (defalias 'magit-rebase #[0 "\300\301!\207" [transient-setup magit-rebase] 2 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312$#\210\300\301\313\314#\207" [put magit-rebase interactive-only t function-documentation "Transplant commits and/or modify existing commits." transient--prefix transient-prefix :command :man-page "git-rebase" transient--layout ([1 transient-column (:description "Arguments" :if-not magit-rebase-in-progress-p) ((1 transient-switch (:key "-k" :description "Keep empty commits" :argument "--keep-empty" :command transient:magit-rebase:--keep-empty)) (1 transient-switch (:key "-p" :description "Preserve merges" :shortarg "-p" :argument "--preserve-merges" :command transient:magit-rebase:--preserve-merges)) (7 transient-suffix (:command magit-merge:--strategy)) (7 transient-suffix (:command magit-merge:--strategy-option)) (7 transient-suffix (:key "=X" :command magit-diff:--diff-algorithm :argument "-Xdiff-algorithm=")) (1 transient-switch (:key "-d" :description "Lie about committer date" :argument "--committer-date-is-author-date" :command transient:magit-rebase:--committer-date-is-author-date)) (1 transient-switch (:key "-a" :description "Autosquash" :argument "--autosquash" :command transient:magit-rebase:--autosquash)) (1 transient-switch (:key "-A" :description "Autostash" :argument "--autostash" :command transient:magit-rebase:--autostash)) (1 transient-switch (:key "-i" :description "Interactive" :shortarg "-i" :argument "--interactive" :command transient:magit-rebase:--interactive)) (1 transient-switch (:key "-h" :description "Disable hooks" :argument "--no-verify" :command transient:magit-rebase:--no-verify)) (7 transient-suffix (:command magit-rebase:--exec)) (5 transient-suffix (:command magit:--gpg-sign)) (5 transient-option (:key "-r" :description "Rebase merges" :argument "--rebase-merges=" :command transient:magit-rebase:--rebase-merges= :reader magit-rebase-merges-select-mode)))] [1 transient-column (:if-not magit-rebase-in-progress-p :description (lambda nil (format (propertize "Rebase %s onto" 'face 'transient-heading) (propertize (or (magit-get-current-branch) "HEAD") 'face 'magit-branch-local)))) ((1 transient-suffix (:key "p" :command magit-rebase-onto-pushremote)) (1 transient-suffix (:key "u" :command magit-rebase-onto-upstream)) (1 transient-suffix (:key "e" :description "elsewhere" :command magit-rebase-branch)))] [1 transient-columns (:description "Rebase" :if-not magit-rebase-in-progress-p) ([1 transient-column nil ((1 transient-suffix (:key "i" :description "interactively" :command magit-rebase-interactive)) (1 transient-suffix (:key "s" :description "a subset" :command magit-rebase-subset)))] [1 transient-column nil ((1 transient-suffix (:key "m" :description "to modify a commit" :command magit-rebase-edit-commit)) (1 transient-suffix (:key "w" :description "to reword a commit" :command magit-rebase-reword-commit)) (1 transient-suffix (:key "k" :description "to remove a commit" :command magit-rebase-remove-commit)) (1 transient-suffix (:key "f" :description "to autosquash" :command magit-rebase-autosquash)) (6 transient-suffix (:key "t" :description "to change dates" :command magit-reshelve-since)))])] [1 transient-column (:description "Actions" :if magit-rebase-in-progress-p) ((1 transient-suffix (:key "r" :description "Continue" :command magit-rebase-continue)) (1 transient-suffix (:key "s" :description "Skip" :command magit-rebase-skip)) (1 transient-suffix (:key "e" :description "Edit" :command magit-rebase-edit)) (1 transient-suffix (:key "a" :description "Abort" :command magit-rebase-abort)))])] 8) (defalias 'magit-rebase:--exec #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316\317\320&\n#\207" [put magit-rebase:--exec interactive-only t function-documentation nil transient--suffix transient-option :command :description "Run command after commits" :shortarg "-x" :argument "--exec=" :reader read-shell-command] 14) #@21 (fn &rest IGNORE) (defalias 'magit-rebase-merges-select-mode #[128 "\300\301\302\303\304D\305#\306P\307\"\211\310\267\202\311\202\312\202\313\262\314\315!\210\207" [read-char-choice mapconcat identity "[n]o-rebase-cousins" "[r]ebase-cousins" ", " ", or [C-g] to abort " (110 114) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (110 18 114 22)) "no-rebase-cousins" "rebase-cousins" nil message ""] 6 (#$ . 24340)]) (defalias 'magit-rebase-arguments #[0 "\300\301!\207" [transient-args magit-rebase] 2]) #@20 (fn TARGET ARGS) (defalias 'magit-git-rebase #[514 "\300\301#\207" [magit-run-git-sequencer "rebase"] 6 (#$ . 24895)]) #@13 (fn ARGS) (defalias 'magit-rebase-onto-pushremote #[257 "\300\301!\211\242\243\211\242\243\302\303Q \"\207" [magit--select-push-remote "rebase onto that" magit-git-rebase "/"] 12 (#$ . 25024) (byte-code "\300 C\207" [magit-rebase-arguments] 1)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314&#\207" [put magit-rebase-onto-pushremote interactive-only t function-documentation "Rebase the current branch onto its push-remote branch.\n\nWith a prefix argument or when the push-remote is either not\nconfigured or unusable, then let the user first configure the\npush-remote." transient--suffix transient-suffix :command :if magit-get-current-branch :description magit-pull--pushbranch-description] 10) #@13 (fn ARGS) (defalias 'magit-rebase-onto-upstream #[257 "\301 \206\302\303!\304!\204\211\204!\305\306\307\"\"\262\310\"\210\311\"\207" [current-prefix-arg magit-get-current-branch user-error "No branch is checked out" magit-get-upstream-branch magit-read-upstream-branch format "Set upstream of %s and rebase onto that" magit-set-upstream-branch magit-git-rebase] 8 (#$ . 25788) (byte-code "\300 C\207" [magit-rebase-arguments] 1)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314&#\207" [put magit-rebase-onto-upstream interactive-only t function-documentation "Rebase the current branch onto its upstream branch.\n\nWith a prefix argument or when the upstream is either not\nconfigured or unusable, then let the user first configure\nthe upstream." transient--suffix transient-suffix :command :if magit-get-current-branch :description magit-rebase--upstream-description] 10) (defalias 'magit-rebase--upstream-description #[0 "\300 \211\205A\301!\206A\302\303\304#\302\303\305#\306\307\310\"\311\"\203%\211\312P\207\313\"\2030\211\314P\207\2048\203<\211\315P\207\211\316P\266\203\207" [magit-get-current-branch magit-get-upstream-branch magit-get "branch" "remote" "merge" magit--propertize-face "@{upstream}" bold magit--unnamed-upstream-p ", replacing unnamed" magit--valid-upstream-p ", replacing non-existent" ", replacing invalid" ", setting that"] 7]) #@185 Rebase the current branch onto a branch read in the minibuffer. All commits that are reachable from `HEAD' but not from the selected branch TARGET are being rebased. (fn TARGET ARGS) (defalias 'magit-rebase-branch #[514 "\300\301!\210\302\"\210\300\303!\207" [message "Rebasing..." magit-git-rebase "Rebasing...done"] 5 (#$ . 27231) (byte-code "\300\301!\302 D\207" [magit-read-other-branch-or-commit "Rebase onto" magit-rebase-arguments] 2)]) #@197 Rebase a subset of the current branch's history onto a new base. Rebase commits from START to `HEAD' onto NEWBASE. START has to be selected from a list of recent commits. (fn NEWBASE START ARGS) (defalias 'magit-rebase-subset #[771 "\203\300\301!\210\302\303\304%\210\300\305!\207\306\307\310\311\312\313BFE\314\315Q\"\207" [message "Rebasing..." magit-run-git-sequencer "rebase" "--onto" "Rebasing...done" magit-log-select lambda (commit) magit-rebase-subset (concat commit "^") list "Type %p on a commit to rebase it and commits above it onto " ","] 11 (#$ . 27685) (byte-code "\300\301\302\303 #\302\304 E\207" [magit-read-other-branch-or-commit "Rebase subset onto" nil magit-get-upstream-branch magit-rebase-arguments] 4)]) (defvar magit-rebase-interactive-include-selected t) #@81 (fn COMMIT ARGS MESSAGE &optional EDITOR DELAY-EDIT-CONFIRM NOASSERT CONFIRM) (defalias 'magit-rebase-interactive-1 #[1795 "\203L\304=\203\305 \211\205\306\307\310#\262\262\202L\311\310\"\204,\312\313\"\210\314!\203F\315=\203= \203L\316P\262\202L\317B\262\203\225\204\225\320\321 \322\321\211\211\203\215\211A\262\242\262\262\211\262\203\215\323\324\"\211\262\204\215\262\262T\262\202`\266\211\262#\262\203\311\211\204\311\n\203\267\325\326!\203\262!\202\263P\nB\327\330\331\317\n\235?\205\306\n$)\207\332\333\334\335\303\336 BDC\337\340\336 B\f\f\f\f\257EE\"\207" [this-command magit-rebase-interactive-include-selected process-environment magit-git-global-arguments :merge-base magit-get-upstream-branch magit-git-string "merge-base" "HEAD" magit-rev-ancestor-p user-error "%s isn't an ancestor of HEAD" magit-commit-parents magit-rebase-interactive "^" "--root" magit-rebase-interactive-assert nil 0 string-prefix-p "--rebase-merges" "GIT_SEQUENCE_EDITOR=" functionp magit-run-git-sequencer "rebase" "-i" magit-log-select lambda (commit) let list magit-rebase-interactive-1 commit] 19 (#$ . 28485)]) (byte-code "\300\301\302\303#\300\207" [function-put magit-rebase-interactive-1 lisp-indent-function 2] 4) (defvar magit--rebase-published-symbol nil) (defvar magit--rebase-public-edit-confirmed nil) #@57 (fn SINCE &optional DELAY-EDIT-CONFIRM REBASE-MERGES) (defalias 'magit-rebase-interactive-assert #[769 "\302!\303!\304\305 \"\211\203f\203U\306\307\310\211\211\203H\211A\262\242\262\262\211\262\203H\311 \"\211\262\203H\262\262T\262\202\266\211\262\203U\266\202h\312 \206[\313\314\315\310%\210\305 B\266\316\317\320\321P#\203\240\211\204\240\322\323\324\325\326\327\330E\331#\332Q\333\"\211\334\267\202\230\202\231\310\202\231\335\336!\202\231\310\262\337\340!\210\207\207" [magit--rebase-public-edit-confirmed magit--rebase-published-symbol magit-rebase--target-commit magit-list-publishing-branches delete magit-toplevel t 0 nil magit-rev-equal magit-confirm rebase-published "Some of these commits have already been published to %s.\nDo you really want to modify them" "Some of these commits have already been published to %i public branches.\nDo you really want to modify them" magit-git-lines "rev-list" "--merges" "..HEAD" read-char-choice "Proceed despite merge in rebase range? " mapconcat identity "[c]ontinue" "[s]elect other" "[a]bort" ", " " " (99 115 97) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (99 138 115 142 97 146)) user-error "Quit" message ""] 14 (#$ . 29887)]) #@14 (fn SINCE) (defalias 'magit-rebase--target-commit #[257 "\300\301\"\203\f\211\302\303O\207\207" [string-suffix-p "^" 0 -1] 4 (#$ . 31171)]) #@57 Start an interactive rebase sequence. (fn COMMIT ARGS) (defalias 'magit-rebase-interactive #[514 "\300\301\302\303%\207" [magit-rebase-interactive-1 "Type %p on a commit to rebase it and all commits above it," nil t] 8 (#$ . 31321) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-rebase-arguments] 2)]) #@74 Combine squash and fixup commits with their intended targets. (fn ARGS) (defalias 'magit-rebase-autosquash #[257 "\300\301\302\303D\244\304\305\306\307&\207" [magit-rebase-interactive-1 :merge-base "--autosquash" "--keep-empty" "Type %p on a commit to squash into it and then rebase as necessary," "true" nil t] 8 (#$ . 31643) (byte-code "\300 C\207" [magit-rebase-arguments] 1)]) #@60 Edit a single older commit using rebase. (fn COMMIT ARGS) (defalias 'magit-rebase-edit-commit #[514 "\300\301\302\303\304\"\305%\207" [magit-rebase-interactive-1 "Type %p on a commit to edit it," apply-partially magit-rebase--perl-editor edit t] 9 (#$ . 32033) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-rebase-arguments] 2)]) #@62 Reword a single older commit using rebase. (fn COMMIT ARGS) (defalias 'magit-rebase-reword-commit #[514 "\300\301\302\303\304\"$\207" [magit-rebase-interactive-1 "Type %p on a commit to reword its message," apply-partially magit-rebase--perl-editor reword] 9 (#$ . 32384) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-rebase-arguments] 2)]) #@62 Remove a single older commit using rebase. (fn COMMIT ARGS) (defalias 'magit-rebase-remove-commit #[514 "\301\302D\244\303\304\305\306\307\"\310\211\311&)\207" [magit-git-global-arguments "-c" "core.commentChar=#" magit-rebase-interactive-1 "Type %p on a commit to remove it," apply-partially magit-rebase--perl-editor remove nil t] 10 (#$ . 32746) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-rebase-arguments] 2)]) #@21 (fn ACTION SINCE) (defalias 'magit-rebase--perl-editor #[514 "\301\302!!\303\304\305\267\202\306\202!\307\202!\310\202!\311\312\"%\207" [magit-perl-executable magit-rev-abbrev magit-rebase--target-commit format "%s -i -p -e '++$x if not $x and s/^pick %s/%s %s/'" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (edit 16 remove 20 reword 24)) "edit" "noop\n# pick" "reword" error "unknown action: %s"] 10 (#$ . 33188)]) #@189 Restart the current rebasing operation. In some cases this pops up a commit message buffer for you do edit. With a prefix argument the old message is reused as-is. (fn &optional NOEDIT) (defalias 'magit-rebase-continue #[256 "\303 \203I\304\305!\203\306\307!\207\310 \203+\311\312\313!!\203+\314 \235\204+\315\316\312\317!!!\210\211\203C \320 B\321\322 \323\"\210\324\n\325\"\210\n)\207\326\322 \323\"\207\306\327!\207" [magit--rebase-public-edit-confirmed process-environment magit-this-process magit-rebase-in-progress-p magit-anything-unstaged-p t user-error "Cannot continue rebase with unstaged changes" magit-anything-staged-p file-exists-p magit-git-dir "rebase-merge" magit-toplevel magit-commit-amend-assert magit-file-line "rebase-merge/orig-head" "GIT_EDITOR=true" magit-run-git-async magit--rebase-resume-command "--continue" set-process-sentinel magit-sequencer-process-sentinel magit-run-git-sequencer "No rebase in progress"] 5 (#$ . 33667) "P"]) #@67 Skip the current commit and restart the current rebase operation. (defalias 'magit-rebase-skip #[0 "\300 \204 \301\302!\210\303\304 \305\"\207" [magit-rebase-in-progress-p user-error "No rebase in progress" magit-run-git-sequencer magit--rebase-resume-command "--skip"] 3 (#$ . 34647) nil]) #@53 Edit the todo list of the current rebase operation. (defalias 'magit-rebase-edit #[0 "\300 \204 \301\302!\210\303\304\305\"\207" [magit-rebase-in-progress-p user-error "No rebase in progress" magit-run-git-sequencer "rebase" "--edit-todo"] 3 (#$ . 34945) nil]) #@68 Abort the current rebase operation, restoring the original branch. (defalias 'magit-rebase-abort #[0 "\300 \204 \301\302!\210\303\304\305\"\210\306\307 \310\"\207" [magit-rebase-in-progress-p user-error "No rebase in progress" magit-confirm abort-rebase "Abort this rebase" magit-run-git magit--rebase-resume-command "--abort"] 3 (#$ . 35213) nil]) #@38 Return t if a rebase is in progress. (defalias 'magit-rebase-in-progress-p #[0 "\300\301\302!!\206 \300\301\303!!\207" [file-exists-p magit-git-dir "rebase-merge" "rebase-apply/onto"] 3 (#$ . 35569)]) (defalias 'magit--rebase-resume-command #[0 "\300\301\302!!\203\n\303\207\304\207" [file-exists-p magit-git-dir "rebase-recursive" "rbr" "rebase"] 3]) #@113 Insert section for the on-going cherry-pick or revert sequence. If no such sequence is in progress, do nothing. (defalias 'magit-insert-sequencer-sequence #[0 "\306 \211\204 \307 \205\376\310\311!\203\311\202\311\236A\206\312\313\310\311!\203,\314\311\"@\206-\311\315\316\317\320 \321 &\322\323\324\325\"\211\203G\211\326=\202y\n\205R\327\330!\n\"\211\203]\331\323\"\202w\332 \"\211\205u\333!\203r\211!\262\211\326=\262\262\262#\210\211\n\206\213 ?\205\213\f\3342\371\335\203\233\336\202\234\337!\210\340\341\342!!A\211\203\211\237\211\203\211@\343\344\"\203\211\345\346\"\345\347\"\345\350\"\310\351!\203\316\351\202\326\351\236A\206\326\312\313\310\351!\203\345\314\351\"@\206\346\351\315\317\320 \321 &\322\323\324\325\"\211\203\211\326=\2022\n\205 \327\330!\n\"\211\203\331\323\"\2020\332 \"\211\205.\333!\203+\211!\262\211\326=\262\262\262#\210\211\n\206D ?\205D\f\3342\352\353\354#\355\352\353\356#\355\357\261\210\360\361!\210\362!\210\363\331\364\"\365\"\210\322\366\320 #\367\370\"\371\372\373\331\374\"\"!\371\372\375\331\374\"\"!\203\223J\206\246\376!\203\236J\206\246\376!\205\246\211J\212\331\364\"b\210`W\203\343\377`\312\"\206\274\201A`\312\"\204\334\201B`\312\n$\210\203\334\201B`\370$\210\211b\266\202\256)\266\211\f=\203\370\316@\201C!)\202\322\331\201D\"\201E\331\211\201D\"\201E\"C\244#0\210+\266A\266\202\202\252\210\210\201F\201G\341\2030\201H\2023\201I!!\201G\341\201J!!\"\210\357c\210\360\361!\210\362!\210\363\331\364\"\365\"\210\322\366\320 #\367\370\"\371\372\373\331\374\"\"!\371\372\375\331\374\"\"!\203zJ\206\215\376!\203\205J\206\215\376!\205\215\211J\212\331\364\"b\210`W\203\312\377`\312\"\206\243\201A`\312\"\204\303\201B`\312\n$\210\203\303\201B`\370$\210\211b\266\202\225)\266\211\f=\203\337\316@\201C!)\202\370\322\331\201D\"\201E\331\211\201D\"\201E\"C\244#0\210+\211\262\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current magit-cherry-pick-in-progress-p magit-revert-in-progress-p class-p sequence magit-section :type rassq :value nil :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-heading "Cherry Picking" "Reverting" magit-file-lines magit-git-dir "sequencer/todo" string-match "^\\(pick\\|revert\\) \\([^ ]+\\) \\(.*\\)$" match-string 1 2 3 commit propertize font-lock-face magit-sequence-pick " " magit-hash "\n" run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change magit-section-cache-visibility get-text-property put-text-property magit-section-show parent children magit-sequence-insert-sequence magit-file-line "CHERRY_PICK_HEAD" "REVERT_HEAD" "sequencer/head"] 21 (#$ . 35930)]) #@106 Insert section for the on-going patch applying sequence. If no such sequence is in progress, do nothing. (defalias 'magit-insert-am-sequence #[0 "\306 \205\224\307\310!\203\310\202\310\236A\206\311\312\307\310!\203&\313\310\"@\206'\310\314\315\316\317 \320 &\321\322\323\324\"\211\203A\211\325=\202s\n\205L\326\327!\n\"\211\203W\330\322\"\202q\331 \"\211\205o\332!\203l\211!\262\211\325=\262\262\262#\210\211\n\206\205 ?\205\205\f\3332\217\334\335!\210\336 \237\315\211\203\344\211A\262\242\262\337\340\341!!A@!\262\211\203\275\203\275\342\343\344#\210\202\225\203\312\345\343\344#\210\202\225\211\203\326\346\347\"\210\202\225\345\350\351#\210\346\315\347\"\210\202\225\266\352c\210\353\354!\210\355!\210\356\330\357\"\360\"\210\321\361\317 #\362\363\"\364\365\366\330\367\"\"!\364\365\370\330\367\"\"!\203 J\2063\371!\203+J\2063\371!\2053\211J\212\330\357\"b\210`W\203j\372`\311\"\206I\373`\311\"\204c\374`\311\n$\210\203c\374`\363$\210\211b\266\202;)\266\211\f=\203}\315@\375!)\202\216\321\330\376\"\377\330\211\376\"\377\"C\244#0\210+\211\262\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current magit-am-in-progress-p class-p rebase-sequence magit-section :type rassq :value nil :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-heading "Applying patches" magit-rebase-patches magit-commit-p split-string magit-file-line magit-sequence-insert-commit "pick" magit-sequence-pick magit-sequence-insert-am-patch magit-sequence-insert-sequence "ORIG_HEAD" "stop" magit-sequence-stop 10 run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children magit-section-cache-visibility] 12 (#$ . 39162)]) #@24 (fn TYPE PATCH FACE) (defalias 'magit-sequence-insert-am-patch #[771 "\306\307!\203\n\307\202\307\236A\206\310\311\306\307!\203!\312\307\"@\206\"\307\313\314\315 \316 &\317\320\321\322\"\211\203<\211\323=\202n\n\205G\324\325!\n\"\211\203R\326\320\"\202l\327 \"\211\205j\330!\203g\211!\262\211\323=\262\262\262#\210\211\n\206\200 ?\205\200\f\3312h\332\333\334\"r\211q\210\335\336\"\216\337\340\211\341$\210\342\343\340\334#\204\246eb\210`\344 {*\262\345\346#\347\345\350!\346\351#\347\352\261\266\353\354!\210\355!\210\356\326\357\"\334\"\210\317\360\315 #\361\362\"\363\364\365\326\366\"\"!\363\364\367\326\366\"\"!\203\371J\206\f\370!\203J\206\f\370!\205\f\211J\212\326\357\"b\210`W\203C\371`\310\"\206\"\372`\310\"\204<\373`\310\n$\210\203<\373`\362$\210\211b\266\202)\266\211\f=\203V\340?\374!)\202g\317\326\375\"\376\326\211\375\"\376\"C\244#0\210+\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current class-p file magit-section :type rassq :value :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents nil 4096 re-search-forward "^Subject: " line-end-position propertize font-lock-face 32 file-name-nondirectory magit-hash 10 run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children magit-section-cache-visibility] 15 (#$ . 41413)]) #@98 Insert section for the on-going rebase sequence. If no such sequence is in progress, do nothing. (defalias 'magit-insert-rebase-sequence #[0 "\306 \205\210\307\310\311!!\211\203\312\202\313\314\310\315P!!\314\310\316P!!\317\"\2060\317\320\"\2060\211\317\320\"\2068\321\322!\203B\322\202J\322\236A\206J\323\324\321\322!\203Y\325\322\"@\206Z\322\326\327\330\331 \332 &\333\334\335\336\"\211\203t\211\337=\202\246\n\205\340\341!\n\"\211\203\212\342\334\"\202\244\343 \"\211\205\242\344!\203\237\211!\262\211\337=\262\262\262#\210\211\n\206\270 ?\205\270\f\3452\201\346\347\350#!\210\203\324\351!\210\202\330\352!\210\353c\210\354\355!\210\356!\210\357\342\360\"\361\"\210\333\362\331 #\363\364\"\365\347\366\342\367\"\"!\365\347\370\342\367\"\"!\203J\206%\371!\203J\206%\371!\205%\211J\212\342\360\"b\210`W\203\\\372`\323\"\206;\373`\323\"\204U\374`\323\n$\210\203U\374`\364$\210\211b\266\202-)\266\211\f=\203o\327@\375!)\202\200\333\342\376\"\377\342\211\376\"\377\"C\244#0\210+\211\262\266\206\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current magit-rebase-in-progress-p file-directory-p magit-git-dir "rebase-merge" "rebase-merge/" "rebase-apply/" magit-file-line "head-name" "onto" magit-rev-name "refs/heads/*" class-p rebase-sequence magit-section :type rassq :value nil :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-heading format "Rebasing %s onto %s" magit-rebase-insert-merge-sequence magit-rebase-insert-apply-sequence 10 run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children magit-section-cache-visibility] 18 (#$ . 43413)]) #@194 Return `git-rebase-action' instances for remaining rebase actions. These are ordered in that the same way they'll be sorted in the status buffer (i.e. the reverse of how they will be applied). (defalias 'magit-rebase--todo #[0 "\301\302!\206\303\304\305\306\307\"r\211q\210\310\311\"\216\312\313\314!!\210m\2046\315 \316\317\"\203/\211B\262\210\304y\210\202*\210)\207" [comment-start magit-get "core.commentChar" "#" nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents magit-git-dir "rebase-merge/git-rebase-todo" git-rebase-current-line eieio-oref action-type] 7 (#$ . 45610)]) #@13 (fn ONTO) (defalias 'magit-rebase-insert-merge-sequence #[257 "\306 \211\203\306\211@\211\307\310\311\"\312=\203#\313\310\314\"\310\315\"\316#\266\202\277\310\311\"\317>\2034\211!\266\202\277\310\311\"\320=\203\275\310\321\"\204L\211!\266\202\277\322\323\310\321\"\"\205]\324\325\310\321\"\"\211\203\264\326\312!\203k\312\202s\312\236A\206s\327\330\326\312!\203\202\331\312\"@\206\203\312\332\333\334 \335 &\336\337\340\341\"\211\203\235\211\342=\202\317\n\205\250\343\344!\n\"\211\203\263\345\337\"\202\315\346 \"\211\205\313\347!\203\310\211!\262\211\342=\262\262\262#\210\211\n\206\341 ?\205\341\f\3502\255\351\352\353\354\316#\355\356!\357$\210\360\361!\210\362!\210\363\345\364\"\365\"\210\336\366\334 #\367\370\"\371\372\373\345\374\"\"!\371\372\375\345\374\"\"!\203,J\206?\376!\2037J\206?\376!\205?\211J\212\345\364\"b\210`W\203|\377`\327\"\206U\201A`\327\"\204u\201B`\327\n$\210\203u\201B`\370$\210\211b\266\202G)\266\211\f=\203\223\201C@\201D!)\202\254\336\345\201E\"\201F\345\211\201E\"\201F\"C\244#0\210+\266\202\277\201G\201H!\266\266A\266\202\202\210\201I\201J\201K\201L!!\201M\201K\201N!!\211\205\361\201O\201P!@!A@\262#\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current magit-rebase--todo #[257 "\300\301\302\"\303\304#\305\300\301\306\"\303\307#\310\261\207" [propertize slot-value action font-lock-face magit-sequence-onto " " target git-rebase-label "\n"] 7 "\n\n(fn OBJECT)"] slot-value action-type commit magit-sequence-insert-commit action target magit-sequence-pick (label exec) merge action-options string-match "-[cC] \\([^ ]+\\)" match-string 1 class-p magit-section :type rassq :value :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-heading propertize "merge" font-lock-face " " magit-format-rev-summary "\n" run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change magit-section-cache-visibility get-text-property put-text-property nil magit-section-show parent children error "failed to parse merge message hash" magit-sequence-insert-sequence magit-file-line magit-git-dir "rebase-merge/stopped-sha" magit-file-lines "rebase-merge/done" split-string last] 18 (#$ . 46292)]) #@13 (fn ONTO) (defalias 'magit-rebase-insert-apply-sequence #[257 "\300\301\302\303\304!!\"\305\303\306!!\307 A\237\211\2038\211@\310\305!!A@\211\235\2040\211\232\2040\311\312\313#\210\210A\266\202\202\266\314\305\303\306!!\"\207" [mapcar #[257 "\300!@\207" [split-string] 3 "\n\n(fn IT)"] magit-file-lines magit-git-dir "rebase-apply/rewritten" magit-file-line "rebase-apply/original-commit" magit-rebase-patches split-string magit-sequence-insert-commit "pick" magit-sequence-pick magit-sequence-insert-sequence] 10 (#$ . 49021)]) (defalias 'magit-rebase-patches #[0 "\300\301\302!\303\304#\207" [directory-files magit-git-dir "rebase-apply" t "^[0-9]\\{4\\}$"] 4]) #@33 (fn STOP ONTO &optional ORIG) (defalias 'magit-sequence-insert-sequence #[770 "\301\302!\303\203\301!\202\262\304\305\306\307P#\262\203g\301!\235\204g\310!\303\311\303\211\211\203c\211A\262\242\262\262\211\262\203c\310!\232\203V\303\262\203c\262\262T\262\2020\266\211\262\211\203r\262\210\202g\303\311\303\211\211\203\252\211A\262\242\262\262\211\262\203\252\312\"\203\235\303\262\203\252\262\262T\262\202x\266\211\262\203\274\313\314\315#\210\202b\316 \203\313\313\317\320#\210\202b\321\322!\203\313\303\323\324\303\302#\325\324\326\"\312 \"\204\355\312 \"\203\361\327\202\310!\232\204\310!\232\203\330\202\331)\266\202\320#\210\202b\303\311\303\211\211\203I\211A\262\242\262\262\211\262\203I\312\"\203<\303\262\203I\262\262T\262\202\266\211\262\203[\313\332\315#\210\202b\313\333\315#\210\303\262\266\211\211\203\272\211@\334\313 \232\203\237\232\203\215\310!\310!\232\203\215\335\202\216\336\211\232\203\232\337\202\233\340E\202\261\232\203\255\341\337E\202\261\341\342E\"\210A\266\202\202h\210\313\343\211\232\203\310\337\202\311\344#\207" [magit--refresh-cache magit-rev-parse "HEAD" nil magit-git-lines "log" "--format=%H" "..HEAD" magit-patch-id 0 magit-rev-equal magit-sequence-insert-commit "void" magit-sequence-drop magit-anything-unmerged-p "join" magit-sequence-part magit-anything-modified-p t magit-commit-tree "oO" magit-commit-worktree "--reset" "goal" "same" "work" "poof" "gone" apply "stop" "like" magit-sequence-head magit-sequence-stop "done" magit-sequence-done "onto" magit-sequence-onto] 16 (#$ . 49706)]) #@23 (fn TYPE HASH FACE) (defalias 'magit-sequence-insert-commit #[771 "\306\307!\203\n\307\202\307\236A\206\310\311\306\307!\203!\312\307\"@\206\"\307\313\314\315 \316 &\317\320\321\322\"\211\203<\211\323=\202n\n\205G\324\325!\n\"\211\203R\326\320\"\202l\327 \"\211\205j\330!\203g\211!\262\211\323=\262\262\262#\210\211\n\206\200 ?\205\200\f\3312;\332\333\334#\335\336!\337$\210\340\341!\210\342!\210\343\326\344\"\345\"\210\317\346\315 #\347\350\"\351\352\353\326\354\"\"!\351\352\355\326\354\"\"!\203\314J\206\337\356!\203\327J\206\337\356!\205\337\211J\212\326\344\"b\210`W\203\357`\310\"\206\365\360`\310\"\204\361`\310\n$\210\203\361`\350$\210\211b\266\202\347)\266\211\f=\203)\3626\363!)\202:\317\326\364\"\365\326\211\364\"\365\"C\244#0\210+\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current class-p commit magit-section :type rassq :value :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-heading propertize font-lock-face " " magit-format-rev-summary "\n" run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property nil magit-section-show parent children magit-section-cache-visibility] 15 (#$ . 51419)]) (provide 'magit-sequence)