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\300\302!\210\303\304\305\306\307DD\310\311\312\313\314&\210\303\315\305\306\316DD\317\320\321\311\322\313\323& \210\303\324\305\306\325DD\326\320\327\311\322\313\330& \210\303\331\305\306\332DD\333\320\334\311\322\313\330& \210\303\335\305\306\336DD\337\320\340\311\322\313\330& \210\303\341\305\306\342DD\343\320\344\311\322\313\330& \210\303\345\305\306\346DD\347\320\350\311\322\313\351& \207" [require magit magit-sequence custom-declare-variable magit-commit-arguments funcall function #[0 "\300\207" [nil] 1] "The arguments used when committing." :group magit-git-arguments :type (repeat (string :tag "Argument")) magit-commit-ask-to-stage #[0 "\300\207" [verbose] 1] "Whether to ask to stage all unstaged changes when committing and nothing is staged." :package-version (magit . "2.3.0") magit-commands (choice (const :tag "Ask showing diff" verbose) (const :tag "Ask" t) (const :tag "Don't ask" nil)) magit-commit-show-diff #[0 "\300\207" [t] 1] "Whether the relevant diff is automatically shown when committing." (magit . "2.3.0") boolean magit-commit-extend-override-date #[0 "\300\207" [t] 1] "Whether using `magit-commit-extend' changes the committer date." (magit . "2.3.0") magit-commit-reword-override-date #[0 "\300\207" [t] 1] "Whether using `magit-commit-reword' changes the committer date." (magit . "2.3.0") magit-commit-squash-confirm #[0 "\300\207" [t] 1] "Whether the commit targeted by squash and fixup has to be confirmed.\nWhen non-nil then the commit at point (if any) is used as default\nchoice, otherwise it has to be confirmed. This option only\naffects `magit-commit-squash' and `magit-commit-fixup'. The\n\"instant\" variants always require confirmation because making\nan error while using those is harder to recover from." (magit . "2.1.0") magit-post-commit-hook #[0 "\300\207" [nil] 1] "Hook run after creating a commit without the user editing a message.\n\nThis hook is run by `magit-refresh' if `this-command' is a member\nof `magit-post-stage-hook-commands'. This only includes commands\nnamed `magit-commit-*' that do *not* require that the user edits\nthe commit message in a buffer and then finishes by pressing\n\\<with-editor-mode-map>\\[with-editor-finish].\n\nAlso see `git-commit-post-finish-hook'." (magit . "2.90.0") hook] 10) |
|
16 |
(defvar magit-post-commit-hook-commands '(magit-commit-extend magit-commit-fixup magit-commit-augment magit-commit-instant-fixup magit-commit-instant-squash)) |
|
17 |
#@56 Popup console for commit commands. |
|
18 |
|
|
19 |
(fn &optional ARG) |
|
20 |
(defalias 'magit-commit-popup #[256 "\300 \211\203\f \301!\202 \302\303\304#\207" [magit-commit-message-buffer switch-to-buffer magit-invoke-popup magit-commit-popup nil] 6 (#$ . 2874) "P"]) |
|
21 |
(defvar magit-commit-popup '(:variable magit-commit-arguments :man-page "git-commit" :switches ((97 "Stage all modified and deleted files" "--all") (101 "Allow empty commit" "--allow-empty") (118 "Show diff of changes to be committed" "--verbose") (104 "Disable hooks" "--no-verify") (115 "Add Signed-off-by line" "--signoff") (82 "Claim authorship and reset author date" "--reset-author")) :options ((65 "Override the author" "--author=") (83 "Sign using gpg" "--gpg-sign=" magit-read-gpg-secret-key) (67 "Reuse commit message" "--reuse-message=" magit-read-reuse-message)) :actions ((99 "Commit" magit-commit-create) (101 "Extend" magit-commit-extend) (102 "Fixup" magit-commit-fixup) (70 "Instant Fixup" magit-commit-instant-fixup) nil (119 "Reword" magit-commit-reword) (115 "Squash" magit-commit-squash) (83 "Instant Squash" magit-commit-instant-squash) nil (97 "Amend" magit-commit-amend) (65 "Augment" magit-commit-augment)) :max-action-columns 4 :default-action magit-commit-create)) |
|
22 |
(magit-define-popup-keys-deferred 'magit-commit-popup) |
|
23 |
(defalias 'magit-commit-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-commit-arguments magit-commit-popup] 2]) |
|
24 |
(defvar magit-gpg-secret-key-hist nil) |
|
25 |
#@39 |
|
26 |
|
|
27 |
(fn PROMPT &optional INITIAL-INPUT) |
|
28 |
(defalias 'magit-read-gpg-secret-key #[513 "\302\303!\210\304\305\306\307!\310\311#\"\312\313\310\211\211\301 \206 @&\314\"@\207" [epa-protocol magit-gpg-secret-key-hist require epa mapcar #[257 "\303\211!>\204 \304\305\306D\"\210\307H@! >\2044 \304\305\310\303!>\204- \304\305\306D\"\210\307H@D\"\210\303!>\204C \304\305\306D\"\210\211\307H@\311H\312\303!>\204Y \304\305\306D\"\210\313H@\211\205\201 \303!\n>\204p \304\305\314D\"\210\211\307H\211;\203| \211\202 \315!\262\262Q\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags cl-struct-epg-user-id-tags type-of signal wrong-type-argument epg-key 2 epg-sub-key 6 " " 3 epg-user-id epg-decode-dn] 8 "\n\n(fn IT)"] epg-list-keys epg-make-context nil t split-string magit-completing-read " "] 12 (#$ . 4372)]) |
|
29 |
#@33 |
|
30 |
|
|
31 |
(fn PROMPT &optional DEFAULT) |
|
32 |
(defalias 'magit-read-reuse-message #[513 "\300\301 \302\211\211\303\206 \304\305!\205 \305&\207" [magit-completing-read magit-list-refnames nil magit-revision-history magit-rev-verify "ORIG_HEAD"] 11 (#$ . 5210)]) |
|
33 |
#@145 Create a new commit on `HEAD'. |
|
34 |
With a prefix argument, amend to the commit at `HEAD' instead. |
|
35 |
|
|
36 |
(git commit [--amend] ARGS) |
|
37 |
|
|
38 |
(fn &optional ARGS) |
|
39 |
(defalias 'magit-commit-create #[256 "\302\235\203 \303\304!\211\262\205 \305 \306\307\")\207" [this-command default-directory "--all" magit-commit-all magit-commit-assert magit-toplevel magit-run-git-with-editor "commit"] 4 (#$ . 5470) (byte-code "\203\n \301\302 BC\207\302 C\207" [current-prefix-arg "--amend" magit-commit-arguments] 2)]) |
|
40 |
#@72 Amend the last commit. |
|
41 |
|
|
42 |
(git commit --amend ARGS) |
|
43 |
|
|
44 |
(fn &optional ARGS) |
|
45 |
(defalias 'magit-commit-amend #[256 "\300 \210\301\302\303#\207" [magit-commit-amend-assert magit-run-git-with-editor "commit" "--amend"] 5 (#$ . 5971) (byte-code "\300 C\207" [magit-commit-arguments] 1)]) |
|
46 |
#@298 Amend the last commit, without editing the message. |
|
47 |
|
|
48 |
With a prefix argument keep the committer date, otherwise change |
|
49 |
it. The option `magit-commit-extend-override-date' can be used |
|
50 |
to inverse the meaning of the prefix argument. |
|
51 |
(git commit |
|
52 |
--amend --no-edit) |
|
53 |
|
|
54 |
(fn &optional ARGS OVERRIDE-DATE) |
|
55 |
(defalias 'magit-commit-extend #[512 "\301?\"\211\262\205! \302 \210\211\204 \303\304!B\305\306\307\310$)\207" [process-environment magit-commit-assert magit-commit-amend-assert magit-rev-format "GIT_COMMITTER_DATE=%cD" magit-run-git-with-editor "commit" "--amend" "--no-edit"] 7 (#$ . 6256) (byte-code "\302 \203 ?\202\f D\207" [current-prefix-arg magit-commit-extend-override-date magit-commit-arguments] 2)]) |
|
56 |
#@377 Reword the last commit, ignoring staged changes. |
|
57 |
|
|
58 |
With a prefix argument keep the committer date, otherwise change |
|
59 |
it. The option `magit-commit-reword-override-date' can be used |
|
60 |
to inverse the meaning of the prefix argument. |
|
61 |
|
|
62 |
Non-interactively respect the optional OVERRIDE-DATE argument |
|
63 |
and ignore the option. |
|
64 |
|
|
65 |
(git commit --amend --only) |
|
66 |
|
|
67 |
(fn &optional ARGS OVERRIDE-DATE) |
|
68 |
(defalias 'magit-commit-reword #[512 "\301 \210\211\204 \302\303!B\304\305\306\307$)\207" [process-environment magit-commit-amend-assert magit-rev-format "GIT_COMMITTER_DATE=%cD" magit-run-git-with-editor "commit" "--amend" "--only"] 7 (#$ . 6985) (byte-code "\302 \203 ?\202\f D\207" [current-prefix-arg magit-commit-reword-override-date magit-commit-arguments] 2)]) |
|
69 |
#@242 Create a fixup commit. |
|
70 |
|
|
71 |
With a prefix argument the target COMMIT has to be confirmed. |
|
72 |
Otherwise the commit at point may be used without confirmation |
|
73 |
depending on the value of option `magit-commit-squash-confirm'. |
|
74 |
|
|
75 |
(fn &optional COMMIT ARGS) |
|
76 |
(defalias 'magit-commit-fixup #[512 "\300\301#\207" [magit-commit-squash-internal "--fixup"] 6 (#$ . 7746) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-commit-arguments] 2)]) |
|
77 |
#@279 Create a squash commit, without editing the squash message. |
|
78 |
|
|
79 |
With a prefix argument the target COMMIT has to be confirmed. |
|
80 |
Otherwise the commit at point may be used without confirmation |
|
81 |
depending on the value of option `magit-commit-squash-confirm'. |
|
82 |
|
|
83 |
(fn &optional COMMIT ARGS) |
|
84 |
(defalias 'magit-commit-squash #[512 "\300\301#\207" [magit-commit-squash-internal "--squash"] 6 (#$ . 8184) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-commit-arguments] 2)]) |
|
85 |
#@271 Create a squash commit, editing the squash message. |
|
86 |
|
|
87 |
With a prefix argument the target COMMIT has to be confirmed. |
|
88 |
Otherwise the commit at point may be used without confirmation |
|
89 |
depending on the value of option `magit-commit-squash-confirm'. |
|
90 |
|
|
91 |
(fn &optional COMMIT ARGS) |
|
92 |
(defalias 'magit-commit-augment #[512 "\300\301\302\303%\207" [magit-commit-squash-internal "--squash" nil t] 8 (#$ . 8661) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-commit-arguments] 2)]) |
|
93 |
#@90 Create a fixup commit targeting COMMIT and instantly rebase. |
|
94 |
|
|
95 |
(fn &optional COMMIT ARGS) |
|
96 |
(defalias 'magit-commit-instant-fixup #[512 "\300\301\302$\207" [magit-commit-squash-internal "--fixup" t] 7 (#$ . 9144) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-commit-arguments] 2)]) |
|
97 |
#@91 Create a squash commit targeting COMMIT and instantly rebase. |
|
98 |
|
|
99 |
(fn &optional COMMIT ARGS) |
|
100 |
(defalias 'magit-commit-instant-squash #[512 "\300\301\302$\207" [magit-commit-squash-internal "--squash" t] 7 (#$ . 9443) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-commit-arguments] 2)]) |
|
101 |
#@59 |
|
102 |
|
|
103 |
(fn OPTION COMMIT &optional ARGS REBASE EDIT CONFIRMED) |
|
104 |
(defalias 'magit-commit-squash-internal #[1538 "C\306\307\"C\211\242\205\346 \203@ \242\203@ \310\311\"\204@ \312\313\314 \"\315P\316\"\211\317\267\202? \320\240\210\202? \320\262\202? \321\322!\210\210\203L \323\307\"\262\203\272 \204b \242\204\272 \204\272 \204\272 \320\211\324 Q\242B\240\210\204{ \211\325\242B\240\210\242\203\257 \326\327=\203\217 \f\204\217 \330\202\220
01223\331 \210\332\333\334\335\336\337\340\"\242\"#\210,\202\265 \341\333\242\"\210)\307\202\346 \342\343\344\345\346\347
$\350\"\351\352%\313\353\354\320O\"\"\210\n\205\346 \3074\355\356\320\357 #)\262\207" [current-prefix-arg magit-commit-squash-confirm magit-commit-show-diff system-type magit-cygwin-mount-points shell-file-name magit-commit-assert t magit-rev-ancestor-p "HEAD" read-char-choice format "%s isn't an ancestor of HEAD. " "[c]reate without rebasing, [s]elect other, [a]bort " (99 115 97) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (99 46 115 53 97 59)) nil user-error "Quit" magit-rebase-interactive-assert "=" "--no-edit" -1 windows-nt "cmdproxy" with-editor--setup magit-call-git "commit" "--no-gpg-sign" -remove-first apply-partially string-match-p "\\`--gpg-sign=" magit-run-git-with-editor magit-log-select make-byte-code 257 "\304\300\303\242\301\242\302\305&\205\" |