;ELC
|
;;; Compiled
|
;;; in Emacs version 26.1
|
;;; with all optimizations.
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
(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)
|
#@29 Keymap for Git-Rebase mode.
|
(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))
|
(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)
|
#@22 Git-Rebase mode menu
|
(defvar git-rebase-mode-menu nil (#$ . 3760))
|
(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")))
|
#@29 Use commit on current line.
|
(defalias 'git-rebase-pick #[0 "\300\301!\207" [git-rebase-set-action "pick"] 2 (#$ . 5068) nil])
|
#@41 Edit message of commit on current line.
|
(defalias 'git-rebase-reword #[0 "\300\301!\207" [git-rebase-set-action "reword"] 2 (#$ . 5200) nil])
|
#@41 Stop at the commit on the current line.
|
(defalias 'git-rebase-edit #[0 "\300\301!\207" [git-rebase-set-action "edit"] 2 (#$ . 5348) nil])
|
#@65 Meld commit on current line into previous commit, edit message.
|
(defalias 'git-rebase-squash #[0 "\300\301!\207" [git-rebase-set-action "squash"] 2 (#$ . 5492) nil])
|
#@72 Meld commit on current line into previous commit, discard its message.
|
(defalias 'git-rebase-fixup #[0 "\300\301!\207" [git-rebase-set-action "fixup"] 2 (#$ . 5664) nil])
|
(defvar git-rebase-line nil nil)
|
(make-variable-buffer-local 'git-rebase-line)
|
(defvar git-rebase-comment-re nil nil)
|
(make-variable-buffer-local 'git-rebase-comment-re)
|
#@15
|
|
(fn ACTION)
|
(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)])
|
#@22
|
|
(fn &optional POS)
|
(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)])
|
(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])
|
#@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@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"])
|
#@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 (#$ . 7988) "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 (#$ . 8297)])
|
#@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 (#$ . 8808)])
|
#@31 Kill the current action line.
|
(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 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)\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)])
|
#@317 Insert a shell command to be run after the proceeding 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 "\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"])
|
#@504 Add noop action at point.
|
|
If the current line already contains a 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 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 "\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"])
|
#@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 (#$ . 11742) "P"])
|
#@25
|
|
(fn &optional SCROLL)
|
(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)])
|
#@45 Show the commit on the current line if any.
|
(defalias 'git-rebase-show-commit #[0 "\300 \207" [git-rebase--show-commit] 1 (#$ . 12463) 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 (#$ . 12611) 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 (#$ . 12986) 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 (#$ . 13367) "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 (#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)
|
#@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 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])
|
#@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 (#$ . 17265)])
|
(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 (#$ . 17780)])
|
#@41 Font lock keywords for Git-Rebase mode.
|
(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)])
|
#@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 "\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)])
|
(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 "\301\302\"\207" [git-rebase-filename-regexp add-to-list recentf-exclude] 3] with-editor-file-name-history-exclude provide git-rebase] 4)
|
