;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307DD\310\311\312\313\314\315\316& \210\303\317\305\306\320DD\321\311\322\313\314\315\323& \210\303\324\305\306\325DD\326\311\327\313\314\315\323& \210\303\330\305\306\331DD\332\311\333\313\314\315\323& \210\303\334\305\306\335DD\336\311\337\313\314\315\323& \210\303\340\305\306\341DD\342\311\343\313\314\315\323& \207" [require magit magit-sequence custom-declare-variable magit-commit-ask-to-stage funcall function #[0 "\300\207" [verbose] 1 #1=""] "Whether to ask to stage everything when committing and nothing is staged." :package-version (magit . "2.3.0") :group magit-commands :type (choice (const :tag "Ask" t) (const :tag "Ask showing diff" verbose) (const :tag "Stage without confirmation" stage) (const :tag "Don't ask" nil)) magit-commit-show-diff #[0 "\300\207" [t] 1 #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 #1#] "Whether using `magit-commit-extend' changes the committer date." (magit . "2.3.0") magit-commit-reword-override-date #[0 "\300\207" [t] 1 #1#] "Whether using `magit-commit-reword' changes the committer date." (magit . "2.3.0") magit-commit-squash-confirm #[0 "\300\207" [t] 1 #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-commit-diff-inhibit-same-window #[0 "\300\207" [nil] 1 #1#] "Whether to inhibit use of same window when showing diff while committing.\n\nWhen writing a commit, then a diff of the changes to be committed\nis automatically shown. The idea is that the diff is shown in a\ndifferent window of the same frame and for most users that just\nworks. In other words most users can completely ignore this\noption because its value doesn't make a difference for them.\n\nHowever for users who configured Emacs to never create a new\nwindow even when the package explicitly tries to do so, then\ndisplaying two new buffers necessarily means that the first is\nimmediately replaced by the second. In our case the message\nbuffer is immediately replaced by the diff buffer, which is of\ncourse highly undesirable.\n\nA workaround is to suppress this user configuration in this\nparticular case. Users have to explicitly opt-in by toggling\nthis option. We cannot enable the workaround unconditionally\nbecause that again causes issues for other users: if the frame\nis too tiny or the relevant settings too aggressive, then the\ndiff buffer would end up being displayed in a new frame.\n\nAlso see https://github.com/magit/magit/issues/4132." (magit . "3.3.0")] 10)#@504 Hook run by Git hooks `post-commit', `post-merge' and `post-rewrite'. There is not a single Git hook, which is called after a commit is created; to achieve that, all of these Git hooks have to be used. Git hooks are documented in the githooks(5) manpage. This Lisp hook is only run if `magit-run-hooks-from-githooks' is non-nil, and Magit runs Git asynchronously and on the local machine. The hook functions are called with the same arguments as the Git hook; see the mentioned manpage for details. (defvar magit-common-git-post-commit-functions nil (#$ . 3024)) (defalias 'magit-commit #[0 "\300\301 \211\262\203 \302!\207\303\304!\207" [nil magit-commit-message-buffer switch-to-buffer transient-setup magit-commit] 3 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316&#\210\317\301\320\321\322\323D\324\325\326\322\327\330\326\331\332\310\300\333\302\303#\210\300\333\334\335#\210\336\333\337\"\210\333\257 \324\325\340\322\341\331\342\310\300\343\302\303#\210\300\343\334\335#\210\336\343\337\"\210\343\257 \324\325\344\322\345\330\344\331\346\310\300\347\302\303#\210\300\347\334\335#\210\336\347\337\"\210\347\257 \324\325\350\322\351\330\350\331\352\310\300\353\302\303#\210\300\353\334\335#\210\336\353\337\"\210\353\257 \324\325\354\322\355\331\356\310\300\357\302\303#\210\300\357\334\335#\210\336\357\337\"\210\357\257 \360\310\361\322\362\257\360\310\363\364\365\257\360\310\366\364\367\257\360\310\370E\360\310\371E\360\310\372E\257 #\320\373\374\320\321\322\375D\360\325\376\322\377\310\201@\257C#\320\321\322\201AD\360\325\201B\322\201C\310\201D\257\201E\360\325\201F\322\201G\310\201H\257\201E\360\325\201I\322\201J\310\201K\257\360\325\201L\322\201M\310\201N\364\201O\257 \257#\320\321\322\201PD\360\325\201Q\322\201R\310\201S\257\360\325\201T\322\201U\310\201V\257\360\325\201W\322\201X\310\201Y\257\360\325\201Z\322\201[\310\201\\\257\360\325\201]\322\201^\310\201_\257\257#\320\321\322\201`D\360\325\201a\322\201b\310\201c\257\360\325\201d\322\201e\310\201f\257\201E\211\360\325\201g\322\201h\310\201i\364\201O\257 \257#\320\321\322\201jD\360\325\201k\322\201l\310\201m\364\201n\257 \360\325\201o\322\201p\310\201q\364\201n\257 D#\257#D\"\207" [put magit-commit interactive-only t function-documentation "Create a new commit or replace an existing commit." transient--prefix transient-prefix :command :info-manual "(magit)Initiating a Commit" :man-page "git-commit" :value ("--verbose") transient--set-layout vector transient-column :description "Arguments" transient-switch :key "-a" "Stage all modified and deleted files" :shortarg :argument "--all" transient:magit-commit:--all completion-predicate transient--suffix-only defalias transient--default-infix-command "-e" "Allow empty commit" "--allow-empty" transient:magit-commit:--allow-empty "-v" "Show diff of changes to be committed" "--verbose" transient:magit-commit:--verbose "-n" "Disable hooks" "--no-verify" transient:magit-commit:--no-verify "-R" "Claim authorship and reset author date" "--reset-author" transient:magit-commit:--reset-author transient-suffix magit:--author "Override the author" magit-commit:--date :level 7 magit:--gpg-sign 5 magit:--signoff magit-commit:--reuse-message magit-commit:--reedit-message transient-columns nil "Create" "c" "Commit" magit-commit-create "Edit HEAD" "e" "Extend" magit-commit-extend "" "a" "Amend" magit-commit-amend "w" "Reword" magit-commit-reword "d" "Reshelve" magit-commit-reshelve 0 "Edit" "f" "Fixup" magit-commit-fixup "s" "Squash" magit-commit-squash "A" "Alter" magit-commit-alter "n" "Augment" magit-commit-augment "W" "Revise" magit-commit-revise "Edit and rebase" "F" "Instant fixup" magit-commit-instant-fixup "S" "Instant squash" magit-commit-instant-squash "R" "Reword past" magit-rebase-reword-commit "Spread across commits" "x" "Modified files" magit-commit-autofixup 6 "X" "Updated modules" magit-commit-absorb-modules] 25) (defalias 'magit-commit-arguments #[0 "\300\301!\207" [transient-args magit-commit] 2]) (byte-code "\300\301\302\"\210\303\301\304\305#\210\303\301\306\307#\210\303\301\310\311#\210\303\301\312\313\314\301\315\316\317\320\321\322\323\324&\n#\210\300\325\302\"\210\303\325\304\305#\210\303\325\306\307#\210\303\325\310\311#\210\303\325\312\313\314\325\315\326\317\327\321\330\323\331\332\333&\f#\210\300\334\302\"\210\303\334\304\305#\210\303\334\306\307#\210\303\334\310\311#\210\303\334\312\313\314\334\315\335\317\336\321\337\323\331\332\333&\f#\207" [defalias magit-commit:--date transient--default-infix-command put interactive-only t completion-predicate transient--suffix-only function-documentation nil transient--suffix transient-option :command :description "Override the author date" :shortarg "-D" :argument "--date=" :reader transient-read-date magit-commit:--reuse-message "Reuse commit message" "-C" "--reuse-message=" magit-read-reuse-message :history-key magit-revision-history magit-commit:--reedit-message "Reedit commit message" "-c" "--reedit-message="] 16)#@41 (fn PROMPT &optional DEFAULT HISTORY) (defalias 'magit-read-reuse-message #[769 "\203\301C\302\303\304\"\305\"\210\306 \210\211\242\207\307\310 \301\211\211\206.\311 \206.\312\313!\205.\313&\207" [current-prefix-arg nil magit-log-select make-closure #[257 "\300\240\210\301 \207" [V0 exit-recursive-edit] 3 "\n\n(fn R)"] "Type %p on a commit to reuse its message" recursive-edit magit-completing-read magit-list-refnames magit-commit-at-point magit-rev-verify "ORIG_HEAD"] 12 (#$ . 8121)])#@43 Create a new commit. (fn &optional ARGS) (defalias 'magit-commit-create #[256 "\302\235\203 \303\202\304\235\203\305\306!\211\262\205$\307 \310\311\")\207" [this-command default-directory "--all" magit-commit--all "--allow-empty" magit-commit--allow-empty magit-commit-assert magit-toplevel magit-run-git-with-editor "commit"] 4 (#$ . 8632) (byte-code "\300 C\207" [magit-commit-arguments] 1)])#@424 Amend staged changes to the last commit, without editing its message. With a prefix argument do not update the committer date; without an argument update it. The option `magit-commit-extend-override-date' can be used to inverse the meaning of the prefix argument. Called non-interactively, the optional OVERRIDE-DATE argument controls this behavior, and the option is of no relevance. (fn &optional ARGS OVERRIDE-DATE) (defalias 'magit-commit-extend #[512 "\301!\211\262\205)\302 \210\211\203\303\304\305\306$\207\307!\310\311\312\313!\"\210\303\304\305\306$)\207" [process-environment magit-commit-assert magit-commit-amend-assert magit-run-git-with-editor "commit" "--amend" "--no-edit" copy-sequence setenv "GIT_COMMITTER_DATE" magit-rev-format "%cD"] 7 (#$ . 9048) (byte-code "\302 \203 ?\202\f D\207" [current-prefix-arg magit-commit-extend-override-date magit-commit-arguments] 2)])#@94 Amend staged changes (if any) to the last commit, and edit its message. (fn &optional ARGS) (defalias 'magit-commit-amend #[256 "\300 \210\301\302\303#\207" [magit-commit-amend-assert magit-run-git-with-editor "commit" "--amend"] 5 (#$ . 9959) (byte-code "\300 C\207" [magit-commit-arguments] 1)])#@420 Reword the message of the last commit, without amending its tree. With a prefix argument do not update the committer date; without an argument update it. The option `magit-commit-reword-override-date' can be used to inverse the meaning of the prefix argument. Called non-interactively, the optional OVERRIDE-DATE argument controls this behavior, and the option is of no relevance. (fn &optional ARGS OVERRIDE-DATE) (defalias 'magit-commit-reword #[512 "\301 \210\302\235\203 \202\302B\262\211\203\303\304\305\306$\207\307!\310\311\312\313!\"\210\303\304\305\306$)\207" [process-environment magit-commit-amend-assert "--allow-empty" magit-run-git-with-editor "commit" "--amend" "--only" copy-sequence setenv "GIT_COMMITTER_DATE" magit-rev-format "%cD"] 7 (#$ . 10265) (byte-code "\302 \203 ?\202\f D\207" [current-prefix-arg magit-commit-reword-override-date magit-commit-arguments] 2)])#@518 Create a fixup commit, leaving the original commit message untouched. If there is a reachable commit at point, target that. Otherwise prompt for a commit. If `magit-commit-squash-confirm' is non-nil, always make the user explicitly select a commit, in a buffer dedicated to that task. During a later rebase, when this commit gets squashed into its targeted commit, the original message of the targeted commit is used as-is. In other words, call "git commit --fixup=COMMIT --no-edit". (fn &optional COMMIT ARGS) (defalias 'magit-commit-fixup #[512 "\300\301#\207" [magit-commit-squash-internal "--fixup="] 6 (#$ . 11179) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-commit-arguments] 2)])#@572 Create a squash commit, without the user authoring a commit message. If there is a reachable commit at point, target that. Otherwise prompt for a commit. If `magit-commit-squash-confirm' is non-nil, always make the user explicitly select a commit, in a buffer dedicated to that task. During a later rebase, when this commit gets squashed into its targeted commit, the user is given a chance to edit the original message to take the changes from the squash commit into account. In other words, call "git commit --squash=COMMIT --no-edit". (fn &optional COMMIT ARGS) (defalias 'magit-commit-squash #[512 "\300\301#\207" [magit-commit-squash-internal "--squash="] 6 (#$ . 11894) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-commit-arguments] 2)])#@612 Create a squash commit, authoring the final commit message now. If there is a reachable commit at point, target that. Otherwise prompt for a commit. If `magit-commit-squash-confirm' is non-nil, always make the user explicitly select a commit, in a buffer dedicated to that task. During a later rebase, when this commit gets squashed into its targeted commit, the original message of the targeted commit is replaced with the message of this commit, without the user automatically being given a chance to edit again. In other words, call "git commit --fixup=amend:COMMIT --edit". (fn &optional COMMIT ARGS) (defalias 'magit-commit-alter #[512 "\300\301\302\303%\207" [magit-commit-squash-internal "--fixup=amend:" nil edit] 8 (#$ . 12665) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-commit-arguments] 2)])#@639 Create a squash commit, authoring a new temporary commit message. If there is a reachable commit at point, target that. Otherwise prompt for a commit. If `magit-commit-squash-confirm' is non-nil, always make the user explicitly select a commit, in a buffer dedicated to that task. During a later rebase, when this commit gets squashed into its targeted commit, the user is asked to write a final commit message, in a buffer that starts out containing both the original commit message, as well as the temporary commit message of the squash commit. In other words, call "git commit --squash=COMMIT --edit". (fn &optional COMMIT ARGS) (defalias 'magit-commit-augment #[512 "\300\301\302\303%\207" [magit-commit-squash-internal "--squash=" nil edit] 8 (#$ . 13497) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-commit-arguments] 2)])#@570 Reword the message of an existing commit, without editing its tree. If there is a reachable commit at point, target that. Otherwise prompt for a commit. If `magit-commit-squash-confirm' is non-nil, always make the user explicitly select a commit, in a buffer dedicated to that task. During a later rebase, when this commit gets squashed into its targeted commit, a combined commit is created which uses the message of the fixup commit and the tree of the targeted commit. In other words, call "git commit --fixup=reword:COMMIT --edit". (fn &optional COMMIT ARGS) (defalias 'magit-commit-revise #[512 "\300\301\302\303%\207" [magit-commit-squash-internal "--fixup=reword:" nopatch edit] 8 (#$ . 14353) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-commit-arguments] 2)])#@447 Create a fixup commit, and immediately combine it with its target. If there is a reachable commit at point, target that. Otherwise prompt for a commit. If `magit-commit-squash-confirm' is non-nil, always make the user explicitly select a commit, in a buffer dedicated to that task. Leave the original commit message of the targeted commit untouched. Like `magit-commit-fixup' but also run a "--autofixup" rebase. (fn &optional COMMIT ARGS) (defalias 'magit-commit-instant-fixup #[512 "\300\301\302\211\303&\207" [magit-commit-squash-internal "--fixup=" nil rebase] 9 (#$ . 15149) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-commit-arguments] 2)])#@550 Create a squash commit, and immediately combine it with its target. If there is a reachable commit at point, target that. Otherwise prompt for a commit. If `magit-commit-squash-confirm' is non-nil, always make the user explicitly select a commit, in a buffer dedicated to that task. Turing the rebase phase, when the two commits are being squashed, ask the user to author the final commit message, based on the original message of the targeted commit. Like `magit-commit-squash' but also run a "--autofixup" rebase. (fn &optional COMMIT ARGS) (defalias 'magit-commit-instant-squash #[512 "\300\301\302\211\303&\207" [magit-commit-squash-internal "--squash=" nil rebase] 9 (#$ . 15825) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-commit-arguments] 2)])#@67 (fn OPTION COMMIT &optional ARGS NOPATCH EDIT REBASE CONFIRMED) (defalias 'magit-commit-squash-internal #[1794 "C\306?#C\211\242\205\203i\242\203i\307\310\"\204i\311\312\313\314E\315\244\316\317 \"\320!\321\322\323#\266\202\324\325!@\326\260\262\327\"\211\330\267\210\202e\315\240\266\202e\315\262 \210\202e\331\332!\266\202e\210\333\334!\210\203u\335\336\"\262\203\344\204\213\242\204\344\204\344 \204\344\315\211  P\242B\240\210\211\203\241\337\202\242\340\242B\240\210\242\203\333\341 \342=\203\273\f\204\273\343\202\274 67889\344 \210\345\346\347\350\351\352\353\"\242\"#,\210\202\341\354\346\242\"\210)\336\207\n\205\352\355 \356\357\360  &\316\361 \362\315O\"\315\211\211&\266\n\205?\205\336:\363\364\315\365 #)\207" [current-prefix-arg magit-commit-squash-confirm magit-commit-show-diff system-type magit-cygwin-mount-points shell-file-name magit-commit-assert magit-rev-ancestor-p "HEAD" read-char-choice "[c]reate without rebasing" "[s]elect other" "[a]bort" nil format "%s isn't an ancestor of HEAD. " butlast ", " mapconcat identity ", or " last " " (99 115 97) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (99 77 115 85 97 92)) user-error "Quit" message #1="" magit-rebase-interactive-assert t "--edit" "--no-edit" -1 windows-nt "cmdproxy" with-editor--setup magit-call-git "commit" "--no-gpg-sign" seq-remove apply-partially string-prefix-p "--gpg-sign=" magit-run-git-with-editor current-window-configuration magit-log-select make-closure #[257 "\306\305\301\242\304\303\302\242\307&\203%\302\242\203%\310!\210\311\312\313\314E\315\316\317\307&\210\300\205,\320\300!\207" [V0 V1 V2 V3 V4 V5 magit-commit-squash-internal t magit-commit-amend-assert magit-rebase-interactive-1 "--autosquash" "--autostash" "--keep-empty" #1# "true" nil set-window-configuration] 9 "\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] 19 (#$ . 16605)])#@25 (fn &optional COMMIT) (defalias 'magit-commit-amend-assert #[256 "\300!\211\205\301\302\303\304\305%\207" [magit-list-publishing-branches magit-confirm amend-published "This commit has already been published to %s.\nDo you really want to modify it" "This commit has already been published to %d public branches.\nDo you really want to modify it" nil] 8 (#$ . 18770)])#@38 (fn ARGS &optional NOPATCH STRICT) (defalias 'magit-commit-assert #[769 "\203 \206\320\302C\207\303 \204E\304 \203\305\235\204E\211\204L\306\235\204E\307\235\204E\310\235\204E\311\235\204E\312\313\"\204E\312\314\"\203L\206\320\302C\207\315 \203e\304 \204e\316\317!\203e\320\321\322\323\"\210\324\207\325\326\327\330 \"!\203\216\331 \203x\332\333!\207\304 \203\207\316\334!\204\207\332\335!\207\206\215\302C\207\304 \204\227\332\336!\207 \203\315 \337=\203\247\340\341\342 \"\210 \343=\204\263\316\344!\205\275\345\305\206\274\302CB \337=\203\314\346\347!\203\320\350 \210\207\332\351!\207" [this-command magit-commit-ask-to-stage "--" magit-anything-staged-p magit-anything-unstaged-p "--all" "--amend" "--allow-empty" "--reset-author" "--signoff" transient-arg-value "--author=" "--date=" 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 expand-file-name "MERGE_MSG" magit-gitdir magit-anything-unmerged-p user-error "Unresolved conflicts" "Proceed with merge despite unstaged changes? " "Abort" "Nothing staged (or unstaged)" verbose apply magit-diff-unstaged magit-diff-arguments stage "Nothing staged. Commit all uncommitted changes? " magit-commit--all derived-mode-p magit-diff-mode magit-mode-bury-buffer "Nothing staged"] 7 (#$ . 19149)]) (defvar magit--reshelve-history nil)#@551 Change committer (and possibly author) date of the last commit. The current time is used as the initial minibuffer input and the original author or committer date is available as the previous history element. Both the author and the committer dates are changed, unless one of the following is true, in which case only the committer date is updated: - You are not the author of the commit that is being reshelved. - The command was invoked with a prefix argument. - Non-interactively if UPDATE-AUTHOR is nil. (fn DATE UPDATE-AUTHOR &optional ARGS) (defalias 'magit-commit-reshelve #[770 "\301!\302\303\"\210\304\305\306\307\205\310P%)\207" [process-environment copy-sequence setenv "GIT_COMMITTER_DATE" magit-run-git "commit" "--amend" "--no-edit" "--date="] 9 (#$ . 20608) (byte-code "\302\303!\205?\304\203\305\202\306\303\307# B\310\203!\311\202\"\312\313\314!\315B\301#\316 E\207" [current-prefix-arg 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 magit-commit-arguments] 5)])#@67 Spread modified modules across recent commits. (fn PHASE COMMIT) (defalias 'magit-commit-absorb-modules #[514 "\300 \211\204\n\301\302!\210\203\303\304\"\262\203Q\305=\203Q\211\211\203K\211@\306\307\310\311\312P\313&\211\203C\314\315\316\317P\320\313&\210\210A\266\202\202\210\321 \210\304\207\322\323\324\211\211\211&\207" [magit-list-modified-modules user-error "There are no modified modules that could be absorbed" magit-rebase-interactive-assert t run magit-git-string "log" "-1" "--format=%s" ".." "--" magit-git "commit" "-m" "fixup! " "--only" magit-refresh magit-log-select #[257 "\300\301\"\207" [magit-commit-absorb-modules run] 4 "\n\n(fn COMMIT)"] nil] 13 (#$ . 21790) (byte-code "\300\301 D\207" [select magit-get-upstream-branch] 2)])#@26 (fn PHASE COMMIT ARGS) (defalias 'magit-commit-absorb #[771 "\301=\203\n\302\303!\207\304\305!\204\306\307\310\"\210\311 \204=\312 \2039\313\314!\2032\315 \316\317\320\321#)\210\202=\306\322!\210\202=\306\323!\210\203G\324\325\"\262\203Z\326=\203Z\327\330\331$\210\325\207\332\333\334\"\335\211\211\211&\207" [default-directory transient transient-setup magit-commit-absorb magit-git-executable-find "git-absorb" user-error "This command requires the git-absorb executable, which %s" "is available from https://github.com/tummychow/git-absorb" magit-anything-staged-p magit-anything-unstaged-p y-or-n-p "Nothing staged. Absorb all unstaged changes? " magit--toplevel-safe magit-run-git "add" "-u" "." "Abort" "There are no changes that could be absorbed" magit-rebase-interactive-assert t run magit-run-git-async "absorb" "-b" magit-log-select make-closure #[257 "\301\302\300#\207" [V0 magit-commit-absorb run] 5 "\n\n(fn COMMIT)"] nil] 10 (#$ . 22574) (byte-code "\203 \301\302\211E\207\303\304 \211\205\305\306\"\262\307\310!E\207" [current-prefix-arg transient nil select magit-get-upstream-branch magit-merge-base "HEAD" transient-args magit-commit-absorb] 5)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312$#\210\313\301\314\315\316\317D\320\321\322\316\323\324\322\325\326\310\300\327\302\303#\210\300\327\330\331#\210\332\327\333\"\210\327\257 \320\321\334\316\335\324\334\325\336\310\300\337\302\303#\210\300\337\330\331#\210\332\337\333\"\210\337\257 D#\314\315\316\340D\341\321\342\316\343\310\301\257C#D\"\210\300\301\344\341\310\301\345\346$#\207" [put magit-commit-absorb interactive-only t function-documentation "Spread staged changes across recent commits.\nWith a prefix argument use a transient command to select infix\narguments. This command requires git-absorb executable, which\nis available from https://github.com/tummychow/git-absorb.\nSee `magit-commit-autofixup' for an alternative implementation." transient--prefix transient-prefix :command :value ("-v") transient--set-layout vector transient-column :description "Arguments" transient-switch :key "-f" "Skip safety checks" :shortarg :argument "--force" transient:magit-commit-absorb:--force completion-predicate transient--suffix-only defalias transient--default-infix-command "-v" "Increase verbosity" "--verbose" transient:magit-commit-absorb:--verbose "Actions" transient-suffix "x" "Absorb" transient--suffix :transient transient--do-exit] 20)#@26 (fn PHASE COMMIT ARGS) (defalias 'magit-commit-autofixup #[771 "\300=\203\n\301\302!\207\303\304!\204\305\306\307\"\210\310 \204\305\311!\210\203(\312\313\"\262\203:\314=\203:\315\316#\210\313\207\317\320\321\"\322\211\211\211&\207" [transient transient-setup magit-commit-autofixup magit-git-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-modified-p "There are no changes that could be absorbed" magit-rebase-interactive-assert t run magit-run-git-async "autofixup" magit-log-select make-closure #[257 "\301\302\300#\207" [V0 magit-commit-autofixup run] 5 "\n\n(fn COMMIT)"] nil] 10 (#$ . 25085) (byte-code "\203 \301\302\211E\207\303\304 \211\205\305\306\"\262\307\310!E\207" [current-prefix-arg transient nil select magit-get-upstream-branch magit-merge-base "HEAD" transient-args magit-commit-autofixup] 5)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312$#\210\313\301\314\315\316\317D\320\310\321E\320\310\322E\323\324\325\316\326\327\330\310\300\331\302\303#\210\300\331\332\333#\210\334\331\335\"\210\331\257 E#\314\315\316\336D\320\324\337\316\340\310\301\257C#D\"\210\300\301\341\320\310\301\342\343$#\210\334\321\335\"\210\300\321\302\303#\210\300\321\332\333#\210\300\321\304\344#\210\300\321\341\345\310\321\316\346\347\350\327\351\352\353&\n#\210\334\322\335\"\210\300\322\302\303#\210\300\322\332\333#\210\300\322\304\344#\210\300\322\341\345\310\322\316\354\347\355\327\356\352\353&\n#\207" [put magit-commit-autofixup interactive-only t function-documentation "Spread staged or unstaged changes across recent commits.\n\nIf there are any staged then spread only those, otherwise spread all\nunstaged changes. With a prefix argument use a transient command to\nselect infix arguments.\n\nThis command requires the git-autofixup script, which is available from\nhttps://github.com/torbiak/git-autofixup. See `magit-commit-absorb' for\nan alternative implementation." transient--prefix transient-prefix :command :value ("-vv") transient--set-layout vector transient-column :description "Arguments" transient-suffix magit-autofixup:--context magit-autofixup:--strict transient-switch :key "-v" "Increase verbosity" :argument "-vv" transient:magit-commit-autofixup:-vv completion-predicate transient--suffix-only defalias transient--default-infix-command "Actions" "x" "Absorb" transient--suffix :transient transient--do-exit nil transient-option "Diff context lines" :shortarg "-c" "--context=" :reader transient-read-number-N0 "Strictness" "-s" "--strict="] 19) (defalias 'magit-commit-diff #[0 "\305\306\307=\203\f\310\202 \"\210\n\205Q \205Q\3111\"\312\313!0\202$\210\314\211\203-\315\314\"\210\210\316\317!\210\314\3201N\3211B\322 0\202J\316\323\"\210\314\2620\202P\210\314)\207" [this-command last-command git-commit-mode magit-commit-show-diff inhibit-quit magit-repository-local-set this-commit-command with-editor-finish magit-commit--rebase (magit-outside-git-repo) magit-get-mode-buffer magit-diff-mode nil unrecord-window-buffer message "Diffing changes to be committed (C-g to abort diffing)" (quit) (debug error) magit-commit-diff--show "Error showing commit diff: %S"] 4]) (defalias 'magit-commit-diff--args #[0 "\302C\303C\304\305!\306 \307 \310 )\311\312\313 \"\314!\205\315!G\262\302\316\317E\320\321!\204< \322\240\210\302\240\266\202q\211:\203o\211\242\243\211:\203m\211\242\243\211:\203k\211\242\211\323\267\202\231\243\211\204\204\n\250\203t\324\325 \"\240\266\n\202q\204\204\204\204\"\210\266 \202q\243\211\204\224\321\240\210\266 \202q\2046\204\342\211\326\267\202\317\243\211\204\267\322\240\210\302\240\210\266 \202q\243\211\204\312\"\210\266 \202q\243\211\204\335\"\210\266 \202q\211\327=\203\373\243\211\204\366\"\210\266 \202q\330=\203j\211\331\267\266\202q\243\211\204\"\210\266 \202q\243\211\204,\322\240\210\302\240\210\266 \202q\266\202q\211\327=\203O\243\211\204J\"\210\266 \202q\330=\203j\211\332=\203j\243\211\204i\"\210\210\210\266\266\266 \333=\211\205}\334\335\302\336#\211\205\211\242\337\340\"\232\211\205\225\242\337\341\"\232\266\203\203\301\342=\203\250\302\240\210\202\301\204\266\314\311\343\313 \"!\203\276\321\240\210\202\301\330\262\242\242E\207" [default-directory this-command nil "--cached" magit-repository-local-get this-commit-command magit-anything-staged-p magit--toplevel-safe magit-anything-unstaged-p expand-file-name "rebase-merge/rewritten-pending" magit-gitdir file-exists-p magit-file-lines #[514 "\300\240\210\211\301\240\207" ["HEAD^..HEAD" nil] 4 "\n\n(fn REV ARG)"] #[514 "\300\240\210\211\301\240\207" ["HEAD" nil] 4 "\n\n(fn REV ARG)"] magit-commit-p "HEAD^" "HEAD" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (magit-commit--rebase 91 magit-commit-amend 137)) format "HEAD~%s" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (magit-commit--allow-empty 167 magit-commit-reword 188)) magit-commit-reword t #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (magit-commit--all 265 handle-switch-frame 284)) magit-commit--all magit-diff-while-committing magit-get-mode-buffer magit-diff-mode selected buffer-local-value magit-buffer-diff-range magit-buffer-diff-typearg magit-commit-amend "rebase-merge/amend"] 20]) (defalias 'magit-commit-diff--show #[0 "\304 \211\242\243\211\242\243\211\242\243\203\305\306!\207\307\310 \203\"\311\312\313 @\314\n\315\267\2029\316\202:\317\202:\320%+\207" [display-buffer-overriding-action magit-display-buffer-noselect magit-inhibit-save-previous-winconf magit-commit-diff-inhibit-same-window magit-commit-diff--args message "No alternative diff while committing" unset t (nil (inhibit-same-window . t)) magit-diff-setup-buffer magit-diff-arguments nil #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("HEAD" 49 "HEAD^..HEAD" 53)) staged committed undefined] 14]) (byte-code "\301\302\303\"\210\301\304\303\"\210\305\306\307B\"\207" [git-commit-filename-regexp add-hook server-switch-hook magit-commit-diff with-editor-filter-visit-hook add-to-list with-editor-server-window-alist switch-to-buffer] 4) (defalias 'magit-commit--reset-command #[0 "\300\301!\207" [magit-repository-local-delete this-commit-command] 2]) (defalias 'magit-commit-message-buffer #[0 "\301\302 \303\304\305\"\306\307\310 !\307 \"\")\207" [find-file-visit-truename t magit-toplevel seq-find make-closure #[257 "\300rq\210 \205 \302 )\232\207" [V0 git-commit-mode magit-toplevel] 3 "\n\n(fn %)"] append buffer-list selected-frame] 6])#@58 Used by `magit-commit-add-log' to insert a single entry. (defvar magit-commit-add-log-insert-function 'magit-commit-add-log-insert (#$ . 31972))#@223 Add a stub for the current change into the commit message buffer. If no commit is in progress, then initiate it. Use the function specified by variable `magit-commit-add-log-insert-function' to actually insert the entry. (defalias 'magit-commit-add-log #[0 "\301\302!\205\303 \304 \305 \211\242\243\211\242\243\2044\306\307!\204\"\310\311!\210\312 \210\304 \211\262\2044\313\314!\210\202%rq\210\212\214~\210\206A\315b\210\316  \205O\317 #+\207" [magit-commit-add-log-insert-function magit-section-match hunk magit-current-section magit-commit-message-buffer magit-diff-visit-file--noselect magit-commit-assert nil user-error "Abort" magit-commit-create sit-for 0.01 1 magit-file-relative-name add-log-current-defun] 11 (#$ . 32123) nil])#@26 (fn BUFFER FILE DEFUN) (defalias 'magit-commit-add-log-insert #[771 "rq\210\300 \210db\210\301\302!\210\303\304 \302\305#\204\214e`}\210\303\306\307\"\302\305#\2039\310\311!\232\2032\302\262\312\313!\210\202s\303\314\302\305#\203E\315\225b\210\312\316\302\305#\204E\211\203^\306\317#c\210\302\262\202d\306\320\"c\210\321u\210\322\323!\204s\324c\210\321u\210\211\205\256\302y\210\212\312\325\302\305#\205\204`)\326\306\327\"\330 \"\206\230\312\306\331\"\305#?\205\254\312\316\305#\204\234\306\332\"c\210\321u\262*\207" [undo-boundary git-commit--goto-insert-position nil re-search-backward git-commit--trailer-regexp t format "* %s\\(?: (\\([^)]+\\))\\)?: " match-string-no-properties 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 (#$ . 32885)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable magit-post-commit-hook funcall function #[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-commit-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-finish].\n\nAlso see `git-commit-post-finish-hook'." :package-version (magit . "2.90.0") :group magit-commands :type hook] 10) (defvar magit-post-commit-hook-commands (list 'magit-commit-extend 'magit-commit-fixup 'magit-commit-augment 'magit-commit-instant-fixup 'magit-commit-instant-squash)) (defalias 'magit-run-post-commit-hook #[0 "?\205 \n>\205\303\304!\207" [this-command last-command magit-post-commit-hook-commands run-hooks magit-post-commit-hook] 2]) (provide 'magit-commit)