| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\302\303\304\305\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) | |
| 16 | #@52 Resume the current cherry-pick or revert sequence. | |
| 17 | (defalias 'magit-sequencer-continue #[0 "\300 \203 \301\302!\203 \303\304!\207\305\306 \203 \307\202 \310\311\"\207\303\312!\207" [magit-sequencer-in-progress-p magit-anything-unstaged-p t user-error "Cannot continue due to unstaged changes" magit-run-git-sequencer magit-revert-in-progress-p "revert" "cherry-pick" "--continue" "No cherry-pick or revert in progress"] 3 (#$ . 1541) nil]) | |
| 18 | #@69 Skip the stopped at commit during a cherry-pick or revert sequence. | |
| 19 | (defalias 'magit-sequencer-skip #[0 "\300 \203 \301\302\303\"\210\304 \207\305\306!\207" [magit-sequencer-in-progress-p magit-call-git "reset" "--hard" magit-sequencer-continue user-error "No cherry-pick or revert in progress"] 3 (#$ . 1991) nil]) | |
| 20 | #@110 Abort the current cherry-pick or revert sequence. | |
| 21 | This discards all changes made since the sequence started. | |
| 22 | (defalias 'magit-sequencer-abort #[0 "\300 \203 \301\302 \203 \303\202 \304\305\"\207\306\307!\207" [magit-sequencer-in-progress-p magit-run-git-sequencer magit-revert-in-progress-p "revert" "cherry-pick" "--abort" user-error "No cherry-pick or revert in progress"] 3 (#$ . 2315) nil]) | |
| 23 | (defalias 'magit-sequencer-in-progress-p #[0 "\300 \206 \301 \207" [magit-cherry-pick-in-progress-p magit-revert-in-progress-p] 1]) | |
| 24 | #@22 The Perl executable. | |
| 25 | (defvar magit-perl-executable "perl" (#$ . 2852)) | |
| 26 | #@61 Popup console for cherry-pick commands. | |
| 27 | ||
| 28 | (fn &optional ARG) | |
| 29 | (defalias 'magit-cherry-pick-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-cherry-pick-popup nil] 5 (#$ . 2929) "P"]) | |
| 30 | (defvar magit-cherry-pick-popup (list :variable 'magit-cherry-pick-arguments :man-page "git-cherry-pick" :switches '((115 "Add Signed-off-by lines" "--signoff") (101 "Edit commit messages" "--edit") (120 "Reference cherry in commit message" "-x") (70 "Attempt fast-forward" "--ff")) :options '((115 "Strategy" "--strategy=") (109 "Replay merge relative to parent" "--mainline=")) :actions '("Apply here" (65 "Pick" magit-cherry-copy) (97 "Apply" magit-cherry-apply) (104 "Harvest" magit-cherry-harvest) "Apply elsewhere" (100 "Donate" magit-cherry-donate) (110 "Spinout" magit-cherry-spinout) (115 "Spinoff" magit-cherry-spinoff)) :sequence-actions '((65 "Continue" magit-sequencer-continue) (115 "Skip" magit-sequencer-skip) (97 "Abort" magit-sequencer-abort)) :sequence-predicate 'magit-sequencer-in-progress-p :default-arguments '("--ff"))) | |
| 31 | (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-cherry-pick-popup custom-declare-variable magit-cherry-pick-arguments funcall function #[0 "\301\302\"\207" [magit-cherry-pick-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8) | |
| 32 | (defalias 'magit-cherry-pick-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-cherry-pick-arguments magit-cherry-pick-popup] 2]) | |
| 33 | (put 'magit-cherry-pick-arguments 'definition-name 'magit-cherry-pick-popup) | |
| 34 | #@15 | |
| 35 | ||
| 36 | (fn PROMPT) | |
| 37 | (defalias 'magit-cherry-pick-read-args #[257 "\300\301!\237\206\n \302!\303 D\207" [magit-region-values commit magit-read-other-branch-or-commit magit-cherry-pick-arguments] 3 (#$ . 4575)]) | |
| 38 | #@21 | |
| 39 | ||
| 40 | (fn VERB AWAY FN) | |
| 41 | (defalias 'magit--cherry-move-read-args #[771 "\300\301!\237\206 \203 \302\202 \303\304\305\306!\"!C\307 \211\204% \310\311\"\210\312@\"\313D\211:\203\201 \211@\211\204\\ A\211:\203X \211@\211\314=\203W A\211\204V \310 \315#\210\210\210\210\202\200 \211\314=\203\200 A\211:\203 \211@\211\204~ A\211\204} \310 \316#\210\210\210\210\210\266\317!\320 C\"B\207" [magit-region-values commit magit-read-branch-or-commit magit-read-other-branch-or-commit format "%s cherry" capitalize magit-get-current-branch user-error "Cannot %s cherries while HEAD is detached" magit-rev-ancestor-p "Cannot %s cherries that %s reachable from HEAD" t "are" "are not" append magit-cherry-pick-arguments] 16 (#$ . 4786)]) | |
| 42 | (byte-code "\300\301\302\303#\300\207" [function-put magit--cherry-move-read-args lisp-indent-function defun] 4) | |
| 43 | #@13 | |
| 44 | ||
| 45 | (fn VERB) | |
| 46 | (defalias 'magit--cherry-spinoff-read-args #[257 "\300\301\302#\207" [magit--cherry-move-read-args t #[257 "\300\301\302\303\"!!\207" [butlast magit-branch-read-args format "Create branch from %s cherries"] 6 "\n\n(fn COMMITS)"]] 5 (#$ . 5651)]) | |
| 47 | #@227 Copy COMMITS from another branch onto the current branch. | |
| 48 | Prompt for a commit, defaulting to the commit at point. If | |
| 49 | the region selects multiple commits, then pick all of them, | |
| 50 | without prompting. | |
| 51 | ||
| 52 | (fn COMMITS &optional ARGS) | |
| 53 | (defalias 'magit-cherry-copy #[513 "\300\"\207" [magit--cherry-pick] 5 (#$ . 5918) (magit-cherry-pick-read-args "Cherry-pick")]) | |
| 54 | #@223 Apply the changes in COMMITS but do not commit them. | |
| 55 | Prompt for a commit, defaulting to the commit at point. If | |
| 56 | the region selects multiple commits, then apply all of them, | |
| 57 | without prompting. | |
| 58 | ||
| 59 | (fn COMMITS &optional ARGS) | |
| 60 | (defalias 'magit-cherry-apply #[513 "\300\301\302\303\"B\"\207" [magit--cherry-pick "--no-commit" remove "--ff"] 8 (#$ . 6282) (magit-cherry-pick-read-args "Apply changes from commit")]) | |
| 61 | #@239 Move COMMITS from another BRANCH onto the current branch. | |
| 62 | Remove the COMMITS from BRANCH and stay on the current branch. | |
| 63 | If a conflict occurs, then you have to fix that and finish the | |
| 64 | process manually. | |
| 65 | ||
| 66 | (fn COMMITS BRANCH &optional ARGS) | |
| 67 | (defalias 'magit-cherry-harvest #[770 "\300\301 \302\303&\207" [magit--cherry-move magit-get-current-branch nil t] 10 (#$ . 6700) (magit--cherry-move-read-args "harvest" nil #[257 "\300@!\211G\211\301\267\202 \302\202 @\202 \303\304\305G\"\302\306$\262\262C\207" [magit-list-containing-branches #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 12 1 16)) nil magit-completing-read format "Remove %s cherries from branch" t] 8 "\n\n(fn COMMITS)"])]) | |
| 68 | #@249 Move COMMITS from the current branch onto another existing BRANCH. | |
| 69 | Remove COMMITS from the current branch and stay on that branch. | |
| 70 | If a conflict occurs, then you have to fix that and finish the | |
| 71 | process manually. | |
| 72 | ||
| 73 | (fn COMMITS BRANCH &optional ARGS) | |
| 74 | (defalias 'magit-cherry-donate #[770 "\300\301 $\207" [magit--cherry-move magit-get-current-branch] 8 (#$ . 7445) (magit--cherry-move-read-args "donate" t #[257 "\300\301\302G\"!C\207" [magit-read-other-branch format "Move %s cherries to branch"] 5 "\n\n(fn COMMITS)"])]) | |
| 75 | #@250 Move COMMITS from the current branch onto a new BRANCH. | |
| 76 | Remove COMMITS from the current branch and stay on that branch. | |
| 77 | If a conflict occurs, then you have to fix that and finish the | |
| 78 | process manually. | |
| 79 | ||
| 80 | (fn COMMITS BRANCH START-POINT &optional ARGS) | |
| 81 | (defalias 'magit-cherry-spinout #[1027 "\300\301 %\207" [magit--cherry-move magit-get-current-branch] 10 (#$ . 7976) (magit--cherry-spinoff-read-args "spinout")]) | |
| 82 | #@246 Move COMMITS from the current branch onto a new BRANCH. | |
| 83 | Remove COMMITS from the current branch and checkout BRANCH. | |
| 84 | If a conflict occurs, then you have to fix that and finish | |
| 85 | the process manually. | |
| 86 | ||
| 87 | (fn COMMITS BRANCH START-POINT &optional ARGS) | |
| 88 | (defalias 'magit-cherry-spinoff #[1027 "\300\301 \302&\207" [magit--cherry-move magit-get-current-branch t] 11 (#$ . 8400) (magit--cherry-spinoff-read-args "spinoff")]) | |
| 89 | #@64 | |
| 90 | ||
| 91 | (fn COMMITS SRC DST ARGS &optional START-POINT CHECKOUT-DST) | |
| 92 | (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\"\202k \313!@@\314P\312 \"\210\315 \316\317\320\321\322 \f\f&\323\"\324\325%\"\266\202\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-byte-code 514 "\306!\307>\205v \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\205v \341,\342\343\344\345\346\302!\347\"\350\351%\"\207" vconcat vector [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-byte-code 514 "\301!\302>\205$ \303!\304V\203 \305\"\207\306\307\310#\210\305\"\210\311\312\300\"\207" vconcat vector [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)"] 22 (#$ . 8826)]) | |
| 93 | #@38 | |
| 94 | ||
| 95 | (fn COMMITS ARGS &optional REVERT) | |
| 96 | (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@A\211@A\211\204q \304\f\313\203h @\314\315\"\204\\ \211B\262\210\211T\262A\262\202J \266\211\237\262\202\302 \203} \316\317 \"\202\302 \304\f\305\313\203\254 \203\254 @\203\226 \304\262\202\240 \314\315\"\203\240 \211\262\210\211T\262A\262\202\202 \266\211\262\203\271 \202\302 \320\321\322\323!\"\fB\266\202\266\205#\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: "] 21 (#$ . 10559)]) | |
| 97 | (defalias 'magit-cherry-pick-in-progress-p #[0 "\300\301\302!!\207" [file-exists-p magit-git-dir "CHERRY_PICK_HEAD"] 3]) | |
| 98 | #@56 Popup console for revert commands. | |
| 99 | ||
| 100 | (fn &optional ARG) | |
| 101 | (defalias 'magit-revert-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-revert-popup nil] 5 (#$ . 11583) "P"]) | |
| 102 | (defvar magit-revert-popup (list :variable 'magit-revert-arguments :man-page "git-revert" :switches '((115 "Add Signed-off-by lines" "--signoff") (101 "Edit commit message" "--edit") (69 "Don't edit commit message" "--no-edit")) :options '((115 "Strategy" "--strategy=") (83 "Sign using gpg" "--gpg-sign=" magit-read-gpg-secret-key) (109 "Replay merge relative to parent" "--mainline=")) :actions '((86 "Revert commit(s)" magit-revert-and-commit) (118 "Revert changes" magit-revert-no-commit)) :sequence-actions '((86 "Continue" magit-sequencer-continue) (115 "Skip" magit-sequencer-skip) (97 "Abort" magit-sequencer-abort)) :sequence-predicate 'magit-sequencer-in-progress-p :default-arguments '("--edit"))) | |
| 103 | (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-revert-popup custom-declare-variable magit-revert-arguments funcall function #[0 "\301\302\"\207" [magit-revert-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8) | |
| 104 | (defalias 'magit-revert-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-revert-arguments magit-revert-popup] 2]) | |
| 105 | (put 'magit-revert-arguments 'definition-name 'magit-revert-popup) | |
| 106 | #@15 | |
| 107 | ||
| 108 | (fn PROMPT) | |
| 109 | (defalias 'magit-revert-read-args #[257 "\300\301!\206 \302!\303 D\207" [magit-region-values commit magit-read-branch-or-commit magit-revert-arguments] 3 (#$ . 13040)]) | |
| 110 | #@210 Revert COMMIT by creating a new commit. | |
| 111 | Prompt for a commit, defaulting to the commit at point. If | |
| 112 | the region selects multiple commits, then revert all of them, | |
| 113 | without prompting. | |
| 114 | ||
| 115 | (fn COMMIT &optional ARGS) | |
| 116 | (defalias 'magit-revert-and-commit #[513 "\300\301#\207" [magit--cherry-pick t] 6 (#$ . 13232) (magit-revert-read-args "Revert commit")]) | |
| 117 | #@227 Revert COMMIT by applying it in reverse to the worktree. | |
| 118 | Prompt for a commit, defaulting to the commit at point. If | |
| 119 | the region selects multiple commits, then revert all of them, | |
| 120 | without prompting. | |
| 121 | ||
| 122 | (fn COMMIT &optional ARGS) | |
| 123 | (defalias 'magit-revert-no-commit #[513 "\300\301B\302#\207" [magit--cherry-pick "--no-commit" t] 6 (#$ . 13588) (magit-revert-read-args "Revert changes")]) | |
| 124 | (defalias 'magit-revert-in-progress-p #[0 "\300\301\302!!\207" [file-exists-p magit-git-dir "REVERT_HEAD"] 3]) | |
| 125 | #@57 Popup console for mailbox commands. | |
| 126 | ||
| 127 | (fn &optional ARG) | |
| 128 | (defalias 'magit-am-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-am-popup nil] 5 (#$ . 14090) "P"]) | |
| 129 | (defvar magit-am-popup (list :variable 'magit-am-arguments :man-page "git-am" :switches '((51 "Fall back on 3way merge" "--3way") (115 "Add Signed-off-by lines" "--signoff") (99 "Remove text before scissors line" "--scissors") (107 "Inhibit removal of email cruft" "--keep") (98 "Limit removal of email cruft" "--keep-non-patch") (100 "Use author date as committer date" "--committer-date-is-author-date") (68 "Use committer date as author date" "--ignore-date")) :options '((112 "Remove leading slashes from paths" "-p" magit-read-number-string)) :actions '((109 "Apply maildir" magit-am-apply-maildir) (119 "Apply patches" magit-am-apply-patches) (97 "Apply plain patch" magit-patch-apply-popup)) :default-arguments '("--3way") :default-actions 'magit-am-apply-patches :max-action-columns 1 :sequence-actions '((119 "Continue" magit-am-continue) (115 "Skip" magit-am-skip) (97 "Abort" magit-am-abort)) :sequence-predicate 'magit-am-in-progress-p)) | |
| 130 | (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-am-popup custom-declare-variable magit-am-arguments funcall function #[0 "\301\302\"\207" [magit-am-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8) | |
| 131 | (defalias 'magit-am-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-am-arguments magit-am-popup] 2]) | |
| 132 | (put 'magit-am-arguments 'definition-name 'magit-am-popup) | |
| 133 | #@53 Apply the patches FILES. | |
| 134 | ||
| 135 | (fn &optional FILES ARGS) | |
| 136 | (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 (#$ . 15749) (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)]) | |
| 137 | #@62 Apply the patches from MAILDIR. | |
| 138 | ||
| 139 | (fn &optional MAILDIR ARGS) | |
| 140 | (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 (#$ . 16251) (byte-code "\300\301!\302 D\207" [read-file-name "Apply mbox or Maildir: " magit-am-arguments] 2)]) | |
| 141 | #@45 Resume the current patch applying sequence. | |
| 142 | (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 (#$ . 16581) nil]) | |
| 143 | #@61 Skip the stopped at patch during a patch applying sequence. | |
| 144 | (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 (#$ . 16939) nil]) | |
| 145 | #@103 Abort the current patch applying sequence. | |
| 146 | This discards all changes made since the sequence started. | |
| 147 | (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 (#$ . 17203) nil]) | |
| 148 | (defalias 'magit-am-in-progress-p #[0 "\300\301\302!!\207" [file-exists-p magit-git-dir "rebase-apply/applying"] 3]) | |
| 149 | #@44 Key menu for rebasing. | |
| 150 | ||
| 151 | (fn &optional ARG) | |
| 152 | (defalias 'magit-rebase-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-rebase-popup nil] 5 (#$ . 17617) "P"]) | |
| 153 | (defvar magit-rebase-popup (list :variable 'magit-rebase-arguments :man-page "git-rebase" :switches '((107 "Keep empty commits" "--keep-empty") (112 "Preserve merges" "--preserve-merges") (99 "Lie about committer date" "--committer-date-is-author-date") (97 "Autosquash" "--autosquash") (65 "Autostash" "--autostash") (105 "Interactive" "--interactive") (104 "Disable hooks" "--no-verify")) :actions '((lambda nil (concat (propertize "Rebase " 'face 'magit-popup-heading) (propertize (or (magit-get-current-branch) "HEAD") 'face 'magit-branch-local) (propertize " onto" 'face 'magit-popup-heading))) (112 (lambda nil (--when-let (magit-get-push-branch) (concat it "\n"))) magit-rebase-onto-pushremote) (117 (lambda nil (--when-let (magit-get-upstream-branch) (concat it "\n"))) magit-rebase-onto-upstream) (101 "elsewhere" magit-rebase-branch) "Rebase" (105 "interactively" magit-rebase-interactive) (109 "to modify a commit" magit-rebase-edit-commit) (115 "a subset" magit-rebase-subset) (119 "to reword a commit" magit-rebase-reword-commit) nil (107 "to remove a commit" magit-rebase-remove-commit) nil (102 "to autosquash" magit-rebase-autosquash)) :sequence-actions '((114 "Continue" magit-rebase-continue) (115 "Skip" magit-rebase-skip) (101 "Edit" magit-rebase-edit) (97 "Abort" magit-rebase-abort)) :sequence-predicate 'magit-rebase-in-progress-p :max-action-columns 2)) | |
| 154 | (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-rebase-popup custom-declare-variable magit-rebase-arguments funcall function #[0 "\301\302\"\207" [magit-rebase-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8) | |
| 155 | (defalias 'magit-rebase-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-rebase-arguments magit-rebase-popup] 2]) | |
| 156 | (put 'magit-rebase-arguments 'definition-name 'magit-rebase-popup) | |
| 157 | #@20 | |
| 158 | ||
| 159 | (fn TARGET ARGS) | |
| 160 | (defalias 'magit-git-rebase #[514 "\300\301#\207" [magit-run-git-sequencer "rebase"] 6 (#$ . 19731)]) | |
| 161 | #@137 Rebase the current branch onto `branch.<name>.pushRemote'. | |
| 162 | If that variable is unset, then rebase onto `remote.pushDefault'. | |
| 163 | ||
| 164 | (fn ARGS) | |
| 165 | (defalias 'magit-rebase-onto-pushremote #[257 "\300 \211\203. \301!\211\203% \211\302 \235\203 \303\304Q\"\202) \305\306\"\202) \305\307\"\262\2021 \305\310!\207" [magit-get-current-branch magit-get-push-remote magit-list-remotes magit-git-rebase "/" user-error "Remote `%s' doesn't exist" "No push-remote is configured for %s" "No branch is checked out"] 7 (#$ . 19861) (byte-code "\300 C\207" [magit-rebase-arguments] 1)]) | |
| 166 | #@64 Rebase the current branch onto its upstream branch. | |
| 167 | ||
| 168 | (fn ARGS) | |
| 169 | (defalias 'magit-rebase-onto-upstream #[257 "\300 \211\203 \301!\211\203 \302\"\202 \303\304\"\262\202 \303\305!\207" [magit-get-current-branch magit-get-upstream-branch magit-git-rebase user-error "No upstream is configured for %s" "No branch is checked out"] 6 (#$ . 20436) (byte-code "\300 C\207" [magit-rebase-arguments] 1)]) | |
| 170 | #@185 Rebase the current branch onto a branch read in the minibuffer. | |
| 171 | All commits that are reachable from `HEAD' but not from the | |
| 172 | selected branch TARGET are being rebased. | |
| 173 | ||
| 174 | (fn TARGET ARGS) | |
| 175 | (defalias 'magit-rebase-branch #[514 "\300\301!\210\302\"\210\300\303!\207" [message "Rebasing..." magit-git-rebase "Rebasing...done"] 5 (#$ . 20845) (byte-code "\300\301!\302 D\207" [magit-read-other-branch-or-commit "Rebase onto" magit-rebase-arguments] 2)]) | |
| 176 | #@197 Rebase a subset of the current branch's history onto a new base. | |
| 177 | Rebase commits from START to `HEAD' onto NEWBASE. | |
| 178 | START has to be selected from a list of recent commits. | |
| 179 | ||
| 180 | (fn NEWBASE START ARGS) | |
| 181 | (defalias 'magit-rebase-subset #[771 "\203 \300\301!\210\302\303\304%\210\300\305!\207\306\307\310\311\312\313BFE\314\315\316R\"\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 (#$ . 21299) (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)]) | |
| 182 | #@81 | |
| 183 | ||
| 184 | (fn COMMIT ARGS MESSAGE &optional EDITOR DELAY-EDIT-CONFIRM NOASSERT CONFIRM) | |
| 185 | (defalias 'magit-rebase-interactive-1 #[1795 "\203B \301=\203 \302 \211\205 \303\304\305#\262\262\202B \306\305\"\204, \307\310\"\210\311!\203< \312P\262\202B \313B\262\203R \204R \314\"\262\203y \211\204y \203g \315PB\316\317\320\313\n\235?\205v \n$)\207\321\322\323\324\325\326 B\n\n\n\n\257E\"\207" [process-environment :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 "^" "--root" magit-rebase-interactive-assert "GIT_SEQUENCE_EDITOR=" magit-run-git-sequencer "rebase" "-i" magit-log-select lambda (commit) magit-rebase-interactive-1 commit list] 17 (#$ . 22054)]) | |
| 186 | (byte-code "\300\301\302\303#\300\207" [function-put magit-rebase-interactive-1 lisp-indent-function 2] 4) | |
| 187 | (defvar magit--rebase-published-symbol nil) | |
| 188 | (defvar magit--rebase-public-edit-confirmed nil) | |
| 189 | #@43 | |
| 190 | ||
| 191 | (fn SINCE &optional DELAY-EDIT-CONFIRM) | |
| 192 | (defalias 'magit-rebase-interactive-assert #[513 "\302\303\"\203 \304\305O\202 \306!\307\310 \"\211\203p \203U \311\311\304\203K \203K @\2048 \312\262\202? \313\"\262\210\211T\262A\262\202$ \266\314!\262\204p \315\316\317 \206] \320\321Q\322Q\312%\266\310 B\266\323\324\325\326P#\203\236 \327\330\331\"\211\332=\203\212 \202\235 \211\333=\204\226 \211\334=\204\232 \312\202\235 \335\336!\207\207" [magit--rebase-public-edit-confirmed magit--rebase-published-symbol string-suffix-p "^" 0 -1 magit-list-publishing-branches delete magit-toplevel t nil magit-rev-equal ---truthy\? "Some of these commits have already been published to " ".\nDo you really want to modify them" magit-confirm rebase-published "%s" "%i public branches" magit-git-lines "rev-list" "--merges" "..HEAD" read-char-choice "Proceed despite merge in rebase range? [c]ontinue, [s]elect other, [a]bort " (99 115 97) 99 115 97 user-error "Quit"] 12 (#$ . 23067)]) | |
| 193 | #@57 Start an interactive rebase sequence. | |
| 194 | ||
| 195 | (fn COMMIT ARGS) | |
| 196 | (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 (#$ . 24084) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-rebase-arguments] 2)]) | |
| 197 | #@74 Combine squash and fixup commits with their intended targets. | |
| 198 | ||
| 199 | (fn ARGS) | |
| 200 | (defalias 'magit-rebase-autosquash #[257 "\300\301\302B\303\304\305\306&\207" [magit-rebase-interactive-1 :merge-base "--autosquash" "Type %p on a commit to squash into it and then rebase as necessary," "true" nil t] 8 (#$ . 24406) (byte-code "\300 C\207" [magit-rebase-arguments] 1)]) | |
| 201 | #@60 Edit a single older commit using rebase. | |
| 202 | ||
| 203 | (fn COMMIT ARGS) | |
| 204 | (defalias 'magit-rebase-edit-commit #[514 "\301\302\303P\304%\207" [magit-perl-executable magit-rebase-interactive-1 "Type %p on a commit to edit it," " -i -p -e '++$x if not $x and s/^pick/edit/'" t] 8 (#$ . 24773) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-rebase-arguments] 2)]) | |
| 205 | #@62 Reword a single older commit using rebase. | |
| 206 | ||
| 207 | (fn COMMIT ARGS) | |
| 208 | (defalias 'magit-rebase-reword-commit #[514 "\301\302\303P$\207" [magit-perl-executable magit-rebase-interactive-1 "Type %p on a commit to reword its message," " -i -p -e '++$x if not $x and s/^pick/reword/'"] 8 (#$ . 25138) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-rebase-arguments] 2)]) | |
| 209 | #@62 Remove a single older commit using rebase. | |
| 210 | ||
| 211 | (fn COMMIT ARGS) | |
| 212 | (defalias 'magit-rebase-remove-commit #[514 "\301\302\303P\304\211\305&\207" [magit-perl-executable magit-rebase-interactive-1 "Type %p on a commit to remove it," " -i -p -e '++$x if not $x and s/^pick/# pick/'" nil t] 10 (#$ . 25514) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-rebase-arguments] 2)]) | |
| 213 | #@189 Restart the current rebasing operation. | |
| 214 | In some cases this pops up a commit message buffer for you do | |
| 215 | edit. With a prefix argument the old message is reused as-is. | |
| 216 | ||
| 217 | (fn &optional NOEDIT) | |
| 218 | (defalias 'magit-rebase-continue #[256 "\303 \203D \304\305!\203 \306\307!\207\310 \203& \311\312\313!!\203& \314 \235\204& \315 \210\211\203> \316 B\317\320 \321\"\210\322\n\323\"\210\n)\207\324\320 \321\"\207\306\325!\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 "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"] 4 (#$ . 25902) "P"]) | |
| 219 | #@67 Skip the current commit and restart the current rebase operation. | |
| 220 | (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 (#$ . 26827) nil]) | |
| 221 | #@53 Edit the todo list of the current rebase operation. | |
| 222 | (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 (#$ . 27125) nil]) | |
| 223 | #@68 Abort the current rebase operation, restoring the original branch. | |
| 224 | (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 (#$ . 27393) nil]) | |
| 225 | #@38 Return t if a rebase is in progress. | |
| 226 | (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 (#$ . 27749)]) | |
| 227 | (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]) | |
| 228 | #@113 Insert section for the on-going cherry-pick or revert sequence. | |
| 229 | If no such sequence is in progress, do nothing. | |
| 230 | (defalias 'magit-insert-sequencer-sequence #[0 "\306 \211\204 \307 \205 \310\311!\203 \211\202 \211\236A\206 \312\313\311!\2035 \314\"@\2066 \315\316\300#\2026 \317\320\321\322 \323 &\324\325\326\327\"\211\203P \211\330=\202\202 \n\205[ \331\332!\n\"\211\203f \333\325\"\202\200 \334 \"\211\205~ \335!\203{ \211!\262\211\330=\262\262\262#\210\211\n\206\224 ?\205\224 \f \3362\337\203\244 \340\202\245 \341!\210\342\343\344!!A\211\2039\211\237\211\2038\211@\345\346\"\2031\211\347\350\"\347\351\"\347\352\"\353\311!\203\330 \211\202\340 \211\236A\206\340 \312\313\311!\203\367 \314\"@\206\370 \315\316\300#\202\370 \317\321\322 \323 &\324\325\326\327\"\211\203\211\330=\202E\n\205 \331\332!\n\"\211\203)\333\325\"\202C\334 \"\211\205A\335!\203>\211!\262\211\330=\262\262\262#\210\211\n\206W ?\205W\f \3362-\354\355\356#\357\354\355\360#\357\361\261\210\362\363!\210\364!\210\365\333\366\"\367\"\210\324\370\322 #\371\372\"\373\374\375\333\376\"\"!\373\374\377\333\376\"\"!\203\250J\206\277\201A !\203\265J\206\277\201A !\205\277\211J\212\333\366\"b\210`W\203\376\201B `\312\"\206\327\201C `\312\"\204\367\201D `\312\n$\210\203\367\201D `\372$\210\211b\266\202\307)\266\211\f=\203\320 @\201E !)\202,\324\333\201F \"\201G \333\211\201F \"\201G \"C\244#0\210+\266A\266\202\202\263 \210\210\201H \201I \343\203K\201J \202N\201K !!\201I \343\201L !!\"\210\361c\210\362\363!\210\364!\210\365\333\366\"\367\"\210\324\370\322 #\371\372\"\373\374\375\333\376\"\"!\373\374\377\333\376\"\"!\203\225J\206\254\201A !\203\242J\206\254\201A !\205\254\211J\212\333\366\"b\210`W\203\353\201B `\312\"\206\304\201C `\312\"\204\344\201D `\312\n$\210\203\344\201D `\372$\210\211b\266\202\264)\266\211\f=\203 \320 @\201E !)\202\324\333\201F \"\201G \333\211\201F \"\201G \"C\244#0\210+\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 sequence class-p magit-section :type rassq error "BUG: No entry for %s in %s" :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 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" magit-section-cache-visibility boundp next-single-property-change 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"] 23 (#$ . 28110)]) | |
| 231 | #@106 Insert section for the on-going patch applying sequence. | |
| 232 | If no such sequence is in progress, do nothing. | |
| 233 | (defalias 'magit-insert-am-sequence #[0 "\306 \205\244\307\310!\203 \211\202 \211\236A\206 \311\312\310!\203/ \313\"@\2060 \314\315\300#\2020 \316\317\320\321 \322 &\323\324\325\326\"\211\203J \211\327=\202| \n\205U \330\331!\n\"\211\203` \332\324\"\202z \333 \"\211\205x \334!\203u \211!\262\211\327=\262\262\262#\210\211\n\206\216 ?\205\216 \f \3352\240\336\337!\210\340 \237\317\211\203\355 \211A\262\242\262\341\342\343!!A@!\262\211\203\306 \203\306 \344\345\346#\210\202\236 \203\323 \347\345\346#\210\202\236 \211\203\337 \350\351\"\210\202\236 \347\352\353#\210\350\317\351\"\210\202\236 \266\354c\210\355\356!\210\357!\210\360\332\361\"\362\"\210\323\363\321 #\364\365\"\366\367\370\332\371\"\"!\366\367\372\332\371\"\"!\203)J\206<\373!\2034J\206<\373!\205<\211J\212\332\361\"b\210`W\203s\374`\311\"\206R\375`\311\"\204l\376`\311\n$\210\203l\376`\365$\210\211b\266\202D)\266\211\f=\203\206\317 @\377!)\202\237\323\332\201A \"\201B \332\211\201A \"\201B \"C\244#0\210+\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 rebase-sequence class-p magit-section :type rassq error "BUG: No entry for %s in %s" :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-rev-verify-commit 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 magit-section-cache-visibility parent children] 13 (#$ . 31399)]) | |
| 234 | #@24 | |
| 235 | ||
| 236 | (fn TYPE PATCH FACE) | |
| 237 | (defalias 'magit-sequence-insert-am-patch #[771 "\306\307!\203 \211\202 \211\236A\206 \310\311\307!\203* \312\"@\206+ \313\314\300#\202+ \315\316\317 \320 &\321\322\323\324\"\211\203F \211\325=\202x \n\205Q \326\327!\n\"\211\203\\ \330\322\"\202v \331 \"\211\205t \332!\203q \211!\262\211\325=\262\262\262#\210\211\n\206\212 ?\205\212 \f \3332\214\334\335!r\211q\210\336\337\340\341\342!\343\"\344$\216\345\346\211\347$\210\350\351\346\352#\204\266 eb\210`\353 {*\262\354\355#\356\354\357!\355\360#\356\361\261\266\362\363!\210\364!\210\365\330\366\"\352\"\210\321\367\317 #\370\371\"\372\373\374\330\375\"\"!\372\373\376\330\375\"\"!\203 J\206 \377!\203J\206 \377!\205 \211J\212\330\366\"b\210`W\203]\201A `\310\"\2066\201B `\310\"\204V\201C `\310\n$\210\203V\201C `\371$\210\211b\266\202&)\266\211\f=\203r\346 @\201D !)\202\213\321\330\201E \"\201F \330\211\201E \"\201F \"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 file class-p magit-section :type rassq error "BUG: No entry for %s in %s" :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*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents nil 4096 re-search-forward "^Subject: " t line-end-position propertize 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 magit-section-cache-visibility next-single-property-change get-text-property put-text-property magit-section-show parent children] 16 (#$ . 33713)]) | |
| 238 | #@98 Insert section for the on-going rebase sequence. | |
| 239 | If no such sequence is in progress, do nothing. | |
| 240 | (defalias 'magit-insert-rebase-sequence #[0 "\306 \205\230\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!\203C \211\202K \211\236A\206K \323\324\322!\203b \325\"@\206c \326\327\300#\202c \330\331\332\333 \334 &\335\336\337\340\"\211\203} \211\341=\202\257 \n\205\210 \342\343!\n\"\211\203\223 \344\336\"\202\255 \345 \"\211\205\253 \346!\203\250 \211!\262\211\341=\262\262\262#\210\211\n\206\301 ?\205\301 \f \3472\222\350\351\352#!\210\203\335 \353!\210\202\341 \354!\210\355c\210\356\357!\210\360!\210\361\344\362\"\363\"\210\335\364\333 #\365\366\"\367\351\370\344\371\"\"!\367\351\372\344\371\"\"!\203J\206.\373!\203&J\206.\373!\205.\211J\212\344\362\"b\210`W\203e\374`\323\"\206D\375`\323\"\204^\376`\323\n$\210\203^\376`\366$\210\211b\266\2026)\266\211\f=\203x\331 @\377!)\202\221\335\344\201A \"\201B \344\211\201A \"\201B \"C\244#0\210+\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/*" rebase-sequence class-p magit-section :type rassq error "BUG: No entry for %s in %s" :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 magit-section-cache-visibility parent children] 19 (#$ . 35797)]) | |
| 241 | #@13 | |
| 242 | ||
| 243 | (fn ONTO) | |
| 244 | (defalias 'magit-rebase-insert-merge-sequence #[257 "\300\301\302\303!!\237\211\203R \211@\304\305\"\203 \211\306\300O\262\202K \307\310\311\312\313\314!\206( \315!\"\"\203K \211\316\317\"\316\320\"\305\232\204F \321\322 $\210\266\300\262A\266\202\202 \266\323\324\302\325!!\301\302\326!!\211\205l \327\330!@!A@\262#\207" [nil magit-file-lines magit-git-dir "rebase-merge/git-rebase-todo" string-prefix-p "exec" 5 string-match format "^\\([^%c ]+\\) \\([^ ]+\\) .*$" string-to-char magit-get "core.commentChar" "#" match-string 1 2 magit-sequence-insert-commit magit-sequence-pick magit-sequence-insert-sequence magit-file-line "rebase-merge/stopped-sha" "rebase-merge/done" split-string last] 12 (#$ . 38046)]) | |
| 245 | #@13 | |
| 246 | ||
| 247 | (fn ONTO) | |
| 248 | (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 (#$ . 38794)]) | |
| 249 | (defalias 'magit-rebase-patches #[0 "\300\301\302!\303\304#\207" [directory-files magit-git-dir "rebase-apply" t "^[0-9]\\{4\\}$"] 4]) | |
| 250 | #@33 | |
| 251 | ||
| 252 | (fn STOP ONTO &optional ORIG) | |
| 253 | (defalias 'magit-sequence-insert-sequence #[770 "\301\302!\303\203 \301!\202 \262\304\305\306\307P#\262\203J\235\204J\310!\303\311\312\203X \203X @\203@ \303\262\202L \310!\232\203L \211\262\210\211T\262A\262\202, \266\211\262\211\203g \211\262\202H\303\311\312\203\226 \203\226 @\203 \303\262\202\212 \313 \"\203\212 \211\262\210\211T\262A\262\202k \266\211\262\203\250 \314\315\316#\210\202E\317 \203\267 \314\320\321#\210\202E\322\311!\203\375 \314\303\323\324\303\302#\325\324\326\"\313 \"\204\331 \313 \"\203\335 \327\202\362 \310!\232\204\355 \310!\232\203\361 \330\202\362 \331)\266\202\321#\210\202E\303\311\312\203,\203,@\203\303\262\202 \313 \"\203 \211\262\210\211T\262A\262\202\266\211\262\203>\314\332\316#\210\202E\314\333\316#\210\303\262\266\211\211\203\235\211@\334\314 \232\203\202\232\203p\310!\310!\232\203p\335\202q\336\211\232\203}\337\202~\340E\202\224\232\203\220\341\337E\202\224\341\342E\"\210A\266\202\202K\210\314\343\211\232\203\253\337\202\254\344#\207" [magit--refresh-cache magit-rev-parse "HEAD" nil magit-git-lines "log" "--format=%H" "..HEAD" magit-patch-id t 0 magit-rev-equal magit-sequence-insert-commit "void" magit-sequence-drop magit-anything-unmerged-p "join" magit-sequence-part magit-anything-modified-p 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] 15 (#$ . 39479)]) | |
| 254 | #@38 | |
| 255 | ||
| 256 | (fn TYPE HASH FACE &optional EXEC) | |
| 257 | (defalias 'magit-sequence-insert-commit #[1027 "\306\307!\203 \211\202 \211\236A\206 \310\311\307!\203* \312\"@\206+ \313\314\300#\202+ \315\316\317 \320 &\321\322\323\324\"\211\203F \211\325=\202x \n\205Q \326\327!\n\"\211\203\\ \330\322\"\202v \331 \"\211\205t \332!\203q \211!\262\211\325=\262\262\262#\210\211\n\206\212 ?\205\212 \f \3332V\334\335\336#\337\340!\341$\210\203\260 \335\342\336\343#\337\341\261\210\344\345!\210\346!\210\347\330\350\"\351\"\210\321\352\317 #\353\354\"\355\356\357\330\360\"\"!\355\356\361\330\360\"\"!\203\347 J\206\372 \362!\203\362 J\206\372 \362!\205\372 \211J\212\330\350\"b\210`W\2031\363`\310\"\206\364`\310\"\204*\365`\310\n$\210\203*\365`\354$\210\211b\266\202)\266\211\f=\203D\366 :\367!)\202U\321\330\370\"\371\330\211\370\"\371\"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 commit class-p magit-section :type rassq error "BUG: No entry for %s in %s" :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 face " " magit-format-rev-summary "\n" "exec" magit-sequence-onto 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] 17 (#$ . 41115)]) | |
| 258 | (provide 'magit-sequence) | |
