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

Chizi123
2018-11-17 5cb5f70b1872a757e93ea333b0e2dca50c6c8957
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 "\300\301!\210\302\303\304\305\306\307%\210\310\311\312\313\314DD\315\306\303\316\317\320\321&    \207" [require magit custom-declare-group magit-extras nil "Additional functionality for Magit." :group magit-extensions custom-declare-variable magit-gitk-executable funcall function #[0 "\301=\203\302\303\304\305\306$\211\205\307!\205\211\262\206#\310\311!\206#\311\207" [system-type windows-nt magit-git-string "-c" "alias.X=!x() { which \"$1\" | cygpath -mf -; }; x" "X" "gitk.exe" file-executable-p executable-find "gitk"] 5] "The Gitk executable." :set-after (magit-git-executable) :type string] 10)
16 #@47 Run `git gui' for the current git repository.
17 (defalias 'magit-run-git-gui #[0 "\302 \211\203\211\303    \304\305\304\306%)\202\307 \207" [default-directory magit-git-executable magit-toplevel magit-process-file nil 0 "gui" magit--not-inside-repository-error] 7 (#$ . 1031) nil])
18 #@334 Run `git gui blame' on the given FILENAME and COMMIT.
19 Interactively run it for the current file and the `HEAD', with a
20 prefix or when the current file cannot be determined let the user
21 choose.  When the current buffer is visiting FILENAME instruct
22 blame to center around the line point is on.
23
24 (fn COMMIT FILENAME &optional LINENUM)
25 (defalias 'magit-run-git-gui-blame #[770 "\302 \211\203(\211\303\304    \305\306\305\307\310\311\n\205\312\313\f\"C  D\"&)\202*\314 \207" [default-directory magit-git-executable magit-toplevel apply magit-process-file nil 0 "gui" "blame" append format "--line=%d" magit--not-inside-repository-error] 16 (#$ . 1320) (byte-code "\302\211\204\303\262\304\302\305\"\211\262\204\306\307!\262\310\311\"\262\211\3121,\304    !0\202.\210\302\232\2054\313 E\207" [current-prefix-arg buffer-file-name nil "HEAD" magit-file-relative-name tracked magit-read-branch-or-commit "Blame from revision" magit-read-file-from-rev "Blame file" (error) line-number-at-pos] 7)])
26 #@39 Run `gitk' in the current repository.
27 (defalias 'magit-run-gitk #[0 "\301\302\303#\207" [magit-gitk-executable magit-process-file nil 0] 4 (#$ . 2334) nil])
28 #@50 Run `gitk --branches' in the current repository.
29 (defalias 'magit-run-gitk-branches #[0 "\301\302\303\302\304%\207" [magit-gitk-executable magit-process-file nil 0 "--branches"] 6 (#$ . 2498) nil])
30 #@45 Run `gitk --all' in the current repository.
31 (defalias 'magit-run-gitk-all #[0 "\301\302\303\302\304%\207" [magit-gitk-executable magit-process-file nil 0 "--all"] 6 (#$ . 2703) nil])
32 #@693 Drop into `magit-status' from file switching.
33
34 This command does not work in Emacs 26.  It does work in Emacs 25
35 and Emacs 27.  See https://github.com/magit/magit/issues/3634 and
36 https://debbugs.gnu.org/cgi/bugreport.cgi?bug=31707.
37
38 To make this command available use something like:
39
40   (add-hook \='ido-setup-hook
41             (lambda ()
42               (define-key ido-completion-map
43                 (kbd "C-x g") \='ido-enter-magit-status)))
44
45 Starting with Emacs 25.1 the Ido keymaps are defined just once
46 instead of every time Ido is invoked, so now you can modify it
47 like pretty much every other keymap:
48
49   (define-key ido-common-completion-map
50     (kbd "C-x g") \='ido-enter-magit-status)
51 (defalias 'ido-enter-magit-status #[0 "\301\303\211\304 \207" [ido-exit fallback ido-fallback magit-status exit-minibuffer] 3 (#$ . 2894) nil])
52 #@183 Visit file at point using Dired.
53 With a prefix argument, visit in another window.  If there
54 is no file at point, then instead visit `default-directory'.
55
56 (fn &optional OTHER-WINDOW)
57 (defalias 'magit-dired-jump #[256 "\300\301 \211\205\302\303!\203\304!\202!\262\"\207" [dired-jump magit-file-at-point expand-file-name file-directory-p file-name-as-directory] 7 (#$ . 3740) "P"])
58 #@76 Show log for all marked files, or the current file.
59
60 (fn &optional FOLLOW)
61 (defalias 'magit-dired-log #[256 "\302!\211\203F\303 @\304\305\211\306#\211\204\307\310!\210\203+\311\235\204+\211A\204+\311B\262\312\313\314 \2063\315C\316\317\")E    #\266\202\202H\320 \207" [default-directory magit-log-buffer-file-locked magit-toplevel magit-log-arguments dired-get-marked-files nil magit-file-tracked-p user-error "No marked file is being tracked by Git" "--follow" magit-mode-setup-internal magit-log-mode magit-get-current-branch "HEAD" mapcar file-relative-name magit--not-inside-repository-error] 11 (#$ . 4136) "P"])
62 #@98 Open FILE with `dired-do-async-shell-command'.
63 Interactively, open the file at point.
64
65 (fn FILE)
66 (defalias 'magit-do-async-shell-command #[257 "\301\302!\210\303\304\305C#\306C#\207" [current-prefix-arg require dired-aux dired-do-async-shell-command dired-read-shell-command "& on %s: " nil] 6 (#$ . 4776) (byte-code "\300 \206\n\301\302\303 \"C\207" [magit-file-at-point completing-read "Act on file: " magit-list-files] 3)])
67 (defalias 'magit--turn-on-shift-select-mode-p #[0 "\205    \205\n?\205 \242\304=?\207" [shift-select-mode this-command-keys-shift-translated mark-active transient-mark-mode only] 2])
68 #@511 Like `previous-line' but with Magit-specific shift-selection.
69
70 Magit's selection mechanism is based on the region but selects an
71 area that is larger than the region.  This causes `previous-line'
72 when invoked while holding the shift key to move up one line and
73 thereby select two lines.  When invoked inside a hunk body this
74 command does not move point on the first invocation and thereby
75 it only selects a single line.  Which inconsistency you prefer
76 is a matter of preference.
77
78 (fn &optional ARG TRY-VSCROLL)
79 (defalias 'magit-previous-line #[512 "\204\300\262\301 \206\302 \211\203%\300U\203%\303 \203%\304\305\211\306#\2027\307 \210\310\2034S\300]\2025\"\207" [1 magit-diff-inside-hunk-body-p magit-section-position-in-heading-p magit--turn-on-shift-select-mode-p push-mark nil t handle-shift-selection previous-line] 7 (#$ . 5401) "p\np"])
80 (byte-code "\300\301\302\303#\300\207" [function-put magit-previous-line interactive-only "use `forward-line' with negative argument instead."] 4)
81 #@505 Like `next-line' but with Magit-specific shift-selection.
82
83 Magit's selection mechanism is based on the region but selects
84 an area that is larger than the region.  This causes `next-line'
85 when invoked while holding the shift key to move down one line
86 and thereby select two lines.  When invoked inside a hunk body
87 this command does not move point on the first invocation and
88 thereby it only selects a single line.  Which inconsistency you
89 prefer is a matter of preference.
90
91 (fn &optional ARG TRY-VSCROLL)
92 (defalias 'magit-next-line #[512 "\204\300\262\301 \206\302 \211\203%\300U\203%\303 \203%\304\305\211\306#\2027\307 \210\310\2034S\300]\2025\"\207" [1 magit-diff-inside-hunk-body-p magit-section-position-in-heading-p magit--turn-on-shift-select-mode-p push-mark nil t handle-shift-selection next-line] 7 (#$ . 6415) "p\np"])
93 (byte-code "\300\301\302\303#\300\207" [function-put magit-next-line interactive-only forward-line] 4)
94 #@197 Remove untracked files from the working tree.
95 With a prefix argument also remove ignored files,
96 with two prefix arguments remove ignored files only.
97
98 (git clean -f -d [-x|-X])
99
100 (fn &optional ARG)
101 (defalias 'magit-clean #[256 "\300\301\302\303\267\202\304\202\305\202\306\"!\205.\307 \210\310\311\312\313\314\267\202,\315\202-\316\202-\317$\207" [yes-or-no-p format "Remove %s files? " #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1 9 4 13)) "untracked" "untracked and ignored" "ignored" magit-wip-commit-before-change magit-run-git "clean" "-f" "-d" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (4 36 16 40)) "-x" "-X" nil] 7 (#$ . 7371) "p"])
102 (put 'magit-clean 'disabled t)
103 #@275 Find change log file and add date entry and item for current change.
104 This differs from `add-change-log-entry' (which see) in that
105 it acts on the current hunk in a Magit buffer instead of on
106 a position in a file-visiting buffer.
107
108 (fn &optional WHOAMI FILE-NAME OTHER-WINDOW)
109 (defalias 'magit-add-change-log-entry #[768 "\300\211\301 \302\303\304\305\306!\307\"\310$\216\311\312!\210p\262`\262)\210\212rq\210\211b\210\313#*\207" [nil current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 call-interactively magit-diff-visit-file add-change-log-entry] 12 (#$ . 8146) (byte-code "\301 D\207" [current-prefix-arg prompt-for-change-log-name] 2)])
110 #@267 Find change log file in other window and add entry and item.
111 This differs from `add-change-log-entry-other-window' (which see)
112 in that it acts on the current hunk in a Magit buffer instead of
113 on a position in a file-visiting buffer.
114
115 (fn &optional WHOAMI FILE-NAME)
116 (defalias 'magit-add-change-log-entry-other-window #[512 "\300\301#\207" [magit-add-change-log-entry t] 6 (#$ . 8854) (byte-code "\205\301 D\207" [current-prefix-arg prompt-for-change-log-name] 2)])
117 #@338 Edit the commit that added the current line.
118
119 With a prefix argument edit the commit that removes the line,
120 if any.  The commit is determined using `git blame' and made
121 editable using `git rebase --interactive' if it is reachable
122 from `HEAD', or by checking out the commit (or a branch that
123 points at it) otherwise.
124
125 (fn &optional TYPE)
126 (defalias 'magit-edit-line-commit #[256 "\305\206\306!\307\310\"\211\311\232\203\312\313!\202y\314\315\"\316\307\317\"\320 \"\2033\321\322\323 \"\210)\202=\324\325!\206;!\210    \205E\326    \"?\205w\n\205N \203g\327\f\330\331\332\333\334\"\335\"\336\337%\"\202u\340!\210\211\205u\341!\210\342 \262\266\202\207" [magit--rebase-published-symbol buffer-file-name magit-blame-mode magit-blame-type magit-this-process magit-current-blame-chunk addition eieio-oref orig-rev "0000000000000000000000000000000000000000" message "This line has not been committed yet" magit-rev-ancestor-p "HEAD" expand-file-name orig-file magit-toplevel edit-published magit-rebase-edit-commit magit-rebase-arguments magit-checkout magit-rev-branch file-equal-p set-process-sentinel make-byte-code 514 "\302\"\210\303!\304=\205\305\300!\210\301\205\306\301!\210\307 \207" vconcat vector [magit-sequencer-process-sentinel process-status exit find-file magit-blame--pre-blame-setup magit-blame--run] 5 "\n\n(fn PROCESS EVENT)" find-file magit-blame--pre-blame-setup magit-blame--run] 15 (#$ . 9332) (byte-code "\205\301C\207" [current-prefix-arg removal] 1)])
127 (put 'magit-edit-line-commit 'disabled t)
128 #@767 From a hunk, edit the respective commit and visit the file.
129
130 First visit the file being modified by the hunk at the correct
131 location using `magit-diff-visit-file'.  This actually visits a
132 blob.  When point is on a diff header, not within an individual
133 hunk, then this visits the blob the first hunk is about.
134
135 Then invoke `magit-edit-line-commit', which uses an interactive
136 rebase to make the commit editable, or if that is not possible
137 because the commit is not reachable from `HEAD' by checking out
138 that commit directly.  This also causes the actual worktree file
139 to be visited.
140
141 Neither the blob nor the file buffer are killed when finishing
142 the rebase.  If that is undesirable, then it might be better to
143 use `magit-rebase-edit-command' instead of this command.
144 (defalias 'magit-diff-edit-hunk-commit #[0 "\301\302\303 \211\203\304!\202\305\306!\262\301\307#\210)\310 \207" [magit-diff-visit-previous-blob nil magit-diff-visit-file magit-file-at-point expand-file-name user-error "No file at point" switch-to-buffer magit-edit-line-commit] 4 (#$ . 10887) nil])
145 (put 'magit-diff-edit-hunk-commit 'disabled t)
146 #@455 Change the author and committer dates of the commits since REV.
147
148 Ask the user for the first reachable commit whose dates should
149 be changed.  The read the new date for that commit.  The initial
150 minibuffer input and the previous history element offer good
151 values.  The next commit will be created one minute later and so
152 on.
153
154 This command is only intended for interactive use and should only
155 be used on highly rearranged and unpublished history.
156
157 (fn REV)
158 (defalias 'magit-reshelve-since #[257 "\211\204\303\304 P\305!\203\306\307\"\204\310\311!\210\210\312\313\314\"\207\315\316P\211\317\304 Q\320\321\322\323\"!!\324\"\320 \321\325\326\327#![\"B\330\320\331\332\333\300#!!!C\334 \211\203\204\211\335\336\337\340\341\342\343\344\345\346\347\350 !\351\"\352\353%\354\326\355#\356#\"    \357&\210\360\n\361\")\202\206\362 \262\262\266\204\207" [magit--reshelve-history default-directory magit-this-process "refs/original/refs/heads/" magit-get-current-branch magit-ref-p magit-y-or-n-p "Backup ref %s already exists.  Override? " user-error "Abort" magit-log-select magit-reshelve-since "Type %p on a commit to reshelve it and the commits above it," #[514 "\300\301\302\303!\304_\305!@[#\"\207" [format-time-string "%F %T %z" + floor 60 decode-time] 9 "\n\n(fn TIME OFFSET)"] "^" ".." float-time string-to-number magit-rev-format "%at" 1 magit-git-string "rev-list" "--count" floor date-to-time read-string "Date for first commit: " magit-toplevel magit-run-git-async "filter-branch" "--force" "--env-filter" format "case $GIT_COMMIT in %s\nesac" mapconcat make-byte-code 257 "\301\302\300\242\300\242$\300\211\242\303\\\240\210\207" vconcat vector [format "%s) export GIT_AUTHOR_DATE=\"%s\"; export GIT_COMMITTER_DATE=\"%s\";;" 60] 6 "\n\n(fn REV)" magit-git-lines "--reverse" " " "--" set-process-sentinel #[514 "\300!\301>\205(\302!\303V\203\304\"\207\305\306\307#\210\304\"\210\310\311\312\313\314 P#\207" [process-status (exit signal) process-exit-status 0 magit-process-sentinel process-put inhibit-refresh t magit-run-git "update-ref" "-d" "refs/original/refs/heads/" magit-get-current-branch] 7 "\n\n(fn PROCESS EVENT)"] magit--not-inside-repository-error] 21 (#$ . 12013) (list nil)])
159 (defvar magit-revision-stack nil)
160 (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&    \207" [custom-declare-variable magit-pop-revision-stack-format funcall function #[0 "\300\207" [("[%N: %h] " "%N: %H\n   %s\n" "\\[\\([0-9]+\\)[]:]")] 1] "Control how `magit-pop-revision-stack' inserts a revision.\n\nThe command `magit-pop-revision-stack' inserts a representation\nof the revision last pushed to the `magit-revision-stack' into\nthe current buffer.  It inserts text at point and/or near the end\nof the buffer, and removes the consumed revision from the stack.\n\nThe entries on the stack have the format (HASH TOPLEVEL) and this\noption has the format (POINT-FORMAT EOB-FORMAT INDEX-REGEXP), all\nof which may be nil or a string (though either one of EOB-FORMAT\nor POINT-FORMAT should be a string, and if INDEX-REGEXP is\nnon-nil, then the two formats should be too).\n\nFirst INDEX-REGEXP is used to find the previously inserted entry,\nby searching backward from point.  The first submatch must match\nthe index number.  That number is incremented by one, and becomes\nthe index number of the entry to be inserted.  If you don't want\nto number the inserted revisions, then use nil for INDEX-REGEXP.\n\nIf INDEX-REGEXP is non-nil, then both POINT-FORMAT and EOB-FORMAT\nshould contain \"%N\", which is replaced with the number that was\ndetermined in the previous step.\n\nBoth formats, if non-nil and after removing %N, are then expanded\nusing `git show --format=FORMAT ...' inside TOPLEVEL.\n\nThe expansion of POINT-FORMAT is inserted at point, and the\nexpansion of EOB-FORMAT is inserted at the end of the buffer (if\nthe buffer ends with a comment, then it is inserted right before\nthat)." :package-version (magit . "2.3.0") :group magit-commands :type (list (choice (string :tag "Insert at point format") (cons (string :tag "Insert at point format") (repeat (string :tag "Argument to git show"))) (const :tag "Don't insert at point" nil)) (choice (string :tag "Insert at eob format") (cons (string :tag "Insert at eob format") (repeat (string :tag "Argument to git show"))) (const :tag "Don't insert at eob" nil)) (choice (regexp :tag "Find index regexp") (const :tag "Don't number entries" nil)))] 10)
161 #@1112 Insert a representation of a revision into the current buffer.
162
163 Pop a revision from the `magit-revision-stack' and insert it into
164 the current buffer according to `magit-pop-revision-stack-format'.
165 Revisions can be put on the stack using `magit-copy-section-value'
166 and `magit-copy-buffer-revision'.
167
168 If the stack is empty or with a prefix argument, instead read a
169 revision in the minibuffer.  By using the minibuffer history this
170 allows selecting an item which was popped earlier or to insert an
171 arbitrary reference or revision without first pushing it onto the
172 stack.
173
174 When reading the revision from the minibuffer, then it might not
175 be possible to guess the correct repository.  When this command
176 is called inside a repository (e.g. while composing a commit
177 message), then that repository is used.  Otherwise (e.g. while
178 composing an email) then the repository recorded for the top
179 element of the stack is used (even though we insert another
180 revision).  If not called inside a repository and with an empty
181 stack, or with two prefix arguments, then read the repository in
182 the minibuffer too.
183
184 (fn REV TOPLEVEL)
185 (defalias 'magit-pop-revision-stack #[514 "\203\301@A\211@A\211@A    \2050\212\303\304\305#\203.\306\307\310\311!!T!\202/\312)\304\211<\203AA\262@\262<\203NA\262@\262\203l\203a\313\314\305\211%\262\315#\210\316\311!\210\205\273\203\313\314\305\211%\262\212db\210\317\320!\210\321 \210\n\203\240\322\n!\203\240\322\n!\203\254\323y\210\202\224\304y\210i\324U\204\254\325c\210\325c\210\315#\210\316\311!))\266\204\266\203\207\326\327!\207" [magit-pop-revision-stack-format default-directory comment-start re-search-backward nil t number-to-string string-to-number match-string 1 "1" replace-regexp-in-string "%N" magit-rev-insert-format backward-delete-char skip-syntax-backward ">s-" beginning-of-line looking-at -1 0 10 user-error "Revision stack is empty"] 21 (#$ . 16484) (byte-code "\204    \204&\304!\305U\204\306 \206    @A@\206\307 \310\311!\n)D\207    @@ B    \211A\242\207" [current-prefix-arg magit-revision-stack default-directory magit-revision-history prefix-numeric-value 16 magit-toplevel magit-read-repository magit-read-branch-or-commit "Insert revision"] 2)])
186 (define-key git-commit-mode-map "" 'magit-pop-revision-stack)
187 #@571 Save the value of the current section for later use.
188
189 Save the section value to the `kill-ring', and, provided that
190 the current section is a commit, branch, or tag section, push
191 the (referenced) revision to the `magit-revision-stack' for use
192 with `magit-pop-revision-stack'.
193
194 When the current section is a branch or a tag, and a prefix
195 argument is used, then save the revision at its tip to the
196 `kill-ring' instead of the reference name.
197
198 When the region is active, then save that to the `kill-ring',
199 like `kill-ring-save' would, instead of behaving as described
200 above.
201 (defalias 'magit-copy-section-value #[0 "\303 \203 \304\305\211\306#\207\307 \211\205\310\311\"\211\205|\307 \211\203t\312\313\"\203t\305\307 \211\203=\312\314\"\203=\262\202S\211\203S\312\315\"\203S\316\317\320!\321 \"!\210\322!\262D    B\323\324\325\n\203j\206l\"!)\266\202\202z\323\324\325\"!\262\207" [default-directory magit-revision-stack current-prefix-arg use-region-p copy-region-as-kill nil region magit-current-section eieio-oref value magit-section-match-1 (branch commit module-commit tag) (branch tag) module-commit file-name-as-directory expand-file-name magit-section-parent-value magit-toplevel magit-rev-parse kill-new message "%s"] 10 (#$ . 18804) nil])
202 #@800 Save the revision of the current buffer for later use.
203
204 Save the revision shown in the current buffer to the `kill-ring'
205 and push it to the `magit-revision-stack'.
206
207 This command is mainly intended for use in `magit-revision-mode'
208 buffers, the only buffers where it is always unambiguous exactly
209 which revision should be saved.
210
211 Most other Magit buffers usually show more than one revision, in
212 some way or another, so this command has to select one of them,
213 and that choice might not always be the one you think would have
214 been the best pick.
215
216 In such buffers it is often more useful to save the value of
217 the current section instead, using `magit-copy-section-value'.
218
219 When the region is active, then save that to the `kill-ring',
220 like `kill-ring-save' would, instead of behaving as described
221 above.
222 (defalias 'magit-copy-buffer-revision #[0 "\304 \203 \305\306\211\307#\207\310>\203    @\202:\311>\2033    @@\312\313\"\203-\314\315\"\202.\211\262\202:\316=\205:\317\211\205U\320!\205U\321!\262\211\nD B\322\323\324\"!\207" [major-mode magit-refresh-args default-directory magit-revision-stack use-region-p copy-region-as-kill nil region (magit-cherry-mode magit-log-select-mode magit-reflog-mode magit-refs-mode magit-revision-mode magit-stash-mode magit-stashes-mode) (magit-diff-mode magit-log-mode) string-match "\\.\\.\\.?\\(.+\\)" match-string 1 magit-status-mode "HEAD" magit-rev-verify-commit magit-rev-parse kill-new message "%s"] 5 (#$ . 20087) nil])
223 #@146 Abort current operation.
224 Depending on the context, this will abort a merge, a rebase, a
225 patch application, a cherry-pick, a revert, or a bisect.
226 (defalias 'magit-abort-dwim #[0 "\300 \203\301 \207\302 \203\303 \207\304 \203\305 \207\306 \203 \307 \207\310 \205'\311 \207" [magit-merge-in-progress-p magit-merge-abort magit-rebase-in-progress-p magit-rebase-abort magit-am-in-progress-p magit-am-abort magit-sequencer-in-progress-p magit-sequencer-abort magit-bisect-in-progress-p magit-bisect-reset] 1 (#$ . 21570) nil])
227 (provide 'magit-extras)