mirror of https://github.com/Chizi123/.emacs.d.git
view | history | commit | commitdiff
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 "\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\"\301\242\205\"\306!\210\307\310\311D\312\313\314\305&\207" vconcat vector [magit-commit-squash-internal t magit-commit-amend-assert magit-rebase-interactive-1 "--autosquash" "--autostash" "" "true" nil] 8 "\n\n(fn COMMIT)" "Type %%p on a commit to %s into it," 2 apply magit-diff-staged magit-diff-arguments magit-process-popup-time magit-with-editor-envvar process-environment with-editor--envvar magit-display-buffer-noselect] 18 (#$ . 9745)])
105 #@25 
106
107 (fn &optional COMMIT)
108 (defalias 'magit-commit-amend-assert #[256 "\300!\211\205\301\302\303\304\305Q\306Q\307%\266\202\207" [magit-list-publishing-branches "This commit has already been published to " ".\nDo you really want to modify it" magit-confirm amend-published "%s" "%i public branches" nil] 10 (#$ . 11621)])
109 #@30 
110
111 (fn ARGS &optional STRICT)
112 (defalias 'magit-commit-assert #[513 "\302 \204 \303 \203\304\235\204 \211\204'\305\235\204 \306\235\203'\206\217\307C\207\310 \203@\303 \204@\311\312!\203@\313\314\315\316\"\210\317\207\320\321\322!!\203T\303 \204T\206\217\307C\207\303 \204]\323\324!\207    \203\214    \325=\203j\326 \210\311\327!\205|\330\331\332\333#\210\206|\307C    \325=\203\213\334\335!\203\217\336 \210\207\323\337!\207" [this-command magit-commit-ask-to-stage magit-anything-staged-p magit-anything-unstaged-p "--all" "--amend" "--allow-empty" "--" magit-rebase-in-progress-p y-or-n-p "Nothing staged.  Continue in-progress rebase? " magit-rebase-continue magit-run-git-sequencer "rebase" "--continue" nil file-exists-p magit-git-dir "MERGE_MSG" user-error "Nothing staged (or unstaged)" verbose magit-diff-unstaged "Nothing staged.  Stage and commit all unstaged changes? " magit-run-git "add" "-u" "." derived-mode-p magit-diff-mode magit-mode-bury-buffer "Nothing staged"] 6 (#$ . 11955)])
113 (defvar magit--reshelve-history nil)
114 #@339 Change the committer date and possibly the author date of `HEAD'.
115
116 If you are the author of `HEAD', then both dates are changed,
117 otherwise only the committer date.  The current time is used
118 as the initial minibuffer input and the original author (if
119 that is you) or committer date is available as the previous
120 history element.
121
122 (fn DATE)
123 (defalias 'magit-commit-reshelve #[257 "\301PB\302\303\304\305\306\307!\205\310P$)\207" [process-environment "GIT_COMMITTER_DATE=" magit-run-git "commit" "--amend" "--no-edit" magit-rev-author-p "HEAD" "--date="] 7 (#$ . 13017) (byte-code "\301\302!\303\203\f\304\202 \305\302\306#B\307\203\310\202\311\312\313!\314B\300#C\207" [magit--reshelve-history magit-rev-author-p "HEAD" magit-rev-format "%ad" "%cd" "--date=format:%F %T %z" read-string "Change author and committer dates to: " "Change committer date to: " format-time-string "%F %T %z" 17] 5)])
124 #@190 Spread unstaged changes across recent commits.
125 Without a prefix argument just call `magit-commit-absorb'.
126 With a prefix argument use a popup buffer to select arguments.
127
128 (fn &optional ARG)
129 (defalias 'magit-commit-absorb-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-commit-absorb-popup nil] 5 (#$ . 13934) "P"])
130 (defvar magit-commit-absorb-popup (list :variable 'magit-commit-absorb-arguments :man-page "git-bisect" :options '((99 "Diff context lines" "--context=") (115 "Strictness" "--strict=")) :actions '((120 "Absorb" magit-commit-absorb)) :default-action 'magit-commit-absorb :use-prefix 'popup))
131 (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-commit-absorb-popup custom-declare-variable magit-commit-absorb-arguments funcall function #[0 "\301\302\"\207" [magit-commit-absorb-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8)
132 (defalias 'magit-commit-absorb-arguments #[0 "\303=\203    \207\n\207" [magit-current-popup magit-current-popup-args magit-commit-absorb-arguments magit-commit-absorb-popup] 2])
133 (put 'magit-commit-absorb-arguments 'definition-name 'magit-commit-absorb-popup)
134 #@200 Spread unstaged changes across recent commits.
135 This command requires the git-autofixup script, which is
136 available from https://github.com/torbiak/git-autofixup.
137
138 (fn &optional COMMIT ARGS CONFIRMED)
139 (defalias 'magit-commit-absorb #[768 "\300\301!\204 \302\303\304\"\210\305 \203\302\306!\210\307 \204\302\310!\210\203'\311\312\"\262\2039\211\2039\313\314\315$\210\312\207\316\317\320\321\322\323!\324\"\325\326%\327\211\211\211&\207" [executable-find "git-autofixup" user-error "This command requires the git-autofixup script, which %s" "is available from https://github.com/torbiak/git-autofixup" magit-anything-staged-p "Cannot absorb when there are staged changes" magit-anything-unstaged-p "There are no unstaged changes that could be absorbed" magit-rebase-interactive-assert t magit-run-git-async "autofixup" "-vv" magit-log-select make-byte-code 257 "\301\300\302#\207" vconcat vector [magit-commit-absorb t] 5 "\n\n(fn COMMIT)" nil] 10 (#$ . 15178) (byte-code "\300 \301 D\207" [magit-get-upstream-branch magit-commit-absorb-arguments] 2)])
140 (defalias 'magit-commit-diff #[0 "\205l    \205l\306\307!\211\203\310\311\"\210\210\3121j\313 @\314\315\311\316\317!\210\320 \321\"\2034\322\323\311\"\202J\320 \324\"\203B\322\325\311\"\202J\326 \327\"\205J\330\211\203T\211!\202c\331 \203`\323\311\"\202c\330!\262+\2620\207\210\311\207" [git-commit-mode magit-commit-show-diff inhibit-quit magit-display-buffer-noselect magit-inhibit-save-previous-winconf last-command magit-mode-get-buffer magit-diff-mode unrecord-window-buffer nil (quit) magit-diff-arguments unset t message "Diffing changes to be committed (C-g to abort diffing)" eql magit-commit apply-partially magit-diff-staged magit-commit-all magit-diff-working-tree memql (magit-commit-amend magit-commit-reword magit-rebase-reword-commit) magit-diff-while-amending magit-anything-staged-p] 5])
141 (byte-code "\301\302\303\"\210\304\305\306B\"\207" [git-commit-filename-regexp add-hook server-switch-hook magit-commit-diff add-to-list with-editor-server-window-alist switch-to-buffer] 4)
142 (defalias 'magit-commit-message-buffer #[0 "\302\303 \304\305\306\307 !\306 \"\302\310\203B\203B@\203#\304\262\2026rq\210    \205.\303 )\232\2036\211\262\210\211T\262A\262\202\266\211\262)\207" [find-file-visit-truename git-commit-mode t magit-toplevel nil append buffer-list selected-frame 0] 8])
143 #@58 Used by `magit-commit-add-log' to insert a single entry.
144 (defvar magit-commit-add-log-insert-function 'magit-commit-add-log-insert (#$ . 17589))
145 #@223 Add a stub for the current change into the commit message buffer.
146 If no commit is in progress, then initiate it.  Use the function
147 specified by variable `magit-commit-add-log-insert-function' to
148 actually insert the entry.
149 (defalias 'magit-commit-add-log #[0 "\301\302!\205\303 \304 \305\211\306 \307\310\311\312\313!\314\"\315$\216\316\317!\210p\262`\262)\210\204F\320\305!\2044\321\322!\210\323 \210\304 \211\262\204F\324\325!\210\2027\212rq\210\211b\210\326 \205Y\327 #*\207" [magit-commit-add-log-insert-function magit-section-match hunk magit-current-section magit-commit-message-buffer nil current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 call-interactively magit-diff-visit-file magit-commit-assert user-error "Abort" magit-commit-create sit-for 0.01 magit-file-relative-name add-log-current-defun] 11 (#$ . 17741) nil])
150 #@26 
151
152 (fn BUFFER FILE DEFUN)
153 (defalias 'magit-commit-add-log-insert #[771 "rq\210\301 \210db\210\302\303P\304\305#\204\n\214e`}\210\302\306\307\"\304\305#\2036\310\311!\232\203/\304\262\312\313!\210\202p\302\314\304\305#\203B\315\225b\210\312\316\304\305#\204B\211\203[\306\317#c\210\304\262\202a\306\320\"c\210\321u\210\322\323!\204p\324c\210\321u\210\211\205\253\304y\210\212\312\325\304\305#\205\201`)\326\306\327\"\330 \"\206\225\312\306\331\"\305#?\205\251\312\316\305#\204\231\306\332\"c\210\321u\262*\207" [comment-start undo-boundary re-search-backward "^" nil t format "* %s\\(?: (\\([^)]+\\))\\)?: " match-string 1 re-search-forward ": " "^[\\*(].+\n" 0 "^[^\\*\n].*\n" "* %s (%s): \n" "* %s: \n" -1 looking-at "\n[\n\\']" 10 "^\\*" looking-back "(%s): " line-beginning-position "^(%s): " "(%s): \n"] 8 (#$ . 18648)])
154 (provide 'magit-commit)