;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; 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&\210\336\337\340\341\313\333%\210\336\342\343\344\313\333%\210\336\345\307\346\313\333%\210\336\347\350\351\313\333%\210\336\352\353\354\313\333%\210\336\355\356\357\313\360%\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] "Whether to move to next line after changing a line." :type boolean git-rebase-show-instructions #[0 "\300\207" [t] 1] "Whether to show usage instructions inside the rebase buffer." git-rebase-confirm-cancel #[0 "\300\207" [t] 1] "Whether confirmation is required to cancel." git-rebase-faces "Faces used by Git-Rebase mode." faces custom-declare-face git-rebase-hash ((t (:inherit magit-hash))) "Face for commit hashes." git-rebase-label ((t (:inherit magit-refname))) "Face for labels in label, merge, and reset lines." git-rebase-description "Face for commit descriptions." git-rebase-killed-action ((t (:inherit font-lock-comment-face :strike-through t))) "Face for commented commit action lines." git-rebase-comment-hash ((t (:inherit git-rebase-hash :weight bold))) "Face for commit hashes in commit message comments." git-rebase-comment-heading ((t :inherit font-lock-keyword-face)) "Face for headings in rebase message comments." git-commit-faces] 8) #@29 Keymap for Git-Rebase mode. (defvar git-rebase-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\321#\210\303\323\324#\210\303\325\326#\210\303\327\330#\210\303\331\332#\210\303\333\334#\210\303\335\326#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\343#\210\303\345\346#\210\303\347\350#\210\303\351\352#\210\303\353\354#\210\303\355\356#\210\303\357\360#\210\303\361\362#\210\303\363\313#\210\303\364\313#\210\303\365\315#\210\303\366\367#\210\207" [special-mode-map make-sparse-keymap set-keymap-parent define-key " " git-rebase-show-commit "p" git-rebase-backward-line "n" forward-line [134217840] git-rebase-move-line-up [134217838] git-rebase-move-line-down "c" git-rebase-pick "k" git-rebase-kill-line " " "b" git-rebase-break "e" git-rebase-edit "l" git-rebase-label "MM" git-rebase-merge "Mt" git-rebase-merge-toggle-editmsg "m" "f" git-rebase-fixup "q" undefined "r" git-rebase-reword "w" "s" git-rebase-squash "t" git-rebase-reset "x" git-rebase-exec "y" git-rebase-insert "z" git-rebase-noop " " git-rebase-show-or-scroll-up "" git-rebase-show-or-scroll-down "" [M-up] [M-down] [remap undo] git-rebase-undo] 5) (#$ . 1766)) (byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\207" [put git-rebase-reword :advertised-binding "r" git-rebase-move-line-up [134217840] git-rebase-kill-line "k"] 4) #@22 Git-Rebase mode menu (defvar git-rebase-mode-menu nil (#$ . 3262)) (easy-menu-do-define 'git-rebase-mode-menu git-rebase-mode-map "Git-Rebase mode menu" '("Rebase" ["Pick" git-rebase-pick 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-kill-line . "drop the commit at point") (git-rebase-insert . "insert a line for an arbitrary commit") (git-rebase-noop . "add noop action at point"))) #@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 (#$ . 4570) 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 (#$ . 4768) 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 (#$ . 4982) nil]) #@130 Meld commit on current line into previous commit, edit 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 (#$ . 5192) nil]) #@137 Meld commit on current line into previous commit, discard its 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 (#$ . 5430) 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") (101 . "edit") (102 . "fixup") (108 . "label") (109 . "merge") (112 . "pick") (114 . "reword") (115 . "squash") (116 . "reset") (120 . "exec")) (#$ . 5763)) (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))] 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 (#$ . 6753)]) (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\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 7065)]) (defvar git-rebase-line-regexps (byte-code "\300\301B\302\303\304B\305\306B\307\310B\257\207" [commit "\\(?1:edit\\|fixup\\|pick\\|reword\\|squash\\|[efprs]\\) \\(?3:[^ \n]+\\) ?\\(?4:.*\\)" (exec . "\\(?1:x\\|exec\\) \\(?3:.*\\)") bare "\\(?1:b\\(?:reak\\)?\\|noop\\) *$" label "\\(?1:label\\|reset\\|[lt]\\) \\(?3:[^ \n]+\\) ?\\(?4:.*\\)" merge "\\(?1:m\\|merge\\) \\(?:\\(?2:-[cC] [^ \n]+\\) \\)?\\(?3:[^ \n]+\\) ?\\(?4:.*\\)"] 6)) #@157 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. (defalias 'git-rebase-current-line #[0 "\212\303 b\210\304\305!\306Q\211\205\307\310\311\" \"\211\203K\312\313\314\315\316!\211\205.\317\n\"A\206.\211\262\320\315\321!\322\315\323!\324\315\325!\326\327\330!\205D\331&\f\266\202\202O\312 \266\202)\207" [comment-start git-rebase-line-regexps git-rebase-short-options line-beginning-position "^\\(?5:" regexp-quote "\\)? *" seq-some make-closure #[257 "\302\303\300AP!\205 \211@)\207" [V0 case-fold-search nil looking-at] 4 "\n\n(fn ARG)"] git-rebase-action :action-type :action match-string-no-properties 1 assoc :action-options 2 :target 3 :trailer 4 :comment-p match-string 5 t] 16 (#$ . 7737)]) #@248 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 the rebase line, regardless of its action type. (fn ACTION) (defalias 'git-rebase-set-action #[257 "\304\305!\211:\203\246\211\242\243\211:\203\243\211\242\243\211\204\240\306!\205&\307 `W\310\305\"\210b\210`W\203\210\311 \n\203_\312\313\"\314=\203_\305\315 \210\n\316\312\317\"\316\312\320\"\321\260c\210)\210\202.\312\313\"\203\201\n\204\201\312\322\"\204\201\305\n\316\261\210)\323y\266\202.\323y\266\202. \203\220\202\232\211\203\231S\202\232b\210\324 b\207\325 \207\325 \207\325 \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 trailer "\n" comment-p nil line-beginning-position ding] 18 (#$ . 8561)]) #@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 (#$ . 9583)]) #@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&\212\301 b\210\302 )\212\303 b\210\304 )\305!\205%\305!\205%TD\207\211\2055\305 \2055\302 \304 TD\207" [use-region-p region-beginning line-beginning-position region-end line-end-position git-rebase-line-p] 5 (#$ . 9769)]) #@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 \203U\212eb\210\312 \204I\313\314\315!)\262\204I \316P\314\315!)\262\203O\317y\210\202*\307 )\202VdS}\210 \320W\203feU\204y \320V\203sdU\204ydV\203~\321 \202\332 \320W\203\211\202\212b\210 y\210\322 \317\f\211\317C\323\324#\216\325!\210\314\326  \"c\210)`\nZZ\327 \203\314\317\330\\!\210\211\\b\262\314\240\210,\266\205)\207" [mark-active git-rebase-show-instructions inhibit-changing-match-data git-rebase-comment-re most-positive-fixnum undo-strong-limit git-rebase-region-bounds line-beginning-position line-end-position mark git-rebase-line-p "^$" t looking-at " Branch" nil 0 ding prepare-change-group make-closure #[0 "\301\242\203 \302\300!\207\303\300!\207" [V0 V1 accept-change-group cancel-change-group] 2] activate-change-group delete-and-extract-region use-region-p set-mark undo-limit undo-outer-limit inhibit-read-only deactivate-mark] 19 (#$ . 10337) "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 (#$ . 11593) "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-keep-region-overlay t nil git-rebase-region-bounds mapc delete-overlay magit-section-make-overlay magit-section-heading-selection default-value redisplay-unhighlight-region-function redisplay-highlight-region-function] 12 (#$ . 11903)]) #@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 (#$ . 12415)]) #@96 Kill the current action line. 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 (#$ . 12636) nil]) #@70 Read an arbitrary commit and insert it below current line. (fn REV) (defalias 'git-rebase-insert #[257 "\301y\210\302\303\"\211\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 (#$ . 12838) (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\333\211\242\211\312\232\203\312\243\211:\203\273\211\242\211\204\210\243\211:\203y\211\243\211\204i\313 \202t\f\f $\262\202\203  \n$\262\202\266\243\211:\203\252\211\243\211\204\232\314 \202\245\f\f $\262\202\264  \n$\262\262\202\305  $\262\202\324$\262\266\202\202\347$\266\202\262\266\211)\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] 26 (#$ . 13206)]) #@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 (#$ . 14189) "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 (#$ . 14704) "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 (#$ . 15433) "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 (#$ . 15985) "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 C)"] action-options target trailer ding] 9 (#$ . 16549) 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 (#$ . 17267)]) #@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 (#$ . 17657) "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 (#$ . 18276) "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 (#$ . 18858) "P"]) #@25 (fn &optional SCROLL) (defalias 'git-rebase--show-commit #[256 "\301\212\302 b\210\303 \304\305\"\306=\205\304\307\"\262\211\2036\310\267\202,\311 \2028\312 \2028\313\314\315\316!#\2028\317 \262*\207" [disable-magit-save-buffers t line-beginning-position 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 34 down 39)) magit-diff-show-or-scroll-up magit-diff-show-or-scroll-down apply magit-show-commit magit-diff-arguments magit-revision-mode ding] 7 (#$ . 19056)]) #@45 Show the commit on the current line if any. (defalias 'git-rebase-show-commit #[0 "\300 \207" [git-rebase--show-commit] 1 (#$ . 19644) 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 (#$ . 19792) 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 (#$ . 20167) 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 (#$ . 20548) "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\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\210\303\311\323\324#\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 (lambda (def-tmp-var) (defvar git-rebase-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `git-rebase-mode'." (lambda (def-tmp-var) (defvar git-rebase-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "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 (#$ . 22039) nil]) #@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 (#$ . 24296)]) (defalias 'git-rebase-autostash-save #[0 "\301\302\303!!\211\205\304BB\211\207" [with-editor-cancel-alist magit-file-line magit-git-dir "rebase-merge/autostash" stash] 3]) (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 (#$ . 24811)]) #@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\314\315 \316\304\236AQ\317B\320\321\322\323\324\n\"\325B\323\326\n\"\327B\323\330\n\"\331B\257 \207" [git-rebase-line-regexps git-rebase-comment-re comment-start "^" commit ((1 'font-lock-keyword-face) (3 'git-rebase-hash) (4 'git-rebase-description)) exec ((1 'font-lock-keyword-face) (3 'git-rebase-description)) bare ((1 'font-lock-keyword-face)) label ((1 'font-lock-keyword-face) (3 'git-rebase-label) (4 'font-lock-comment-face)) ("^\\(m\\(?:erge\\)?\\) -[Cc] \\([^ \n]+\\) \\([^ \n]+\\)\\( #.*\\)?" (1 'font-lock-keyword-face) (2 'git-rebase-hash) (3 'git-rebase-label) (4 'font-lock-comment-face)) ("^\\(m\\(?:erge\\)?\\) \\([^ \n]+\\)" (1 'font-lock-keyword-face) (2 'git-rebase-label)) " *" (0 'git-rebase-killed-action t) (git-rebase-match-comment-line 0 'font-lock-comment-face) ("\\[[^[]*\\]" 0 'magit-keyword t) ("\\(?:fixup!\\|squash!\\)" 0 'magit-keyword-squash t) format "^%s Rebase \\([^ ]*\\) onto \\([^ ]*\\)" ((1 'git-rebase-comment-hash t) (2 'git-rebase-comment-hash t)) "^%s \\(Commands:\\)" ((1 'git-rebase-comment-heading t)) "^%s Branch \\(.*\\)" ((1 'git-rebase-label t))] 15 (#$ . 24966)]) #@247 Modify the "Commands:" section of the comment Git generates at the bottom of the file so that in place of the one-letter abbreviation for the command, it shows the command's keybinding. By default, this is the same except for the "pick" command. (defalias 'git-rebase-mode-show-keybindings #[0 "\306\212eb\210 \205\254\307\n\310P\311\306#\205\254\312 b\210 \211\203;\211@\211\242\243\313\314\f\315\313\316\"!$c\266A\266\202\202\210\307\n\317P\311\306#\205\254\320\321\322\323!P!\324!\204^\312 \325 T|\266\202<\326\327\306\211\311\330%\210\326\313\331\332\333\311\334\335 \"!\336\311\211\203\231\211A\262\242\262\262T\262\336\234\337=\204vB\262\202v\266\211\237\262\340#\"\306\211\311\341%\266\202<*\207" [inhibit-read-only git-rebase-show-instructions git-rebase-comment-re git-rebase-command-descriptions comment-start git-rebase-mode-map t re-search-forward "\\s-+p, pick" nil line-beginning-position format "%s %-8s %s\n" substitute-command-keys "\\[%s]" "\\( ?\\)\\([^\n,],\\) \\([^\n ]+\\) " intern "git-rebase-" match-string 3 fboundp line-end-position replace-match " " 1 "%-8s" mapconcat key-description reverse where-is-internal 0 menu-bar ", " 2] 13 (#$ . 26265)]) (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\"\210\312\313!\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 provide git-rebase] 4)