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

Chizi123
2018-11-21 5ddac8bd2392ec5b64392e8750d725029bf5aa79
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\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"])
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\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"])
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)