| 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 "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\301\307\310\311#\2032 \306\312\300!\205$ >\2032 \313\314!\2032 \314\315!\210\316\317\310\320\321\322\323\324&\210\325\326\327\330\331DD\332\323\317\333\334&\210\325\335\327\330\336DD\337\323\317\333\334&\210\325\340\327\330\341DD\342\323\317\333\334&\210\316\343\310\344\323\345\323\317&\210\346\347\350\351\323\343%\210\346\352\310\353\323\343%\210\346\354\355\356\323\343%\210\346\357\360\361\323\343%\210\346\362\363\364\323\365%\207" [async-bytecomp-allowed-packages require dash easymenu server with-editor magit async-bytecomp nil t boundp fboundp async-bytecomp-package-mode 1 custom-declare-group git-rebase "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-description "Face for commit descriptions." git-rebase-killed-action ((t (:inherit font-lock-comment-face :strike-through t))) "Face for commented action and exec 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) | |
| 16 | #@29 Keymap for Git-Rebase mode. | |
| 17 | (defvar git-rebase-mode-map (byte-code "\301 \302\"\210\303\304!\203: \305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\305\316\317#\210\305\320\321#\210\305\322\323#\210\202j \305\324\307#\210\305\320\311#\210\305\325\313#\210\305\326\315#\210\305\327\317#\210\305\330\321#\210\305\312\323#\210\305\331\323#\210\305\332\333#\210\305\334\333#\210\305\335\336#\210\305\337\340#\210\305\341\342#\210\305\343\342#\210\305\344\345#\210\305\346\347#\210\305\350\351#\210\305\352\353#\210\305\354\355#\210\305\356\357#\210\305\360\315#\210\305\361\315#\210\305\362\317#\210\305\363\364#\210\211\207" [special-mode-map make-sparse-keymap set-keymap-parent featurep jkl define-key [return] git-rebase-show-commit "i" git-rebase-backward-line "k" forward-line [134217833] git-rebase-move-line-up [134217835] git-rebase-move-line-down "p" git-rebase-pick "," git-rebase-kill-line " " "n" [134217840] [134217838] "c" " " "e" git-rebase-edit "m" "f" git-rebase-fixup "q" undefined "r" git-rebase-reword "w" "s" git-rebase-squash "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) (#$ . 2150)) | |
| 18 | (byte-code "\300\301!\203 \302\303\304\305#\210\302\306\304\307#\210\302\310\304\311#\210\202- \302\303\304\305#\210\302\306\304\312#\210\302\310\304\313#\210\300\207" [featurep jkl put git-rebase-reword :advertised-binding "r" git-rebase-move-line-up [134217833] git-rebase-kill-line "," [134217840] "k"] 4) | |
| 19 | #@22 Git-Rebase mode menu | |
| 20 | (defvar git-rebase-mode-menu nil (#$ . 3760)) | |
| 21 | (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])) | |
| 22 | (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"))) | |
| 23 | #@29 Use commit on current line. | |
| 24 | (defalias 'git-rebase-pick #[0 "\300\301!\207" [git-rebase-set-action "pick"] 2 (#$ . 5068) nil]) | |
| 25 | #@41 Edit message of commit on current line. | |
| 26 | (defalias 'git-rebase-reword #[0 "\300\301!\207" [git-rebase-set-action "reword"] 2 (#$ . 5200) nil]) | |
| 27 | #@41 Stop at the commit on the current line. | |
| 28 | (defalias 'git-rebase-edit #[0 "\300\301!\207" [git-rebase-set-action "edit"] 2 (#$ . 5348) nil]) | |
| 29 | #@65 Meld commit on current line into previous commit, edit message. | |
| 30 | (defalias 'git-rebase-squash #[0 "\300\301!\207" [git-rebase-set-action "squash"] 2 (#$ . 5492) nil]) | |
| 31 | #@72 Meld commit on current line into previous commit, discard its message. | |
| 32 | (defalias 'git-rebase-fixup #[0 "\300\301!\207" [git-rebase-set-action "fixup"] 2 (#$ . 5664) nil]) | |
| 33 | (defvar git-rebase-line nil nil) | |
| 34 | (make-variable-buffer-local 'git-rebase-line) | |
| 35 | (defvar git-rebase-comment-re nil nil) | |
| 36 | (make-variable-buffer-local 'git-rebase-comment-re) | |
| 37 | #@15 | |
| 38 | ||
| 39 | (fn ACTION) | |
| 40 | (defalias 'git-rebase-set-action #[257 "\304 b\210\305!\203. \306\307\310!\311\312\313#)\266\203\204. \312\314\312\211\311\310%\210 \205, \311y)\207\315 \207" [git-rebase-line inhibit-changing-match-data inhibit-read-only git-rebase-auto-advance line-beginning-position looking-at "\\(e\\|exec\\|noop\\)$" match-string 1 nil t string-match replace-match ding] 8 (#$ . 6011)]) | |
| 41 | #@22 | |
| 42 | ||
| 43 | (fn &optional POS) | |
| 44 | (defalias 'git-rebase-line-p #[256 "\212\211\203 \211b\210\302 b\210\303\304!)\262)\207" [git-rebase-line inhibit-changing-match-data line-beginning-position t looking-at] 4 (#$ . 6414)]) | |
| 45 | (defalias 'git-rebase-region-bounds #[0 "\300 \205' \212\301 b\210\302 )\212\303 b\210\304 )\305!\205% \305!\205% TD\266\202\207" [use-region-p region-beginning line-beginning-position region-end line-end-position git-rebase-line-p] 4]) | |
| 46 | #@201 Move the current commit (or command) N lines down. | |
| 47 | If N is negative, move the commit up instead. With an active | |
| 48 | region, move all the lines that the region touches, not just the | |
| 49 | current line. | |
| 50 | ||
| 51 | (fn N) | |
| 52 | (defalias 'git-rebase-move-line-down #[257 "\306 \206 \307 \310 TD\211@A\211@A`Z\205 \311 Z\214e\212eb\210\312 \313\314#\204& `)T}\210 \315W\203@ eU\204S \315V\203M dU\204S dV\203X \316 \202\271 \315W\203c \202d b\210 y\210\317 \313\n\211\313C \320\315\321\322\323 \"\324\"\325$\216\326!\210\314 \327\n\"c\210)` ZZ\330 \203\254 \313\331\\!\210\211\\b\266\211\314\240,\266\205)\266\202\266\202\207" [mark-active git-rebase-line most-positive-fixnum undo-strong-limit undo-limit undo-outer-limit git-rebase-region-bounds line-beginning-position line-end-position mark re-search-forward nil t 0 ding prepare-change-group make-byte-code "\301\242\203 \302\300!\207\303\300!\207" vconcat vector [accept-change-group cancel-change-group] 2 activate-change-group delete-and-extract-region use-region-p set-mark inhibit-read-only deactivate-mark] 22 (#$ . 6876) "p"]) | |
| 53 | #@201 Move the current commit (or command) N lines up. | |
| 54 | If N is negative, move the commit down instead. With an active | |
| 55 | region, move all the lines that the region touches, not just the | |
| 56 | current line. | |
| 57 | ||
| 58 | (fn N) | |
| 59 | (defalias 'git-rebase-move-line-up #[257 "\300[!\207" [git-rebase-move-line-down] 3 (#$ . 7988) "p"]) | |
| 60 | #@29 | |
| 61 | ||
| 62 | (fn START END WINDOW ROL) | |
| 63 | (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 (#$ . 8297)]) | |
| 64 | #@12 | |
| 65 | ||
| 66 | (fn ROL) | |
| 67 | (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 (#$ . 8808)]) | |
| 68 | #@31 Kill the current action line. | |
| 69 | (defalias 'git-rebase-kill-line #[0 "\304 b\210\305!\205# \306f\307 !=?\205# \310 c\210\311c\210) \205# \306y\207" [git-rebase-line comment-start inhibit-read-only git-rebase-auto-advance line-beginning-position looking-at nil string-to-char t " "] 3 (#$ . 9028) nil]) | |
| 70 | #@70 Read an arbitrary commit and insert it below current line. | |
| 71 | ||
| 72 | (fn REV) | |
| 73 | (defalias 'git-rebase-insert #[257 "\301y\210\302\303\"\211\203 \304\305\306\261)\202 \307\310!\207" [inhibit-read-only nil magit-rev-format "%h %s" t "pick " 10 user-error "Unknown revision"] 5 (#$ . 9335) (byte-code "\300\301!C\207" [magit-read-branch-or-commit "Insert revision"] 2)]) | |
| 74 | #@317 Insert a shell command to be run after the proceeding commit. | |
| 75 | ||
| 76 | If there already is such a command on the current line, then edit | |
| 77 | that instead. With a prefix argument insert a new command even | |
| 78 | when there already is one on the current line. With empty input | |
| 79 | remove the command on the current line, if any. | |
| 80 | ||
| 81 | (fn ARG) | |
| 82 | (defalias 'git-rebase-exec #[257 "\303\304\211C\204 \305 b\210\306 \307\310Q!\203 \311\312!\262\211\313\314\"\240\210\211\242D\315:\203\316 @\211\316\232\203\212 A\211:\203\202 \211@\211\204h A\211\204M \317 \202c \320\321\242P\303\211#\210\n\203` \304y\202c \305 b\262\202} A\211\204w \322\224\322\225T|\202{ !\262\262\202\205 !\262\202\311 A\211:\203\304 \211@\211\204\273 A\211\204\262 \304y\210\321\242\323Qc\210\n?\205\266 \324y\202\266 !\262\202\277 !\262\202\307 !\262\262\202\321 \211!\266\202)\207" [inhibit-read-only git-rebase-comment-re git-rebase-auto-advance t nil line-beginning-position looking-at "?" "\\(e\\|exec\\) \\(.*\\)" match-string-no-properties 2 read-shell-command "Execute: " #[257 "\301\302\242P\303\211#\210\203 \304y\207\305 b\207" [git-rebase-auto-advance replace-match #1="exec " t nil line-beginning-position] 5 "\n\n(fn COMMAND)"] "" ding replace-match #1# 0 "\n" -1] 14 (#$ . 9705) "P"]) | |
| 83 | #@504 Add noop action at point. | |
| 84 | ||
| 85 | If the current line already contains a a noop action, leave it | |
| 86 | unchanged. If there is a commented noop action present, remove | |
| 87 | the comment. Otherwise add a new noop action. With a prefix | |
| 88 | argument insert a new noop action regardless what is already | |
| 89 | present on the current line. | |
| 90 | ||
| 91 | A noop action can be used to make git perform a rebase even if | |
| 92 | no commits are selected. Without the noop action present, git | |
| 93 | would see an empty file and therefore do nothing. | |
| 94 | ||
| 95 | (fn &optional ARG) | |
| 96 | (defalias 'git-rebase-noop #[256 "\302 b\210\303\204 \304!?\205' \305\204$ \304 P!\203$ \306\307!\202& \211c)\207" [inhibit-read-only comment-start line-beginning-position "noop \n" looking-at t delete-char 1] 5 (#$ . 10996) "P"]) | |
| 97 | #@93 Undo some previous changes. | |
| 98 | Like `undo' but works in read-only buffers. | |
| 99 | ||
| 100 | (fn &optional ARG) | |
| 101 | (defalias 'git-rebase-undo #[256 "\301\302!)\207" [inhibit-read-only t undo] 3 (#$ . 11742) "P"]) | |
| 102 | #@25 | |
| 103 | ||
| 104 | (fn &optional SCROLL) | |
| 105 | (defalias 'git-rebase--show-commit #[256 "\302\212\303 b\210\304 !\205 \305\306!\211\203- \307\267\202$ \310 \202/ \311 \202/ \312\313\314 #\202/ \315 \262*\207" [disable-magit-save-buffers git-rebase-line t line-beginning-position looking-at match-string 2 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (up 26 down 31)) magit-diff-show-or-scroll-up magit-diff-show-or-scroll-down apply magit-show-commit magit-diff-arguments ding] 6 (#$ . 11940)]) | |
| 106 | #@45 Show the commit on the current line if any. | |
| 107 | (defalias 'git-rebase-show-commit #[0 "\300 \207" [git-rebase--show-commit] 1 (#$ . 12463) nil]) | |
| 108 | #@259 Update the commit buffer for commit on current line. | |
| 109 | ||
| 110 | Either show the commit at point in the appropriate buffer, or if | |
| 111 | that buffer is already being displayed in the current frame and | |
| 112 | contains information about that commit, then instead scroll the | |
| 113 | buffer up. | |
| 114 | (defalias 'git-rebase-show-or-scroll-up #[0 "\300\301!\207" [git-rebase--show-commit up] 2 (#$ . 12611) nil]) | |
| 115 | #@261 Update the commit buffer for commit on current line. | |
| 116 | ||
| 117 | Either show the commit at point in the appropriate buffer, or if | |
| 118 | that buffer is already being displayed in the current frame and | |
| 119 | contains information about that commit, then instead scroll the | |
| 120 | buffer down. | |
| 121 | (defalias 'git-rebase-show-or-scroll-down #[0 "\300\301!\207" [git-rebase--show-commit down] 2 (#$ . 12986) nil]) | |
| 122 | #@125 Move N lines backward (forward if N is negative). | |
| 123 | Like `forward-line' but go into the opposite direction. | |
| 124 | ||
| 125 | (fn &optional N) | |
| 126 | (defalias 'git-rebase-backward-line #[256 "\211\206 \300[y\207" [1] 2 (#$ . 13367) "p"]) | |
| 127 | (defvar git-rebase-mode-hook nil) | |
| 128 | (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) | |
| 129 | (defvar git-rebase-mode-map (make-sparse-keymap)) | |
| 130 | (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 (#1=#:def-tmp-var) (defvar git-rebase-mode-syntax-table #1#)) make-syntax-table "Syntax table for `git-rebase-mode'." (lambda (#1#) (defvar git-rebase-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `git-rebase-mode'." derived-mode-parent special-mode custom-mode-group git-rebase] 5) | |
| 131 | #@496 Major mode for editing of a Git rebase file. | |
| 132 | ||
| 133 | Rebase files are generated when you run 'git rebase -i' or run | |
| 134 | `magit-interactive-rebase'. They describe how Git should perform | |
| 135 | the rebase. See the documentation for git-rebase (e.g., by | |
| 136 | running 'man git-rebase' at the command line) for details. | |
| 137 | ||
| 138 | In addition to any hooks its parent mode `special-mode' might have run, | |
| 139 | this mode runs the hook `git-rebase-mode-hook', as the final or penultimate step | |
| 140 | during initialization. | |
| 141 | ||
| 142 | \{git-rebase-mode-map} | |
| 143 | (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 8=\204R \326 \3258C#\210\327 !\210\330\f!\210 8\331\332!\206d \3339\334\3359!P:\336\3359!\337\340\341\260;\342 \307\211E<=\204\217 \307 >\343:!\210)$\204\230 \344\345!\210?\203\244 \346\347\350\351\307$\210\306\352!\210\353*\306\354!\210\355,\346\356\357\351\307$\210\346\360\361\351\307$\210\362@\363A\364\365!\203\317 \3515)\366\367!\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 "^\\(" "? *" "\\(?:[fprse]\\|pick\\|reword\\|edit\\|squash\\|fixup\\|exec\\|noop\\)\\) " "\\(?:\\([^ \n]+\\) \\(.*\\)\\)?" 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 git-rebase-line 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 (#$ . 14839) nil]) | |
| 144 | #@14 | |
| 145 | ||
| 146 | (fn FORCE) | |
| 147 | (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 (#$ . 17265)]) | |
| 148 | (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]) | |
| 149 | (defalias 'git-rebase-autostash-apply #[0 "\301\236A\211\205 \302!\207" [with-editor-cancel-alist stash magit-stash-apply] 3]) | |
| 150 | #@14 | |
| 151 | ||
| 152 | (fn LIMIT) | |
| 153 | (defalias 'git-rebase-match-comment-line #[257 "\301\302P\303#\207" [git-rebase-comment-re re-search-forward ".*" t] 5 (#$ . 17780)]) | |
| 154 | #@41 Font lock keywords for Git-Rebase mode. | |
| 155 | (defalias 'git-rebase-mode-font-lock-keywords #[0 "\302\303P\304B\305\306\307\310Q\311B\312\313\314 \"\315B\313\316 \"\317B\257\207" [git-rebase-comment-re comment-start "\\([efprs]\\|pick\\|reword\\|edit\\|squash\\|fixup\\) \\([^ \n]+\\) \\(.*\\)" "^" ((1 'font-lock-keyword-face) (2 'git-rebase-hash) (3 'git-rebase-description)) ("^\\(exec\\) \\(.*\\)" (1 'font-lock-keyword-face) (2 'git-rebase-description)) ("^\\(noop\\)" (1 'font-lock-keyword-face)) (git-rebase-match-comment-line 0 'font-lock-comment-face) " *" (0 'git-rebase-killed-action t) ("\\[[^[]*\\]" 0 'magit-keyword 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))] 11 (#$ . 17935)]) | |
| 156 | #@247 Modify the "Commands:" section of the comment Git generates | |
| 157 | at the bottom of the file so that in place of the one-letter | |
| 158 | abbreviation for the command, it shows the command's keybinding. | |
| 159 | By default, this is the same except for the "pick" command. | |
| 160 | (defalias 'git-rebase-mode-show-keybindings #[0 "\305\212eb\210 \205\245 \306\n\307P\310\305#\205\245 \311 b\210 \211\203; \211@\211@A\211\312\313\f\314\312\315\"!$c\266A\266\202\202 \210\306\n\316\317Q\310\305#\205\245 \320\321\322\323!P!\324!\204^ \311 \325 T|\210\202\241 \326\327\305\211\310\330%\210\326\312\331\332\333\310\334\335!!\336\203\222 @\211\336\234\337=\204\206 \211B\262\210\211T\262A\262\202s \266\211\237\262\340#\"\305\211\310\341%\210\210\202< *\207" [inhibit-read-only git-rebase-show-instructions git-rebase-comment-re git-rebase-command-descriptions comment-start 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 (#$ . 18764)]) | |
| 161 | (add-hook 'git-rebase-mode-hook 'git-rebase-mode-show-keybindings t) | |
| 162 | (defalias 'git-rebase-mode-disable-before-save-hook #[0 "\301\300!\210\302\211\207" [before-save-hook make-local-variable nil] 2]) | |
| 163 | (add-hook 'git-rebase-mode-hook 'git-rebase-mode-disable-before-save-hook) | |
| 164 | (defconst git-rebase-filename-regexp "/git-rebase-todo\\'") | |
| 165 | (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 "\301\302\"\207" [git-rebase-filename-regexp add-to-list recentf-exclude] 3] with-editor-file-name-history-exclude provide git-rebase] 4) | |
