mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 5ddac8bd2392ec5b64392e8750d725029bf5aa79
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
;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\203MdU\204SdV\203X\316 \202\271    \315W\203c\202db\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\212A\211:\203\202\211@\211\204hA\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\311A\211:\203\304\211@\211\204\273A\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)