;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\314&\210\315\316\317\320\321DD\322\313\306\323\324&\210\315\325\317\320\326DD\327\313\306\323\324&\210\315\330\317\320\331DD\332\313\306\323\324&\210\305\333\307\334\313\335\313\306&\207" [require magit easymenu server with-editor custom-declare-group git-rebase nil "Edit Git rebase sequences." :link (info-link "(magit)Editing Rebase Sequences") :group tools custom-declare-variable git-rebase-auto-advance funcall function #[0 "\300\207" [t] 1 #1=""] "Whether to move to next line after changing a line." :type boolean git-rebase-show-instructions #[0 "\300\207" [t] 1 #1#] "Whether to show usage instructions inside the rebase buffer." git-rebase-confirm-cancel #[0 "\300\207" [t] 1 #1#] "Whether confirmation is required to cancel." git-rebase-faces "Faces used by Git-Rebase mode." faces] 8) (custom-declare-face 'git-rebase-hash '((t :inherit magit-hash)) "Face for commit hashes." :group 'git-rebase-faces) (custom-declare-face 'git-rebase-label '((t :inherit magit-refname)) "Face for labels in label, merge, and reset lines." :group 'git-rebase-faces) (custom-declare-face 'git-rebase-description '((t nil)) "Face for commit descriptions." :group 'git-rebase-faces) (custom-declare-face 'git-rebase-action '((t :inherit font-lock-keyword-face)) "Face for action keywords." :group 'git-rebase-faces) (custom-declare-face 'git-rebase-killed-action '((t :inherit font-lock-comment-face :strike-through t)) "Face for commented commit action lines." :group 'git-rebase-faces) (custom-declare-face 'git-rebase-comment-hash '((t :inherit git-rebase-hash :weight bold)) "Face for commit hashes in commit message comments." :group 'git-rebase-faces) (custom-declare-face 'git-rebase-comment-heading '((t :inherit font-lock-keyword-face)) "Face for headings in rebase message comments." :group 'git-rebase-faces)#@29 Keymap for Git-Rebase mode. (defvar git-rebase-mode-map (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\322\324\325\326\327\330\331\332\333\334\335\336\327\337\340\341\342\343\344\345\346\347\346\350\351\352\353\354\353\355\356\357\360\361\362\363\364\365\366\367\370\371\372\373\312\374\312\375\314\376\377&F\207" [special-mode-map define-keymap :parent "C-m" git-rebase-show-commit "p" git-rebase-backward-line "n" forward-line "M-p" git-rebase-move-line-up "M-n" git-rebase-move-line-down "c" git-rebase-pick "d" git-rebase-drop "k" git-rebase-kill-line "C-k" "b" git-rebase-break "e" git-rebase-edit "l" git-rebase-label "M M" git-rebase-merge "M t" git-rebase-merge-toggle-editmsg "m" "s" git-rebase-squash "S" git-rebase-squish "f" git-rebase-fixup "F" git-rebase-alter "A" "q" undefined "r" git-rebase-reword "w" "t" git-rebase-reset "u" git-rebase-update-ref "x" git-rebase-exec "y" git-rebase-insert "z" git-rebase-noop "SPC" git-rebase-show-or-scroll-up "DEL" git-rebase-show-or-scroll-down "C-x C-t" "M-" "M-" " " git-rebase-undo] 71) (#$ . 1994)) (byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\311#\207" [put git-rebase-alter :advertised-binding "F" git-rebase-reword "r" git-rebase-move-line-up [134217840] git-rebase-kill-line "k"] 4)#@23 Git-Rebase mode menu. (defvar git-rebase-mode-menu nil (#$ . 3354)) (easy-menu-do-define 'git-rebase-mode-menu git-rebase-mode-map "Git-Rebase mode menu." '("Rebase" ["Pick" git-rebase-pick t] ["Drop" git-rebase-drop t] ["Reword" git-rebase-reword t] ["Edit" git-rebase-edit t] ["Squash" git-rebase-squash t] ["Fixup" git-rebase-fixup t] ["Kill" git-rebase-kill-line t] ["Noop" git-rebase-noop t] ["Execute" git-rebase-exec t] ["Move Down" git-rebase-move-line-down t] ["Move Up" git-rebase-move-line-up t] "---" ["Cancel" with-editor-cancel t] ["Finish" with-editor-finish t])) (defvar git-rebase-command-descriptions '((with-editor-finish . "tell Git to make it happen") (with-editor-cancel . "tell Git that you changed your mind, i.e., abort") (git-rebase-backward-line . "move point to previous line") (forward-line . "move point to next line") (git-rebase-move-line-up . "move the commit at point up") (git-rebase-move-line-down . "move the commit at point down") (git-rebase-show-or-scroll-up . "show the commit at point in another buffer") (git-rebase-show-commit . "show the commit at point in another buffer and select its window") (undo . "undo last change") (git-rebase-drop . "drop the commit at point") (git-rebase-kill-line . "un-/comment current line") (git-rebase-insert . "insert a line for an arbitrary commit") (git-rebase-noop . "add noop action at point"))) (defvar git-rebase-fixup-descriptions '((git-rebase-squish . "fixup -c = use commit, but meld into previous commit,\n# dropping previous commit's message, and open the editor") (git-rebase-fixup . "fixup = use commit, but meld into previous commit,\n# dropping 's message") (git-rebase-alter . "fixup -C = use commit, but meld into previous commit,\n# dropping previous commit's message")))#@94 Use commit on current line. If the region is active, act on all lines touched by the region. (defalias 'git-rebase-pick #[0 "\300\301!\207" [git-rebase-set-action "pick"] 2 (#$ . 5191) nil])#@95 Drop commit on current line. If the region is active, act on all lines touched by the region. (defalias 'git-rebase-drop #[0 "\300\301!\207" [git-rebase-set-action "drop"] 2 (#$ . 5387) nil])#@106 Edit message of commit on current line. If the region is active, act on all lines touched by the region. (defalias 'git-rebase-reword #[0 "\300\301!\207" [git-rebase-set-action "reword"] 2 (#$ . 5585) nil])#@106 Stop at the commit on the current line. If the region is active, act on all lines touched by the region. (defalias 'git-rebase-edit #[0 "\300\301!\207" [git-rebase-set-action "edit"] 2 (#$ . 5798) nil])#@139 Fold commit on current line into previous commit, edit combined message. If the region is active, act on all lines touched by the region. (defalias 'git-rebase-squash #[0 "\300\301!\207" [git-rebase-set-action "squash"] 2 (#$ . 6007) nil])#@281 Fold current into previous commit, discard previous message and edit current. This is like `git-rebase-squash', except that the other message is kept. The action indicatore shown in the list commits is "fixup -c". If the region is active, act on all lines touched by the region. (defalias 'git-rebase-squish #[0 "\300\301!\207" [git-rebase-set-action "fixup -c"] 2 (#$ . 6253) nil])#@141 Fold commit on current line into previous commit, discard current message. If the region is active, act on all lines touched by the region. (defalias 'git-rebase-fixup #[0 "\300\301!\207" [git-rebase-set-action "fixup"] 2 (#$ . 6643) nil])#@279 Meld current into previous commit, discard previous message and use current. This is like `git-rebase-fixup', except that the other message is kept. The action indicatore shown in the list commits is "fixup -C". If the region is active, act on all lines touched by the region. (defalias 'git-rebase-alter #[0 "\300\301!\207" [git-rebase-set-action "fixup -C"] 2 (#$ . 6889) nil]) (defvar git-rebase-comment-re nil nil) (make-variable-buffer-local 'git-rebase-comment-re)#@57 Alist mapping single key of an action to the full name. (defvar git-rebase-short-options '((98 . "break") (100 . "drop") (101 . "edit") (102 . "fixup") (108 . "label") (109 . "merge") (112 . "pick") (114 . "reword") (115 . "squash") (116 . "reset") (117 . "update-ref") (120 . "exec")) (#$ . 7366)) (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\315$\207" [defalias git-rebase-action-p eieio-make-class-predicate git-rebase-action git-rebase-action--eieio-childp eieio-make-child-predicate git-rebase-action-child-p make-obsolete "use (cl-typep ... 'git-rebase-action) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((action-type :initarg :action-type :initform nil) (action :initarg :action :initform nil) (action-options :initarg :action-options :initform nil) (target :initarg :target :initform nil) (trailer :initarg :trailer :initform nil) (comment-p :initarg :comment-p :initform nil) (abbrev))] 6)#@74 Create a new object of class type `git-rebase-action'. (fn &rest SLOTS) (defalias 'git-rebase-action #[128 "\300\301\302#\207" [apply make-instance git-rebase-action] 5 (#$ . 8397)]) (byte-code "\300\301\302\303#\300\207" [function-put git-rebase-action compiler-macro git-rebase-action--anon-cmacro] 4)#@26 (fn WHOLE &rest SLOTS) (defalias 'git-rebase-action--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\304\211@%\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity nil] 8 (#$ . 8708)]) (defvar git-rebase-line-regexps (byte-code "\300\301B\302\303\304B\305\306B\307\310B\257\207" [commit "\$?1:drop\\|edit\\|f\\(?: -[Cc]\\|ixup\\(?: -[Cc]\$?\\)\\|pick\\|reword\\|squash\\|[defprs]\\) \$?3:[^ \n]+\$\$?: \\(?4:# \$?\$?5:.*\$\\)?" (exec . "\$?1:x\\|exec\$ \$?3:.*\$") bare "\$?1:b\\(?:reak\$?\\|noop\\) *$" label "\$?1:label\\|reset\\|update-ref\\|[ltu]\$ \$?3:[^ \n]+\$\$?: \\(?4:# \$?\$?5:.*\$\\)?" merge "\$?1:m\\|merge\$ \$?:\\(?2:\\(?21:-[cC]\$ \$?22:[^ \n]+\$\\) \\)?\$?3:[^ \n]+\$\$?: \\(?4:# \$?\$?5:.*\$\\)?"] 6))#@289 Parse current line into a `git-rebase-action' instance. If the current line isn't recognized as a rebase line, an instance with all nil values is returned, unless optional BATCH is non-nil, in which case nil is returned. Non-nil BATCH also ignores commented lines. (fn &optional BATCH) (defalias 'git-rebase-current-line #[256 "\212\303 b\210\3042c\211\203\305\202\306\307\310!\"\211\205\"\311\312\313\" \"\211\203V\314\304\315\316\317\320\321!\211\205<\322\n\"A\206<\211\262\323\320\324!\325\320\326!\327\320\330!\331\320\332!\205R\333&\f\"\210\266\211?\205b\314\304\315 \"0)\207" [comment-start git-rebase-line-regexps git-rebase-short-options line-beginning-position #1=#::cond-let*1546 "^" format "^\$?99:%s\$? *" regexp-quote seq-some make-closure #[257 "\211\242\243\302\303\300P!\205)\207" [V0 case-fold-search nil looking-at] 6 "\n\n(fn ARG0)"] throw git-rebase-action :action-type :action match-string-no-properties 1 assoc :action-options 2 :target 3 :trailer 5 :comment-p 99 t] 19 (#$ . 9526)])#@262 Set action of commit line to ACTION. If the region is active, operate on all lines that it touches. Otherwise, operate on the current line. As a special case, an ACTION of nil comments or uncomments the rebase line, regardless of its action type. (fn ACTION) (defalias 'git-rebase-set-action #[257 "\304\305!\211:\203\271\211\242\243\211:\203\266\211\242\243\211\204\263\306!\205$\307 `W\310\305\"\210b\210`W\203\233\311 \203h\312\313\"\314=\203h\305\315 \210\316\312\317\"\316Rc\210\320\321!\203[\322c\210\312\323\"\324Pc)\266\202,\204\224\312\313\"\203\224\305\312\325\"\203\207\211\326\\|\210\202\214\n\316\261\210)\327y\266\202,\327y\266\202,\203\243\202\255\211\203\254S\202\255b\210\330 b\207\331 \207\331 \207\331 \207" [mark-active inhibit-read-only comment-start git-rebase-auto-advance git-rebase-region-bounds t copy-marker mark set-marker-insertion-type git-rebase-current-line slot-value action-type commit magit-delete-line " " target magit-git-version>= "2.50.0" "# " trailer "\n" comment-p 2 nil line-beginning-position ding] 14 (#$ . 10565)])#@22 (fn &optional POS) (defalias 'git-rebase-line-p #[256 "\212\211\203\211b\210\300\301 \302\"\205\303)\207" [eieio-oref git-rebase-current-line action-type t] 4 (#$ . 11681)])#@278 Return region bounds if both ends touch rebase lines. Each bound is extended to include the entire line touched by the point or mark. If the region isn't active and FALLBACK is non-nil, return the beginning and end of the current rebase line, if any. (fn &optional FALLBACK) (defalias 'git-rebase-region-bounds #[256 "\300 \203\301\302 !\303\304 !\305!\205\305!\205TD\207\211\205-\305 \205-\306 \307 TD\207" [use-region-p magit--bol-position region-beginning magit--eol-position region-end git-rebase-line-p line-beginning-position line-end-position] 5 (#$ . 11867)])#@201 Move the current commit (or command) N lines down. If N is negative, move the commit up instead. With an active region, move all the lines that the region touches, not just the current line. (fn N) (defalias 'git-rebase-move-line-down #[257 "\306 \206\307 \310 TD\211\242\243\211\242\243`Z\205\311 Z\214e \203O\212eb\210\312 \204C\313\314\315\"\262\204C\n\316P\314\315\"\262\203I\317y\210\202(\307 )\202PdS}\210\320W\203`eU\204s\320V\203mdU\204sdV\203x\321 \202\323\320W\203\203\202\204b\210y\210\322 \317\211\317C\323\324#\216\325!\210\315\326\n\"c)\210` \fZZ\327 \203\305\317\330\\!\210\211\\b\262\315\240,\210\266\205)\207" [mark-active git-rebase-show-instructions git-rebase-comment-re most-positive-fixnum undo-strong-limit undo-limit git-rebase-region-bounds line-beginning-position line-end-position mark git-rebase-line-p "^$" looking-at t " Branch" nil 0 ding prepare-change-group make-closure #[0 "\300\242\203 \302\301!\207\303\301!\207" [V0 V1 accept-change-group cancel-change-group] 2] activate-change-group delete-and-extract-region use-region-p set-mark undo-outer-limit inhibit-read-only deactivate-mark] 17 (#$ . 12455) "p"])#@201 Move the current commit (or command) N lines up. If N is negative, move the commit down instead. With an active region, move all the lines that the region touches, not just the current line. (fn N) (defalias 'git-rebase-move-line-up #[257 "\300[!\207" [git-rebase-move-line-down] 3 (#$ . 13678) "p"])#@29 (fn START END WINDOW ROL) (defalias 'git-rebase-highlight-region #[1028 "\304\305\306 \307\310\n\"\210\211\203\311@A@\312#\210\211\203*\204*\313\314!!\2026\313\315!$*\207" [deactivate-mark inhibit-read-only magit-section-highlight-overlays magit-section-keep-region-overlay t nil git-rebase-region-bounds mapc delete-overlay magit-section-highlight-range magit-section-heading-selection default-value redisplay-unhighlight-region-function redisplay-highlight-region-function] 12 (#$ . 13987)])#@12 (fn ROL) (defalias 'git-rebase-unhighlight-region #[257 "\301\302\"\210\303\304!!\207" [magit-section-highlight-overlays mapc delete-overlay default-value redisplay-unhighlight-region-function] 4 (#$ . 14509)])#@159 Comment the current action line. If the action line is already commented, then uncomment it. If the region is active, act on all lines touched by the region. (defalias 'git-rebase-kill-line #[0 "\300\301!\207" [git-rebase-set-action nil] 2 (#$ . 14730) nil])#@70 Read an arbitrary commit and insert it below current line. (fn REV) (defalias 'git-rebase-insert #[257 "\301y\210\301\302\303\"\211\262\203\304\305\306\261)\207\307\310!\207" [inhibit-read-only nil magit-rev-format "%h %s" t "pick " 10 user-error "Unknown revision"] 5 (#$ . 14994) (byte-code "\300\301!C\207" [magit-read-branch-or-commit "Insert revision"] 2)])#@28 (fn ACTION VALUE-FN ARG) (defalias 'git-rebase-set-noncommit-action #[771 "\301 b\210\302\211?\205%\303 \304\305\"\232\205#\304\306\"\304\307\"\304\310\"E\262\211\242\243\211\242\243\211\242\243!\311E\211:\203\332\211\242\211\312\232\203\311\243\211:\203\272\211\242\211\204\207\243\211:\203x\211\243\211\204h\313 \202s$\262\202\202 \n$\262\202\265\243\211:\203\251\211\243\211\204\231\314 \202\244$\262\202\263 \n$\262\262\202\304\f$\262\202\323\n$\262\266\202\202\346 \n $\266\202\262\266\206)\207" [inhibit-read-only line-beginning-position t git-rebase-current-line slot-value action target trailer comment-p #[1028 "\203\n\301 \210\202 \302y\210\303\211\232\205\205\303P\304\260c\210?\205*\305y\207" [git-rebase-auto-advance magit-delete-line nil " " "\n" -1] 9 "\n\n(fn ACTION INITIAL TRAILER VALUE)"] "" ding magit-delete-line] 23 (#$ . 15370)])#@314 Insert a shell command to be run after the current commit. If there already is such a command on the current line, then edit that instead. With a prefix argument insert a new command even when there already is one on the current line. With empty input remove the command on the current line, if any. (fn ARG) (defalias 'git-rebase-exec #[257 "\300\301\302#\207" [git-rebase-set-noncommit-action "exec" #[257 "\300\301\"\207" [read-shell-command "Execute: "] 4 "\n\n(fn INITIAL)"]] 5 (#$ . 16350) "P"])#@287 Add a label after the current commit. If there already is a label on the current line, then edit that instead. With a prefix argument, insert a new label even when there is already a label on the current line. With empty input, remove the label on the current line, if any. (fn ARG) (defalias 'git-rebase-label #[257 "\300\301\302#\207" [git-rebase-set-noncommit-action "label" #[257 "\301\302#\207" [magit-minibuffer-local-ns-map read-from-minibuffer "Label: "] 5 "\n\n(fn INITIAL)"]] 5 (#$ . 16864) "P"]) (defalias 'git-rebase-buffer-labels #[0 "\300\212eb\210\301\302\300\303#\203\304\305!B\262\202)\211\237\207" [nil re-search-forward "^\$?:l\\|label\$ \$[^ \n]+\$" t match-string-no-properties 1] 5])#@293 Reset the current HEAD to a label. If there already is a reset command on the current line, then edit that instead. With a prefix argument, insert a new reset line even when point is already on a reset line. With empty input, remove the reset command on the current line, if any. (fn ARG) (defalias 'git-rebase-reset #[257 "\300\301\302#\207" [git-rebase-set-noncommit-action "reset" #[257 "\300\301\302 \303\304%\206\f\305\207" [magit-completing-read "Label" git-rebase-buffer-labels nil t ""] 7 "\n\n(fn INITIAL)"]] 5 (#$ . 17592) "P"])#@312 Insert an update-ref action after the current line. If there is already an update-ref action on the current line, then edit that instead. With a prefix argument, insert a new action even when there is already one on the current line. With empty input, remove the action on the current line, if any. (fn ARG) (defalias 'git-rebase-update-ref #[257 "\300\301\302#\207" [git-rebase-set-noncommit-action "update-ref" #[257 "\300\301\302 \303\211%\206\f\304\207" [magit-completing-read "Ref" magit-list-refs nil ""] 7 "\n\n(fn INITIAL)"]] 5 (#$ . 18143) "P"])#@326 Add a merge command after the current commit. If there is already a merge command on the current line, then replace that command instead. With a prefix argument, insert a new merge command even when there is already one on the current line. With empty input, remove the merge command on the current line, if any. (fn ARG) (defalias 'git-rebase-merge #[257 "\300\301\302#\207" [git-rebase-set-noncommit-action "merge" #[257 "\300\301\302 \"\206 \303\207" [magit-completing-read "Merge" git-rebase-buffer-labels ""] 4 "\n\n(fn _)"]] 5 (#$ . 18710) "P"])#@264 Toggle whether an editor is invoked when performing the merge at point. When a merge command uses a lower-case -c, the message for the specified commit will be opened in an editor before creating the commit. For an upper-case -C, the message will be used as is. (defalias 'git-rebase-merge-toggle-editmsg #[0 "\301 \302\303\"\304=\203)\305\306 \210\307\310\311\312\313\302\314\"\305\211%\302\315\"\302\316\"$c)\207\317 \207" [inhibit-read-only git-rebase-current-line slot-value action-type merge t magit-delete-line format "merge %s %s %s\n" replace-regexp-in-string "-[cC]" #[257 "\211\300\232\203\301\207\300\207" ["-c" "-C"] 3 "\n\n(fn %)"] action-options target trailer ding] 9 (#$ . 19273) nil])#@19 (fn ACTION ARG) (defalias 'git-rebase-set-bare-action #[514 "\302 b\210\303 \304\305\"\232\306\204(\304\305\"\203(\211\203(\211\205?\304\307\"\205?\2043\211\2033\310 \210\311\261\210 ?\205?\312y)\207" [inhibit-read-only git-rebase-auto-advance line-beginning-position git-rebase-current-line slot-value action t comment-p magit-delete-line 10 -1] 7 (#$ . 19990)])#@505 Add noop action at point. If the current line already contains a noop action, leave it unchanged. If there is a commented noop action present, remove the comment. Otherwise add a new noop action. With a prefix argument insert a new noop action regardless of what is already present on the current line. A noop action can be used to make git perform a rebase even if no commits are selected. Without the noop action present, git would see an empty file and therefore do nothing. (fn &optional ARG) (defalias 'git-rebase-noop #[256 "\300\301\"\207" [git-rebase-set-bare-action "noop"] 4 (#$ . 20379) "P"])#@467 Add break action at point. If there is a commented break action present, remove the comment. If the current line already contains a break action, add another break action only if a prefix argument is given. A break action can be used to interrupt the rebase at the specified point. It is particularly useful for pausing before the first commit in the sequence. For other cases, the equivalent behavior can be achieved with `git-rebase-edit'. (fn &optional ARG) (defalias 'git-rebase-break #[256 "\300\301\"\207" [git-rebase-set-bare-action "break"] 4 (#$ . 20997) "P"])#@93 Undo some previous changes. Like `undo' but works in read-only buffers. (fn &optional ARG) (defalias 'git-rebase-undo #[256 "\301\302!)\207" [inhibit-read-only t undo] 3 (#$ . 21578) "P"])#@25 (fn &optional SCROLL) (defalias 'git-rebase--show-commit #[256 "\301\212\302 b\210\303\304 \305\306\"\307=\205\305\310\"\262\211\262\2039\311\267\202/\312 \202;\313 \202;\314\315\316\317!#\202;\320 *\207" [magit--disable-save-buffers t line-beginning-position nil git-rebase-current-line slot-value action-type commit target #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (up 37 down 42)) magit-diff-show-or-scroll-up magit-diff-show-or-scroll-down apply magit-show-commit magit-diff-arguments magit-revision-mode ding] 7 (#$ . 21775)])#@45 Show the commit on the current line if any. (defalias 'git-rebase-show-commit #[0 "\300 \207" [git-rebase--show-commit] 1 (#$ . 22371) nil])#@259 Update the commit buffer for commit on current line. Either show the commit at point in the appropriate buffer, or if that buffer is already being displayed in the current frame and contains information about that commit, then instead scroll the buffer up. (defalias 'git-rebase-show-or-scroll-up #[0 "\300\301!\207" [git-rebase--show-commit up] 2 (#$ . 22518) nil])#@261 Update the commit buffer for commit on current line. Either show the commit at point in the appropriate buffer, or if that buffer is already being displayed in the current frame and contains information about that commit, then instead scroll the buffer down. (defalias 'git-rebase-show-or-scroll-down #[0 "\300\301!\207" [git-rebase--show-commit down] 2 (#$ . 22892) nil])#@125 Move N lines backward (forward if N is negative). Like `forward-line' but go into the opposite direction. (fn &optional N) (defalias 'git-rebase-backward-line #[256 "\211\206\300[y\207" [1] 2 (#$ . 23272) "p"]) (defvar git-rebase-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [git-rebase-mode-hook variable-documentation put "Hook run after entering Git Rebase mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp git-rebase-mode-map definition-name git-rebase-mode] 4) (defvar git-rebase-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204*\303\307\310\311#\210\312\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\303\311\320\321#\210\303\311\322\323#\207" [git-rebase-mode-abbrev-table git-rebase-mode-map variable-documentation put purecopy "Keymap for `git-rebase-mode'." boundp git-rebase-mode-syntax-table definition-name git-rebase-mode defvar-1 nil make-syntax-table "Syntax table for `git-rebase-mode'." define-abbrev-table "Abbrev table for `git-rebase-mode'." derived-mode-parent special-mode custom-mode-group git-rebase] 5)#@496 Major mode for editing of a Git rebase file. Rebase files are generated when you run "git rebase -i" or run `magit-interactive-rebase'. They describe how Git should perform the rebase. See the documentation for git-rebase (e.g., by running "man git-rebase" at the command line) for details. In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `git-rebase-mode-hook', as the final or penultimate step during initialization. \{git-rebase-mode-map} (defalias 'git-rebase-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R 4=\204R\326 \3254C#\210\327!\210\330\f!\210 4\331\332!\206d\3335\334\3355!P6\336 \307\211E78\204\203\3079\3376!)\210 \204\214\340\341!\210:\203\230\342\343\344\345\307$\210\306\346!\210\347&\306\350!\210\351(\342\352\353\345\307$\210\342\354\355\345\307$\210\356;\357<\360\361!\203\303\3451)\362\363!\207" [delay-mode-hooks major-mode mode-name git-rebase-mode-map git-rebase-mode-syntax-table git-rebase-mode-abbrev-table make-local-variable t special-mode git-rebase-mode "Git Rebase" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table magit-get "core.commentChar" "#" "^" regexp-quote git-rebase-mode-font-lock-keywords flush-lines with-editor-mode 1 add-hook with-editor-cancel-query-functions git-rebase-cancel-confirm nil redisplay-highlight-region-function git-rebase-highlight-region redisplay-unhighlight-region-function git-rebase-unhighlight-region with-editor-pre-cancel-hook git-rebase-autostash-save with-editor-post-cancel-hook git-rebase-autostash-apply magit-imenu--rebase-prev-index-position-function magit-imenu--rebase-extract-index-name-function boundp save-place run-mode-hooks git-rebase-mode-hook local-abbrev-table comment-start git-rebase-comment-re font-lock-defaults git-rebase-show-instructions inhibit-read-only git-rebase-confirm-cancel imenu-prev-index-position-function imenu-extract-index-name-function] 5 (#$ . 24685)])#@14 (fn FORCE) (defalias 'git-rebase-cancel-confirm #[257 "\300 ?\206\211\206\301\302\303\304\305$\207" [buffer-modified-p magit-confirm abort-rebase "Abort this rebase" nil noabort] 6 (#$ . 26937)]) (defalias 'git-rebase-autostash-save #[0 "\301\302\303\304 \"!\211\205\305BB\211\207" [with-editor-cancel-alist magit-file-line expand-file-name "rebase-merge/autostash" magit-gitdir stash] 4]) (defalias 'git-rebase-autostash-apply #[0 "\301\236A\211\205\302!\207" [with-editor-cancel-alist stash magit-stash-apply] 3])#@14 (fn LIMIT) (defalias 'git-rebase-match-comment-line #[257 "\301\302P\303#\207" [git-rebase-comment-re re-search-forward ".*" t] 5 (#$ . 27473)])#@41 Font lock keywords for Git-Rebase mode. (defalias 'git-rebase-mode-font-lock-keywords #[0 "\303\304\236AP\305B\303\306\236AP\307B\303\310\236AP\311B\303\312\236AP\313B\303\314\236AP\315B\316\317 \"\320B\321\n\322\304\236AQ\323B\324\325\326\316\327 \"\330B\316\331 \"\332B\257 \207" [git-rebase-line-regexps comment-start git-rebase-comment-re "^" commit ((1 'git-rebase-action) (3 'git-rebase-hash) (4 'font-lock-comment-face nil t) (5 'git-rebase-description nil t)) exec ((1 'git-rebase-action) (3 'git-rebase-description)) bare ((1 'git-rebase-action)) label ((1 'git-rebase-action) (3 'git-rebase-label) (4 'font-lock-comment-face nil t) (5 'git-rebase-description nil t)) merge ((1 'git-rebase-action) (21 'git-rebase-action nil t) (22 'git-rebase-hash t t) (3 'magit-branch-local) (4 'font-lock-comment-face nil t) (5 'git-rebase-description nil t)) format "^%s Branch \$.*\$" ((1 'magit-branch-local t)) ("^drop \$.+\$" (1 'git-rebase-killed-action t)) " *" ((0 'git-rebase-killed-action t)) (git-rebase-match-comment-line (0 'font-lock-comment-face)) ("\\[[^[]*\\]" (0 'magit-keyword t)) ("\$?:fixup!\\|squash!\\|amend!\$" (0 'magit-keyword-squash t)) "^%s Rebase \$[^ ]*\$ onto \$[^ ]*\$" ((1 'git-rebase-comment-hash t) (2 'git-rebase-comment-hash t)) "^%s \$Commands:\$" ((1 'git-rebase-comment-heading t))] 15 (#$ . 27627)])#@233 Modify the "Commands:" section of the comment Git generates. Modify that section to replace Git's one-letter command abbreviation, with the key bindings used in Magit. By default, these are the same, except for the "pick" command. (defalias 'git-rebase-mode-show-keybindings #[0 "\305\212eb\210 \205\236\306\n\307P\310\305#\205\236\311 b\210\312!\210\310\n\313P\306\310\305#\205\234\314\315!\203H\f\236\203:\316 \210\202 \317\320\321\322\"\305\211\310\315%\210\202 \323\324\314\325!P!\262\326!\204]\316 \210\202 \327=\203m\316 \210\312\f!\210\202 \330\311 \331 T\332#\210\317\333\305\211\310\334%\210\317\335\336 \337\340\"\216\341\342\343\"!)\262\344\"\305\211\310\345%\210\202 \266\202*\207" [inhibit-read-only git-rebase-show-instructions git-rebase-comment-re git-rebase-command-descriptions git-rebase-fixup-descriptions t re-search-forward "\\s-+p, pick" nil line-beginning-position git-rebase--insert-descriptions "\$?:\\( \\.? *\$\\|\$ +\$\$[^\n,],\$ \$[^\n ]+\$ \\)" match-string-no-properties 1 delete-line replace-match make-string 10 32 intern "git-rebase-" 4 fboundp git-rebase-fixup add-text-properties line-end-position (font-lock-face font-lock-comment-face) " " 2 string-pad match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] substitute-command-keys format "\\[%s]" 8 3] 9 (#$ . 28988)])#@14 (fn ALIST) (defalias 'git-rebase--insert-descriptions #[257 "\211\211\205-\211@\211\242\243\301\302\303\304\305#\306\307\301\310\"!\311\"\312\313#$c\266A\266\202\202\207" [comment-start format propertize "%s %s %s\n" font-lock-face font-lock-comment-face string-pad substitute-command-keys "\\[%s]" 8 string-replace "#"] 13 (#$ . 30357)]) (add-hook 'git-rebase-mode-hook 'git-rebase-mode-show-keybindings t) (defalias 'git-rebase-mode-disable-before-save-hook #[0 "\301\300!\210\302\211\207" [before-save-hook make-local-variable nil] 2]) (add-hook 'git-rebase-mode-hook 'git-rebase-mode-disable-before-save-hook) (defconst git-rebase-filename-regexp "/git-rebase-todo\\'") (byte-code "\301\302\303B\"\210\301\304\305B\"\210\306\307\310\"\210\301\311\"\207" [git-rebase-filename-regexp add-to-list auto-mode-alist git-rebase-mode with-editor-server-window-alist switch-to-buffer eval-after-load recentf #[0 " \235\203 \207 B\211\207" [git-rebase-filename-regexp recentf-exclude] 2] with-editor-file-name-history-exclude] 4)#@111 Move point to previous commit in git-rebase buffer. Used as a value for `imenu-prev-index-position-function'. (defalias 'magit-imenu--rebase-prev-index-position-function #[0 "\3002o?\205\301 \210\302 \203\303\300\304\"\210\2020\207" [found git-rebase-backward-line git-rebase-line-p throw t] 3 (#$ . 31410)])#@159 Return imenu name for line at point. Point should be at the beginning of the line. This function is used as a value for `imenu-extract-index-name-function'. (defalias 'magit-imenu--rebase-extract-index-name-function #[0 "\300\301 \302 \"\207" [buffer-substring-no-properties line-beginning-position line-end-position] 3 (#$ . 31733)]) (provide 'git-rebase)