;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\301\302!\210\303>\203\210\202\303B\304>\203\210\202\"\304B\305>\203-\210\2021\305B\306>\203<\210\202@\306B\307>\203K\210\202O\307B\310>\203Z\210\202^\310B\301\207" [eieio--known-slot-names require magit abbrev action action-options action-type target trailer] 2) (custom-declare-face 'magit-sequence-pick '((t :inherit default)) "Face used in sequence sections." :group 'magit-faces) (custom-declare-face 'magit-sequence-stop '((((class color) (background light)) :foreground "DarkOliveGreen4") (((class color) (background dark)) :foreground "DarkSeaGreen2")) "Face used in sequence sections." :group 'magit-faces) (custom-declare-face 'magit-sequence-part '((((class color) (background light)) :foreground "Goldenrod4") (((class color) (background dark)) :foreground "LightGoldenrod2")) "Face used in sequence sections." :group 'magit-faces) (custom-declare-face 'magit-sequence-head '((((class color) (background light)) :foreground "SkyBlue4") (((class color) (background dark)) :foreground "LightSkyBlue1")) "Face used in sequence sections." :group 'magit-faces) (custom-declare-face 'magit-sequence-drop '((((class color) (background light)) :foreground "IndianRed") (((class color) (background dark)) :foreground "IndianRed")) "Face used in sequence sections." :group 'magit-faces) (custom-declare-face 'magit-sequence-done '((t :inherit magit-hash)) "Face used in sequence sections." :group 'magit-faces) (custom-declare-face 'magit-sequence-onto '((t :inherit magit-sequence-done)) "Face used in sequence sections." :group 'magit-faces) (custom-declare-face 'magit-sequence-exec '((t :inherit magit-hash)) "Face used in sequence sections." :group 'magit-faces)#@52 Resume the current cherry-pick or revert sequence. (defalias 'magit-sequencer-continue #[0 "\300 \204 \301\302!\207\303 \203\301\304!\207\305\306 \203\307\202\310\311\"\207" [magit-sequencer-in-progress-p user-error "No cherry-pick or revert in progress" magit-anything-unmerged-p "Cannot continue due to unresolved conflicts" magit-run-git-sequencer magit-revert-in-progress-p "revert" "cherry-pick" "--continue"] 3 (#$ . 1804) nil])#@69 Skip the stopped at commit during a cherry-pick or revert sequence. (defalias 'magit-sequencer-skip #[0 "\300 \204 \301\302!\210\303\304\305\"\210\306 \207" [magit-sequencer-in-progress-p user-error "No cherry-pick or revert in progress" magit-call-git "reset" "--hard" magit-sequencer-continue] 3 (#$ . 2251) 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 \204 \301\302!\207\303 \203\304\305\306\"\210\307\310\311\"\207\304\312\313\"\205#\307\314\311\"\207" [magit-sequencer-in-progress-p user-error "No cherry-pick or revert in progress" magit-revert-in-progress-p magit-confirm abort-revert "Really abort revert" magit-run-git-sequencer "revert" "--abort" abort-cherry-pick "Really abort cherry-pick" "cherry-pick"] 3 (#$ . 2574) 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" (#$ . 3250)) (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\317\301\320\321\322\323\324\325F\326\310\327E\326\330\331\310\332\257\333\330\334\322\335\336\337\310\300\340\302\303#\210\300\340\341\342#\210\343\340\344\"\210\340\257 \333\330\345\322\346\347\345\336\345\310\300\350\302\303#\210\300\350\341\342#\210\343\350\344\"\210\350\257 \333\330\351\322\352\347\351\336\353\310\300\354\302\303#\210\300\354\341\342#\210\343\354\344\"\210\354\257 \326\310\355E\326\310\356E\257#\320\357\324\325D\320\321\322\360D\326\330\361\322\362\310\363\257\326\330\364\322\365\310\366\257\326\330\367\322\370\310\371\257\326\330\372\322\373\310\374\257F#\320\321\322\375D\326\330\376\322\377\310\201@\257\326\330\201A\322\201B\310\201C\257\326\330\201D\322\201E\310\201F\257E#D#\320\321\322\201G\201H\325F\326\330\361\322\201I\310\201J\257\326\330\201D\322\201K\310\201L\257\326\330\364\322\201M\310\201N\257E#E\"\210\343\327\344\"\210\300\327\302\303#\210\300\327\341\342#\210\300\327\304\201O#\210\300\327\201P\201Q\310\327\322\201R\347\201S\336\201T\201U\201V&\n#\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--set-layout vector transient-column :description "Arguments" :if-not magit-sequencer-in-progress-p transient-suffix magit-cherry-pick:--mainline :key "=s" magit-merge:--strategy transient-switch "-F" "Attempt fast-forward" :argument "--ff" transient:magit-cherry-pick:--ff completion-predicate transient--suffix-only defalias transient--default-infix-command "-x" "Reference cherry in commit message" :shortarg transient:magit-cherry-pick:-x "-e" "Edit commit messages" "--edit" transient:magit-cherry-pick:--edit magit:--gpg-sign magit:--signoff transient-columns "Apply here" "A" "Pick" magit-cherry-copy "a" "Apply" magit-cherry-apply "h" "Harvest" magit-cherry-harvest "m" "Squash" magit-merge-squash "Apply elsewhere" "d" "Donate" magit-cherry-donate "n" "Spinout" magit-cherry-spinout "s" "Spinoff" magit-cherry-spinoff "Actions" :if "Continue" magit-sequencer-continue "Skip" magit-sequencer-skip "Abort" magit-sequencer-abort nil transient--suffix transient-option "Replay merge relative to parent" "-m" "--mainline=" :reader transient-read-number-N+] 23)#@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 (#$ . 5858)])#@46 (fn VERB AWAY FN &optional ALLOW-DETACHED) (defalias 'magit--cherry-move-read-args #[1027 "\300\301!\237\206\203\302\202\303\304\305\306!\"!C\307 \206%\205%\310\311!\211\204/\312\313\"\210\314@\"D\211\315\267\266\202W\312\316 \317#\266\202W\312\316 \320#\266\202W\266\321!\322\323!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 magit-rev-parse "HEAD" user-error "Cannot %s cherries while HEAD is detached" magit-rev-ancestor-p #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((nil t) 63 (t nil) 74)) "Cannot %s cherries that %s reachable from HEAD" "are" "are not" append transient-args magit-cherry-pick] 12 (#$ . 6077)]) (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 (#$ . 6999)])#@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 (#$ . 7285) (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 (#$ . 7648) (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 (#$ . 8065) (magit--cherry-move-read-args "harvest" nil #[257 "\300@!\211G\211\301\267\202\302\202,@\202,\303G\211\304U\203\"\305\202&\306\307\"\262\302\310$\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 1 "Remove 1 cherry from branch" format "Remove %s cherries from branch" t] 8 "\n\n(fn COMMITS)"])])#@294 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. `HEAD' is allowed to be detached initially. (fn COMMITS BRANCH &optional ARGS) (defalias 'magit-cherry-donate #[770 "\300\301 \206\n\302\303!$\207" [magit--cherry-move magit-get-current-branch magit-rev-parse "HEAD"] 8 (#$ . 8873) (byte-code "\300\301\302\303\304$\207" [magit--cherry-move-read-args "donate" t #[257 "\300G\211\301U\203 \302\202\303\304\"\262!C\207" [magit-read-other-branch 1 "Move 1 cherry to branch" format "Move %s cherries to branch"] 6 "\n\n(fn COMMITS)"] allow-detached] 5)])#@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 (#$ . 9603) (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 (#$ . 10026) (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  &\"\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\301\304\"\203B\317\320\321\322\323\300\"\324\304!\300\301&\210\302\204?\325\326\304\"\207\327 \207\330\326\304\"\210\331&!&\332\333\322\334'\335\336\305\337##\"\210\340\341\342\300#)\210\302\205n\343(\344\345\303\"\"\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 copy-sequence setenv "GIT_SEQUENCE_EDITOR" "%s -i -ne '/^pick (%s)/ or print'" 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] 11 "\n\n(fn PROCESS EVENT)"]] 19 (#$ . 10452)])#@38 (fn COMMITS ARGS &optional REVERT) (defalias 'magit--cherry-pick #[770 "\211\203\300\202 \301;\203 \302\303\"\203\304\305\"\202C\262\306\203)\300\202*\301\307\310\"\211\204;\311\312\"\202a\313\314\315$\203L\316\317\"\202a\320\321\"\203X\202a\322\323\324\325!\"B\262#\207" ["revert" "cherry-pick" string-search ".." split-string "\\.\\." magit-run-git-sequencer seq-filter magit-merge-commit-p seq-remove #[257 "\300\301\"\207" [string-prefix-p "--mainline="] 4 "\n\n(fn %)"] cl-set-difference :test equal user-error "Cannot %s merge and non-merge commits at once" seq-find #[257 "\300\301\"\207" [string-prefix-p "--mainline="] 4 "\n\n(fn %)"] format "--mainline=%s" read-number "Replay merges relative to parent: "] 12 (#$ . 12140)]) (defalias 'magit-cherry-pick-in-progress-p #[0 "\300 \301\302\303\"!\206\304\302\305\"!\211\205\306\307\"\262\207" [magit-gitdir file-exists-p expand-file-name "CHERRY_PICK_HEAD" magit-file-line "sequencer/todo" string-prefix-p "pick"] 5]) (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\315\301\316\317\320\321\322\323F\324\310\325E\326\327\330\320\331\332\330\333\334\310\300\335\302\303#\210\300\335\336\337#\210\340\335\341\"\210\335\257 \326\327\342\320\343\333\344\310\300\345\302\303#\210\300\345\336\337#\210\340\345\341\"\210\345\257 \324\327\346\310\347\257\324\310\350E\324\310\351E\257#\316\317\320\352\322\323F\324\327\353\320\354\310\355\257\324\327\356\320\357\310\360\257D#\316\317\320\352\361\323F\324\327\353\320\362\310\363\257\324\327\364\320\365\310\366\257\324\327\367\320\370\310\371\257E#E\"\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--set-layout vector transient-column :description "Arguments" :if-not magit-sequencer-in-progress-p transient-suffix magit-cherry-pick:--mainline transient-switch :key "-e" "Edit commit message" :shortarg :argument "--edit" transient:magit-revert:--edit completion-predicate transient--suffix-only defalias transient--default-infix-command "-E" "Don't edit commit message" "--no-edit" transient:magit-revert:--no-edit "=s" magit-merge:--strategy magit:--gpg-sign magit:--signoff "Actions" "V" "Revert commit(s)" magit-revert-and-commit "v" "Revert changes" magit-revert-no-commit :if "Continue" magit-sequencer-continue "s" "Skip" magit-sequencer-skip "a" "Abort" magit-sequencer-abort] 20)#@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 (#$ . 14809)])#@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 (#$ . 15009) (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 (#$ . 15364) (magit-revert-read-args "Revert changes")]) (defalias 'magit-revert-in-progress-p #[0 "\300 \301\302\303\"!\206\304\302\305\"!\211\205\306\307\"\262\207" [magit-gitdir file-exists-p expand-file-name "REVERT_HEAD" magit-file-line "sequencer/todo" string-prefix-p "revert"] 5]) (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\315\301\316\317\320\321\322\323F\324\325\326\320\327\330\326\331\332\310\300\333\302\303#\210\300\333\334\335#\210\336\333\337\"\210\333\257 \324\325\340\320\341\331\342\310\300\343\302\303#\210\300\343\334\335#\210\336\343\337\"\210\343\257 \344\310\345E\324\325\346\320\347\330\346\331\350\310\300\351\302\303#\210\300\351\334\335#\210\336\351\337\"\210\351\257 \324\325\352\320\353\330\352\331\354\310\300\355\302\303#\210\300\355\334\335#\210\336\355\337\"\210\355\257 \324\325\356\320\357\331\360\310\300\361\302\303#\210\300\361\334\335#\210\336\361\337\"\210\361\257 \324\325\362\320\363\331\364\310\300\365\302\303#\210\300\365\334\335#\210\336\365\337\"\210\365\257 \324\325\366\320\367\331\370\310\300\371\302\303#\210\300\371\334\335#\210\336\371\337\"\210\371\257 \344\310\372E\344\310\373E\257\n#\316\317\320\374\322\323F\344\325\375\320\376\310\377\257\344\325\201@\320\201A\310\201B\257\344\325\201C\320\201D\310\201E\257E#\316\317\320\201F\201G\323F\344\325\201@\320\201H\310\201I\257\344\325\201J\320\201K\310\201L\257\344\325\201C\320\201M\310\201N\257E#E\"\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--set-layout vector transient-column :description "Arguments" :if-not magit-am-in-progress-p transient-switch :key "-3" "Fall back on 3way merge" :shortarg :argument "--3way" transient:magit-am:--3way completion-predicate transient--suffix-only defalias transient--default-infix-command "-R" "Reject only failed hunks" "--reject" transient:magit-am:--reject transient-suffix magit-apply:-p "-c" "Remove text before scissors line" "--scissors" transient:magit-am:--scissors "-k" "Inhibit removal of email cruft" "--keep" transient:magit-am:--keep "-b" "Limit removal of email cruft" "--keep-non-patch" transient:magit-am:--keep-non-patch "-d" "Use author date as committer date" "--committer-date-is-author-date" transient:magit-am:--committer-date-is-author-date "-t" "Use current time as author date" "--ignore-date" transient:magit-am:--ignore-date magit:--gpg-sign magit:--signoff "Apply" "m" "maildir" magit-am-apply-maildir "w" "patches" magit-am-apply-patches "a" "plain patch" magit-patch-apply "Actions" :if "Continue" magit-am-continue "s" "Skip" magit-am-skip "Abort" magit-am-abort] 24) (defalias 'magit-am-arguments #[0 "\300\301!\207" [transient-args magit-am] 2]) (byte-code "\300\301\302\"\210\303\301\304\305#\210\303\301\306\307#\210\303\301\310\311#\210\303\301\312\313\314\301\315\316\317\320\321\305\322\323&\n#\207" [defalias magit-apply:-p transient--default-infix-command put interactive-only t completion-predicate transient--suffix-only function-documentation nil transient--suffix transient-option :command :description "Remove leading slashes from paths" :argument "-p" :allow-empty :reader transient-read-number-N+] 14)#@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 %)"]] 9 (#$ . 19108) (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 (#$ . 19608) (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 \204 \301\302!\207\303\304!\203\301\305!\207\306\307\310\"\207" [magit-am-in-progress-p user-error "Not applying any patches" magit-anything-unstaged-p t "Cannot continue due to unstaged changes" magit-run-git-sequencer "am" "--continue"] 3 (#$ . 19937) nil])#@61 Skip the stopped at patch during a patch applying sequence. (defalias 'magit-am-skip #[0 "\300 \204 \301\302!\210\303\304\305\"\207" [magit-am-in-progress-p user-error "Not applying any patches" magit-run-git-sequencer "am" "--skip"] 3 (#$ . 20288) nil])#@103 Abort the current patch applying sequence. This discards all changes made since the sequence started. (defalias 'magit-am-abort #[0 "\300 \204 \301\302!\210\303\304\305\"\207" [magit-am-in-progress-p user-error "Not applying any patches" magit-run-git "am" "--abort"] 3 (#$ . 20550) nil]) (defalias 'magit-am-in-progress-p #[0 "\300\301\302\303 \"!\207" [file-exists-p expand-file-name "rebase-apply/applying" magit-gitdir] 4]) (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\313\314&#\210\315\301\316\317\320\321\322\323F\324\325\326\320\327\330\331\310\300\332\302\303#\210\300\332\333\334#\210\335\332\336\"\210\332\257 \324\325\337\320\340\341\337\330\342\310\300\343\302\303#\210\300\343\333\334#\210\335\343\336\"\210\343\344\345\257 \346\325\347\320\350\341\347\330\351\310\300\352\302\303#\210\300\352\333\334#\210\335\352\336\"\210\352\353\354\257 \324\325\355\320\356\330\357\310\300\360\302\303#\210\300\360\333\334#\210\335\360\336\"\210\360\344\361\257 \362\363\364\310\365\257\362\363\364\310\366\257\362\363\364\325\367\310\370\330\371\257 \324\363\364\325\372\320\373\341\372\330\374\310\300\375\302\303#\210\300\375\333\334#\210\335\375\336\"\210\375\257 \324\325\376\320\377\330\201@\310\300\201A\302\303#\210\300\201A\333\334#\210\335\201A\336\"\210\201A\257 \324\325\201B\320\201C\330\201D\310\300\201E\302\303#\210\300\201E\333\334#\210\335\201E\336\"\210\201E\257 \324\325\201F\320\201G\330\201H\310\300\201I\302\303#\210\300\201I\333\334#\210\335\201I\336\"\210\201I\257 \324\325\201J\320\201K\330\201L\310\300\201M\302\303#\210\300\201M\333\334#\210\335\201M\336\"\210\201M\257 \324\325\201N\320\201O\341\201N\330\201P\310\300\201Q\302\303#\210\300\201Q\333\334#\210\335\201Q\336\"\210\201Q\257 \324\325\201R\320\201S\330\201T\310\300\201U\302\303#\210\300\201U\333\334#\210\335\201U\336\"\210\201U\257 \362\363\364\310\201V\257\362\310\201WE\362\310\201XE\257#\316\317\322\323\320\201YF\362\325\201Z\310\201[\257\362\325\201\\\310\201]\257\362\325\201^\320\201_\310\201`\257E#\316\201a\320\201b\322\323F\316\317\201c\362\325\201d\320\201e\310\201f\257\362\325\201g\320\201h\310\201i\257D#\316\317\201c\362\325\201j\320\201k\310\201l\257\362\325\201m\320\201n\310\201o\257\362\325\201p\320\201q\310\201r\257E#\316\317\201c\362\325\201s\320\201t\310\201u\257\362\363\201v\325\201w\320\201x\310\201y\257 D#E#\316\317\320\201z\344\323F\362\325\201{\320\201|\310\201}\257\362\325\201g\320\201~\310\201\257\362\325\201^\320\201\200\310\201\201\257\362\325\201\202\320\201\203\310\201\204\257F#F\"\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" :value ("--autostash") transient--set-layout vector transient-column :description "Arguments" :if-not magit-rebase-in-progress-p transient-switch :key "-k" "Keep empty commits" :argument "--keep-empty" transient:magit-rebase:--keep-empty completion-predicate transient--suffix-only defalias transient--default-infix-command "-p" "Preserve merges" :shortarg "--preserve-merges" transient:magit-rebase:--preserve-merges :if #[0 "\300\301!\207" [magit-git-version< "2.33.0"] 2] transient-option "-r" "Rebase merges" "--rebase-merges=" transient:magit-rebase:--rebase-merges= :reader magit-rebase-merges-select-mode "-u" "Update branches" "--update-refs" transient:magit-rebase:--update-refs #[0 "\300\301!\207" [magit-git-version>= "2.38.0"] 2] transient-suffix :level 7 magit-merge:--strategy magit-merge:--strategy-option "=X" magit-diff:--diff-algorithm "-Xdiff-algorithm=" "-f" "Force rebase" "--force-rebase" transient:magit-rebase:--force-rebase "-d" "Use author date as committer date" "--committer-date-is-author-date" transient:magit-rebase:--committer-date-is-author-date "-t" "Use current time as author date" "--ignore-date" transient:magit-rebase:--ignore-date "-a" "Autosquash" "--autosquash" transient:magit-rebase:--autosquash "-A" "Autostash" "--autostash" transient:magit-rebase:--autostash "-i" "Interactive" "--interactive" transient:magit-rebase:--interactive "-h" "Disable hooks" "--no-verify" transient:magit-rebase:--no-verify magit-rebase:--exec magit:--gpg-sign magit:--signoff #[0 "\300\301\302\303\304#\301\305 \206 \306\303\307#\"\207" [format propertize "Rebase %s onto" face transient-heading magit-get-current-branch "HEAD" magit-branch-local] 6] "p" magit-rebase-onto-pushremote "u" magit-rebase-onto-upstream "e" "elsewhere" magit-rebase-branch transient-columns "Rebase" nil "i" "interactively" magit-rebase-interactive "s" "a subset" magit-rebase-subset "m" "to modify a commit" magit-rebase-edit-commit "w" "to reword a commit" magit-rebase-reword-commit "k" "to remove a commit" magit-rebase-remove-commit "f" "to autosquash" magit-rebase-autosquash 6 "t" "to change dates" magit-reshelve-since "Actions" "r" "Continue" magit-rebase-continue "Skip" magit-rebase-skip "Edit" magit-rebase-edit "a" "Abort" magit-rebase-abort] 31) (byte-code "\300\301\302\"\210\303\301\304\305#\210\303\301\306\307#\210\303\301\310\311#\210\303\301\312\313\314\301\315\316\317\320\321\322\323\324&\n#\207" [defalias magit-rebase:--exec transient--default-infix-command put interactive-only t completion-predicate transient--suffix-only 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\302D\303C\244\304!\305\306\307#\266\202\310\311!@\312R\262\313\"\211\314\267\202+\315\202,\316\202,\317\262\320\321!\210\207" [read-char-choice "[n]o-rebase-cousins" "[r]ebase-cousins" "[C-g] to abort" butlast ", " mapconcat identity ", or " last " " (110 114) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (110 35 114 39)) "no-rebase-cousins" "rebase-cousins" nil message ""] 9 (#$ . 26226)]) (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 (#$ . 26840)])#@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 "/"] 10 (#$ . 26968) (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 (#$ . 27730) (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 (#$ . 29172) (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 (#$ . 29625) (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)])#@87 (fn COMMIT ARGS MESSAGE &optional EDITOR DELAY-EDIT-CONFIRM NOASSERT CONFIRM EXACT) (defalias 'magit-rebase-interactive-1 #[2051 "\2030\302\303\"\204\304\305 \"\210\2020\306!\204&\307B\262\2020\211\2040\310P\262\203E\204E\311\312\313 \"#\262\203z\204z\203h\314\315!\203c !\202dPB\316\317\320 \307 \235?\205w $)\207\321\322\323\324\301\325 BDC\326\327\325B    \257EE\"\207" [process-environment magit-git-global-arguments magit-rev-ancestor-p "HEAD" user-error "%s isn't an ancestor of HEAD" magit-commit-parents "--root" "^" magit-rebase-interactive-assert seq-some #[257 "\300\301\"\207" [string-prefix-p "--rebase-merges"] 4 "\n\n(fn %)"] "GIT_SEQUENCE_EDITOR=" functionp magit-run-git-sequencer "rebase" "-i" magit-log-select lambda (commit) let list magit-rebase-interactive-1 commit] 20 (#$ . 30371)]) (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\203/\203\306\307\310\"\"\204/\311 \206$\312\313\314\315%\210\305 B\266\316\317\320\321P#\203z\211\204z\322\323\324\325E\315\244\326\327!\330\331\332#\266\202\333\334!@\335\260\262\336\"\211\337\267\202r\202s\315\202s\340\341!\202s\315\262\342\343!\210\207\207" [magit--rebase-public-edit-confirmed magit--rebase-published-symbol magit-rebase--target-commit magit-list-publishing-branches delete magit-toplevel all make-closure #[257 "\301\300\"\207" [V0 magit-rev-equal] 4 "\n\n(fn %)"] 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 %d public branches.\nDo you really want to modify them" nil magit-git-lines "rev-list" "--merges" "..HEAD" read-char-choice "[c]ontinue" "[s]elect other" "[a]bort" "Proceed despite merge in rebase range? " butlast ", " mapconcat identity ", or " last " " (99 115 97) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (99 100 115 104 97 108)) user-error "Quit" message ""] 12 (#$ . 31447)])#@14 (fn SINCE) (defalias 'magit-rebase--target-commit #[257 "\300\301\"\203\f\211\302\303O\207\207" [string-suffix-p "^" 0 -1] 4 (#$ . 32709)]) (defvar magit-rebase-interactive-include-selected t)#@57 Start an interactive rebase sequence. (fn COMMIT ARGS) (defalias 'magit-rebase-interactive #[514 "\301\302\303\304\303\211?&\207" [magit-rebase-interactive-include-selected magit-rebase-interactive-1 "Type %p on a commit to rebase it and all commits above it," nil t] 11 (#$ . 32911) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-rebase-arguments] 2)])#@279 Combine squash and fixup commits with their intended targets. By default only squash into commits that are not reachable from the upstream branch. If no upstream is configured or with a prefix argument, prompt for the first commit to potentially squash into. (fn SELECT ARGS) (defalias 'magit-rebase-autosquash #[514 "\300\301?\205\302 \211\262\205\303\304\"\262\305\306D\244\307\310\301\311\301\311&\207" [magit-rebase-interactive-1 nil magit-get-upstream-branch magit-merge-base "HEAD" "--autosquash" "--keep-empty" "Type %p on a commit to squash into it and then rebase as necessary," "true" t] 11 (#$ . 33287) (byte-code "\301 D\207" [current-prefix-arg magit-rebase-arguments] 2)])#@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 (#$ . 33992) (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 (#$ . 34342) (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 (#$ . 34703) (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 (#$ . 35144)])#@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 \204 \304\305!\207\306\307!\203\304\310!\207\311 \312 \2033\313\314\315\"!\2033\316 \235\2043\317\320\314\321\"!!\210\210\211\203O\322 !\323\324\325\"\210\326\327 \330\"\210\331\n\332\"\210\n)\207\333\327 \330\"\207" [magit--rebase-public-edit-confirmed process-environment magit-this-process magit-rebase-in-progress-p user-error "No rebase in progress" magit-anything-unstaged-p t "Cannot continue rebase with unstaged changes" magit-gitdir magit-anything-staged-p file-exists-p expand-file-name "rebase-merge" magit-toplevel magit-commit-amend-assert magit-file-line "rebase-merge/orig-head" copy-sequence setenv "GIT_EDITOR" "true" magit-run-git-async magit--rebase-resume-command "--continue" set-process-sentinel magit-sequencer-process-sentinel magit-run-git-sequencer] 7 (#$ . 35622) "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 (#$ . 36669) 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 (#$ . 36966) 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 (#$ . 37233) nil])#@38 Return t if a rebase is in progress. (defalias 'magit-rebase-in-progress-p #[0 "\300 \301\302\303\"!\206\301\302\304\"!\207" [magit-gitdir file-exists-p expand-file-name "rebase-merge" "rebase-apply/onto"] 5 (#$ . 37588)]) (defalias 'magit--rebase-resume-command #[0 "\300\301\302\303 \"!\203\f\304\207\305\207" [file-exists-p expand-file-name "rebase-recursive" magit-gitdir "rbr" "rebase"] 4])#@13 (fn FILE) (defalias 'magit-rebase--get-state-lines #[257 "\300 \205\301 \302\303\304\303\305\"!\203\306\202\307P\"!\262\207" [magit-rebase-in-progress-p magit-gitdir magit-file-line expand-file-name file-directory-p "rebase-merge" "rebase-merge/" "rebase-apply/"] 8 (#$ . 37994)])#@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 "\304 \211\204 \305 \205\272\306 \307\310\311\211#\211 \206 \n?\205 \211\3122\263\313\2030\314\2021\315!\210\316\317\320\"!A\211\203\223\211\237\211\203\222\211@\321\322\"\203\213\323\324\"\323\325\"\323\326\"\307\327\311#\211 \206l\n?\205l \211\3122\210\330\331\332#\333\330\331\334#\333\335\261\210\336!0+\266A\266\202\202@\210\210\337\340\317\203\237\341\202\240\342\"!\340\317\343\"!\"\210\335c\210\336!0+\210\211\262\262\207" [magit-insert-section--current magit-insert-section--oldroot magit-insert-section--parent magit-root-section magit-cherry-pick-in-progress-p magit-revert-in-progress-p magit-gitdir magit-insert-section--create sequence nil cancel-section magit-insert-heading "Cherry Picking" "Reverting" magit-file-lines expand-file-name "sequencer/todo" string-match "^\\(pick\\|revert\\) \\([^ ]+\\) \\(.*\\)$" match-string-no-properties 1 2 3 commit propertize font-lock-face magit-sequence-pick " " magit-hash "\n" magit-insert-section--finish magit-sequence-insert-sequence magit-file-line "CHERRY_PICK_HEAD" "REVERT_HEAD" "sequencer/head"] 16 (#$ . 38293)])#@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 "\304 \205\252\305\306\307\211#\211 \206\n?\205 \211\3102\245\311\312!\210\313 \237\314\315\316 \"\317\320\314\321\"!!\317\320\314\322\"!!\307\211\203\227Y\203\227\211A\262\242\262\323\324\320!!A@\325\"\262\211\203nU\203n\326\327\330#\210\202\220U\203}\331\327\330#\210\202\220\211\203\212\326\332\333#\210\202\220\331\332\333#\210S\262\202=\266\334\307\335\"\210\336c\210\337!0+\210\211\262\207" [magit-insert-section--current magit-insert-section--oldroot magit-insert-section--parent magit-root-section magit-am-in-progress-p magit-insert-section--create rebase-sequence nil cancel-section magit-insert-heading "Applying patches" magit-rebase-patches expand-file-name "rebase-apply" magit-gitdir string-to-number magit-file-line "last" "next" magit-commit-oid split-string t magit-sequence-insert-commit "stop" magit-sequence-stop magit-sequence-insert-am-patch "pick" magit-sequence-pick magit-sequence-insert-sequence "ORIG_HEAD" 10 magit-insert-section--finish] 11 (#$ . 39585)])#@24 (fn TYPE PATCH FACE) (defalias 'magit-sequence-insert-am-patch #[771 "\304\305\306#\211 \206\n?\205 \211\3072Y\310\311\312\"r\211q\210\313\314\"\216\315\306\211\316$\210\317\320\306\312#\2049eb\210`\321 {*\262\322\323#\324\322\325!\323\326#\324\327\261\266\330!0+\210\207" [magit-insert-section--current magit-insert-section--oldroot magit-insert-section--parent magit-root-section magit-insert-section--create file nil 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 4096 re-search-forward "^Subject: " line-end-position propertize font-lock-face 32 file-name-nondirectory magit-hash 10 magit-insert-section--finish] 11 (#$ . 40765)])#@98 Insert section for the on-going rebase sequence. If no such sequence is in progress, do nothing. (defalias 'magit-insert-rebase-sequence #[0 "\304 \205\305 \306\307\310\"!\211\203\311\202\312\313\307\314P\"!\313\307\315P\"!\316\"\2066\316\317\"\2066\211\316\317\"\206>\320\321\322\211#\211 \206Q\n?\205Q \211\3232x\324\325\326#!\210\203m\327!\210\202q\330!\210\331c\210\332!0+\210\211\262\266\207\207" [magit-insert-section--current magit-insert-section--oldroot magit-insert-section--parent magit-root-section magit-rebase-in-progress-p magit-gitdir file-directory-p expand-file-name "rebase-merge" "rebase-merge/" "rebase-apply/" magit-file-line "head-name" "onto" magit-rev-name "refs/heads/*" magit-insert-section--create rebase-sequence nil cancel-section magit-insert-heading format "Rebasing %s onto %s" magit-rebase-insert-merge-sequence magit-rebase-insert-apply-sequence 10 magit-insert-section--finish] 13 (#$ . 41531)])#@187 Return `git-rebase-action' instances for remaining rebase actions. These are ordered 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\211\305\306\307\"r\211q\210\310\311\"\216\312\313\314\315 \"!\210m\204E\316\307!\211\203>\211B\262\317\320\"\321>\203>\211B\262\210\304y\210\202 *\210\205U\322\323\324\325\326\327\"$GG\232\204a\330\331!\210\3322\222\304\211\211A\262\242\211\262\203\211\211A\262\242\211\262\203\211\333\334#\266\202e\335\332\304\"\266\202e)\266\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 expand-file-name "rebase-merge/git-rebase-todo" magit-gitdir git-rebase-current-line eieio-oref action-type (commit merge) magit-git-lines "log" "--no-walk=unsorted" "--format=%h" mapcar #[257 "\300\301\"\302=\203\300\303\"\304\305\"\205\306\307\"\207\300\310\"\207" [eieio-oref action-type merge action-options string-match "-[cC] \\([^ ]+\\)" match-string-no-properties 1 target] 5 "\n\n(fn OBJ)"] cl--assertion-failed (equal (length commits) (length abbrevs)) #1=#::while-let2614 eieio-oset abbrev throw] 10 (#$ . 42508)])#@13 (fn ONTO) (defalias 'magit-rebase-insert-merge-sequence #[257 "\300 \211\203b\211@\301\302\303\"\304=\203\211!\266\202[\302\303\"\305=\203H\302\306\"\2032\211!\266\202[\302\307\"\203Z\310\302\307\"\302\311\"\"\266\202[\302\307\"\203Z\310\302\307\"\302\311\"\"\210\210A\266\202\202\210\312 \313\314\315\316\"!\317\315\320\"!\211\205\200\321\322!@!A@\262#\207" [magit-rebase--todo #[257 "\300\301\302\"\301\303\"\304\301\305\"\301\306\"%\207" [magit-sequence-insert-commit slot-value action target magit-sequence-pick abbrev trailer] 9 "\n\n(fn OBJECT)"] slot-value action-type commit merge abbrev action magit-sequence-insert-step target magit-gitdir magit-sequence-insert-sequence magit-file-line expand-file-name "rebase-merge/stopped-sha" magit-file-lines "rebase-merge/done" split-string last] 9 (#$ . 43846)])#@13 (fn ONTO) (defalias 'magit-rebase-insert-apply-sequence #[257 "\300 \301\302\303\304\305\"!\"\306\304\307\"!\310 A\237\211\203<\211@\311\306!!A@\211\235\2044\211\232\2044\312\313\314#\210\210A\266\202\202\210\315\306\304\307\"!\"\207" [magit-gitdir mapcar #[257 "\300!@\207" [split-string] 3 "\n\n(fn %)"] magit-file-lines expand-file-name "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] 11 (#$ . 44706)]) (defalias 'magit-rebase-patches #[0 "\300\301\302\303 \"\304\305#\207" [directory-files expand-file-name "rebase-apply" magit-gitdir t "\\`[0-9]\\{4\\}\\'"] 4])#@33 (fn STOP ONTO &optional ORIG) (defalias 'magit-sequence-insert-sequence #[770 "C\301\302!\303\203\301!\202\262\304\305\306\307\310 \311P#\"\262\242\203\334\312\301\242!\"\204\334\313\242!\303\312\314\315\"\"@\211\262\203J\240\266\202\334\312\314\316\"\"\203`\317\320\242\321#\210\202\327\322 \203p\317\323\242\324#\210\202\327\325\326!\203\271\317\303\327\330\303\302#\331\330\332\"\333 \242\"\204\224\333 \242\"\203\230\334\202\255\313!\232\204\250\313!\232\203\254\335\202\255\336)\266\202\242\324#\210\202\327\312\314\337\"\"\203\317\317\340\242\321#\210\202\327\317\341\242\321#\210\303\240\266\211\211\203S\211@\211\242\243\211\242\243\211\242\243\342\317 \242\232\203*\f\232\203\313!\313!\232\203\343\202\344\211\232\203 \345\202!\346\257\202I\f\232\203?\347\345\257\202I\347\350\257\"\266A\266\202\202\335\210\317\351\211\232\203b\345\202c\352#\207" [magit--refresh-cache magit-rev-parse "HEAD" nil mapcar #[257 "\300\301\"\207" [split-string ""] 4 "\n\n(fn %)"] magit-git-lines "log" "--format=%H%x00%h%x00%s" "..HEAD" assoc magit-patch-id make-closure #[257 "\301!\300\232\207" [V0 magit-patch-id] 3 "\n\n(fn %)"] #[257 "\301\300\242\"\207" [V0 magit-rev-equal] 4 "\n\n(fn %)"] 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" magit-rev-equal "goal" "same" "work" #[257 "\301\300\242\"\207" [V0 magit-rev-equal] 4 "\n\n(fn %)"] "poof" "gone" apply "stop" "like" magit-sequence-head magit-sequence-stop "done" magit-sequence-done "onto" magit-sequence-onto] 21 (#$ . 45442)])#@44 (fn TYPE HASH FACE &optional ABBREV MSG) (defalias 'magit-sequence-insert-commit #[1283 "\304\305\306#\211 \206\n?\205 \211\3072?\310\311\"\312\2033\311\313\"\312\314R\2029\315!\314P#\210\316!0+\210\207" [magit-insert-section--current magit-insert-section--oldroot magit-insert-section--parent magit-root-section magit-insert-section--create commit nil cancel-section magit-insert-heading magit--propertize-face " " magit-hash "\n" magit-format-rev-summary magit-insert-section--finish] 13 (#$ . 47207)])#@20 (fn TYPE TARGET) (defalias 'magit-sequence-insert-step #[514 "\304\305B\306#\211 \206\n?\205 \211\30723\310\311\312\313#\205-\314\311\312\315#P\"\210\316!0+\210\207" [magit-insert-section--current magit-insert-section--oldroot magit-insert-section--parent magit-root-section magit-insert-section--create rebase-step nil cancel-section magit-insert-heading propertize font-lock-face magit-sequence-pick " " git-rebase-label magit-insert-section--finish] 10 (#$ . 47744)]) (provide 'magit-sequence)