;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; 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\344& \207" [require magit magit-sequence custom-declare-variable magit-commit-ask-to-stage funcall function #[0 "\300\207" [verbose] 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] "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-finish].\n\nAlso see `git-commit-post-finish-hook'." (magit . "2.90.0") hook] 10) (defvar magit-post-commit-hook-commands '(magit-commit-extend magit-commit-fixup magit-commit-augment magit-commit-instant-fixup magit-commit-instant-squash)) (defalias 'magit-commit #[0 "\300 \211\203\n\301!\207\302\303!\207" [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&#\210\300\301\315\316#\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" transient--layout ([1 transient-column (:description "Arguments") ((1 transient-switch (:key "-a" :description "Stage all modified and deleted files" :shortarg "-a" :argument "--all" :command transient:magit-commit:--all)) (1 transient-switch (:key "-e" :description "Allow empty commit" :argument "--allow-empty" :command transient:magit-commit:--allow-empty)) (1 transient-switch (:key "-v" :description "Show diff of changes to be committed" :shortarg "-v" :argument "--verbose" :command transient:magit-commit:--verbose)) (1 transient-switch (:key "-n" :description "Disable hooks" :shortarg "-n" :argument "--no-verify" :command transient:magit-commit:--no-verify)) (1 transient-switch (:key "-R" :description "Claim authorship and reset author date" :argument "--reset-author" :command transient:magit-commit:--reset-author)) (1 transient-suffix (:command magit:--author :description "Override the author")) (7 transient-option (:key "-D" :description "Override the author date" :argument "--date=" :command transient:magit-commit:--date= :reader transient-read-date)) (1 transient-switch (:key "-s" :description "Add Signed-off-by line" :shortarg "-s" :argument "--signoff" :command transient:magit-commit:--signoff)) (5 transient-suffix (:command magit:--gpg-sign)) (1 transient-suffix (:command magit-commit:--reuse-message)))] [1 transient-columns nil ([1 transient-column (:description "Create") ((1 transient-suffix (:key "c" :description "Commit" :command magit-commit-create)))] [1 transient-column (:description "Edit HEAD") ((1 transient-suffix (:key "e" :description "Extend" :command magit-commit-extend)) (1 transient-suffix (:key "w" :description "Reword" :command magit-commit-reword)) (1 transient-suffix (:key "a" :description "Amend" :command magit-commit-amend)) (6 transient-suffix (:key "n" :description "Reshelve" :command magit-commit-reshelve)))] [1 transient-column (:description "Edit") ((1 transient-suffix (:key "f" :description "Fixup" :command magit-commit-fixup)) (1 transient-suffix (:key "s" :description "Squash" :command magit-commit-squash)) (1 transient-suffix (:key "A" :description "Augment" :command magit-commit-augment)) (6 transient-suffix (:key "x" :description "Absorb changes" :command magit-commit-autofixup)) (6 transient-suffix (:key "X" :description "Absorb modules" :command magit-commit-absorb-modules)))] [1 transient-column (:description "") ((1 transient-suffix (:key "F" :description "Instant fixup" :command magit-commit-instant-fixup)) (1 transient-suffix (:key "S" :description "Instant squash" :command magit-commit-instant-squash)))])])] 10) (defalias 'magit-commit-arguments #[0 "\300\301!\207" [transient-args magit-commit] 2]) (defalias 'magit:--gpg-sign #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 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\317\303\320\321&\f#\207" [put magit:--gpg-sign interactive-only t function-documentation nil transient--suffix transient-option :command :description "Sign using gpg" :shortarg "-S" :argument "--gpg-sign=" :allow-empty :reader magit-read-gpg-signing-key] 16) (defvar magit-gpg-secret-key-hist nil) #@57 (fn PROMPT &optional INITIAL-INPUT HISTORY PREDICATE) (defalias 'magit-read-gpg-secret-key #[1025 "\301\302!\210\303\304\305\"\306\307!\310\311#\"\312\310\211\211\310 &\313\314G\310$\210\207" [epa-protocol require epa mapcan make-closure #[257 "\300\203\n\300!\205\223\304! >\204\305\306\307D\"\210\211\310H@\304!\n>\204,\305\306\311D\"\210\211\312H\304!\n>\204>\305\306\311D\"\210\313H\304! >\204Q\305\306\307D\"\210\314H@\211\205y\304! >\204h\305\306\315D\"\210\211\310H\211;\203t\211\202w\316!\262\262\317\320\321G[O\317\322\323#\324R#C\266\204\207" [V0 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 9 6 3 epg-user-id epg-decode-dn propertize display 0 face highlight " "] 13 "\n\n(fn CERT)"] epg-list-keys epg-make-context nil t completing-read set-text-properties 0] 14 (#$ . 6168)]) #@47 (fn PROMPT &optional INITIAL-INPUT HISTORY) (defalias 'magit-read-gpg-signing-key #[769 "\300\301$\207" [magit-read-gpg-secret-key #[257 "\301\302\303!>\204\304\305\306D\"\210\307H\"\207" [cl-struct-epg-key-tags cl-some #[257 "\301\302!>\204\303\304\305D\"\210\306H>\207" [cl-struct-epg-sub-key-tags sign type-of signal wrong-type-argument epg-sub-key 2] 6 "\n\n(fn KEY)"] type-of signal wrong-type-argument epg-key 2] 7 "\n\n(fn CERT)"]] 8 (#$ . 7099)]) (defalias 'magit-commit:--reuse-message #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 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\317\320\321\322&\f#\207" [put magit-commit:--reuse-message interactive-only t function-documentation nil transient--suffix transient-option :command :description "Reuse commit message" :shortarg "-C" :argument "--reuse-message=" :reader magit-read-reuse-message :history-key magit-revision-history] 16) #@41 (fn PROMPT &optional DEFAULT HISTORY) (defalias 'magit-read-reuse-message #[769 "\300\301 \302\211\211\206\303\304!\205\304&\207" [magit-completing-read magit-list-refnames nil magit-rev-verify "ORIG_HEAD"] 12 (#$ . 8157)]) #@145 Create a new commit on `HEAD'. With a prefix argument, amend to the commit at `HEAD' instead. (git commit [--amend] ARGS) (fn &optional ARGS) (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 (#$ . 8400) (byte-code "\203\n\301\302 BC\207\302 C\207" [current-prefix-arg "--amend" magit-commit-arguments] 2)]) #@72 Amend the last commit. (git commit --amend ARGS) (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 (#$ . 8901) (byte-code "\300 C\207" [magit-commit-arguments] 1)]) #@298 Amend the last commit, without editing the message. With a prefix argument keep the committer date, otherwise change it. The option `magit-commit-extend-override-date' can be used to inverse the meaning of the prefix argument. (git commit --amend --no-edit) (fn &optional ARGS OVERRIDE-DATE) (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 (#$ . 9186) (byte-code "\302 \203 ?\202\f D\207" [current-prefix-arg magit-commit-extend-override-date magit-commit-arguments] 2)]) #@377 Reword the last commit, ignoring staged changes. With a prefix argument keep the committer date, otherwise change it. The option `magit-commit-reword-override-date' can be used to inverse the meaning of the prefix argument. Non-interactively respect the optional OVERRIDE-DATE argument and ignore the option. (git commit --amend --only) (fn &optional ARGS OVERRIDE-DATE) (defalias 'magit-commit-reword #[512 "\301 \210\211\204\302\303!B\304\235\203\202\304B\262\305\306\307\310$)\207" [process-environment magit-commit-amend-assert magit-rev-format "GIT_COMMITTER_DATE=%cD" "--allow-empty" magit-run-git-with-editor "commit" "--amend" "--only"] 7 (#$ . 9912) (byte-code "\302 \203 ?\202\f D\207" [current-prefix-arg magit-commit-reword-override-date magit-commit-arguments] 2)]) #@242 Create a fixup commit. With a prefix argument the target COMMIT has to be confirmed. Otherwise the commit at point may be used without confirmation depending on the value of option `magit-commit-squash-confirm'. (fn &optional COMMIT ARGS) (defalias 'magit-commit-fixup #[512 "\300\301#\207" [magit-commit-squash-internal "--fixup"] 6 (#$ . 10722) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-commit-arguments] 2)]) #@400 Create a squash commit, without editing the squash message. With a prefix argument the target COMMIT has to be confirmed. Otherwise the commit at point may be used without confirmation depending on the value of option `magit-commit-squash-confirm'. If you want to immediately add a message to the squash commit, then use `magit-commit-augment' instead of this command. (fn &optional COMMIT ARGS) (defalias 'magit-commit-squash #[512 "\300\301#\207" [magit-commit-squash-internal "--squash"] 6 (#$ . 11161) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-commit-arguments] 2)]) #@271 Create a squash commit, editing the squash message. With a prefix argument the target COMMIT has to be confirmed. Otherwise the commit at point may be used without confirmation depending on the value of option `magit-commit-squash-confirm'. (fn &optional COMMIT ARGS) (defalias 'magit-commit-augment #[512 "\300\301\302\303%\207" [magit-commit-squash-internal "--squash" nil t] 8 (#$ . 11760) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-commit-arguments] 2)]) #@90 Create a fixup commit targeting COMMIT and instantly rebase. (fn &optional COMMIT ARGS) (defalias 'magit-commit-instant-fixup #[512 "\300\301\302$\207" [magit-commit-squash-internal "--fixup" t] 7 (#$ . 12244) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-commit-arguments] 2)]) #@91 Create a squash commit targeting COMMIT and instantly rebase. (fn &optional COMMIT ARGS) (defalias 'magit-commit-instant-squash #[512 "\300\301\302$\207" [magit-commit-squash-internal "--squash" t] 7 (#$ . 12544) (byte-code "\300 \301 D\207" [magit-commit-at-point magit-commit-arguments] 2)]) #@59 (fn OPTION COMMIT &optional ARGS REBASE EDIT CONFIRMED) (defalias 'magit-commit-squash-internal #[1538 "C\306\307\"C\211\242\205\364\203S\242\203S\310\311\"\204S\312\313\314 \"\315\316\317\320\321E\322#\323Q\324\"\211\325\267\210\202O\326\240\266\202O\326\262\210\202O\327\330!\266\202O\210\331\332!\210\203_\333\307\"\262\203\313\204u\242\204\313\204\313 \204\313\326\211\334 Q\242B\240\210\204\216\211\335\242B\240\210\242\203\302\336 \337=\203\242\f\204\242\340\202\243 23445\341 \210\342\343\344\345\346\347\350\"\242\"#\210,\202\310\351\343\242\"\210)\307\207\352\353\354\n%\313\355 \356\326O\"\326\211\211\f&\210\n\205\364\3076\357\360\326\361 #)\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. " mapconcat identity "[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 55 115 63 97 70)) nil user-error "Quit" message #1="" 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-closure #[257 "\304\300\303\242\301\242\302\305&\205#\301\242\205#\306!\210\307\310\311\312E\313\314\315\305&\207" [V0 V1 V2 V3 magit-commit-squash-internal t magit-commit-amend-assert magit-rebase-interactive-1 "--autosquash" "--autostash" "--keep-empty" #1# "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] 15 (#$ . 12847)]) #@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 %i public branches.\nDo you really want to modify it" nil] 8 (#$ . 14819)]) #@30 (fn ARGS &optional STRICT) (defalias 'magit-commit-assert #[513 "\302 \2049\303 \203\304\235\2049\211\204@\305\235\2049\306\235\2049\307\235\2049\310\235\2049\311\235\2049\312\313\"\203@\206\256\314C\207\315 \203Y\303 \204Y\316\317!\203Y\320\321\322\323\"\210\324\207\325\326\327!!\203m\303 \204m\206\256\314C\207\303 \204v\330\331!\207 \203\253 \332=\203\203\333 \210 \334=\204\217\316\335!\205\233\336\337\340\341#\210\206\233\314C \332=\203\252\342\343!\203\256\344 \210\207\330\345!\207" [this-command magit-commit-ask-to-stage magit-anything-staged-p magit-anything-unstaged-p "--all" "--amend" "--allow-empty" "--reset-author" "--author" "--signoff" cl-find-if #[257 "\301\302\303\304#)\207" [inhibit-changing-match-data "\\`--date=" nil t string-match] 8 "\n\n(fn A)"] "--" 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 stage "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 (#$ . 15199)]) (defvar magit--reshelve-history nil) #@553 Change the committer date and possibly the author date of `HEAD'. 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 changes, 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 "\301PB\302\303\304\305\205\306P%)\207" [process-environment "GIT_COMMITTER_DATE=" magit-run-git "commit" "--amend" "--no-edit" "--date="] 9 (#$ . 16518) (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 (#$ . 17672) (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 \204J\312 \203F\313\314!\203?\315 \211\2038\211\316\317\320\321#\210)\210\202J\322 \266\202J\306\323!\210\202J\306\324!\210\203T\325\326\"\262\203i\327=\203i\330\331\332\333%\210\326\207\334\335\336\"\337\211\211\211&\207" [default-directory transient transient-setup magit-commit-absorb 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 magit-run-git "add" "-u" "." magit--not-inside-repository-error "Abort" "There are no changes that could be absorbed" magit-rebase-interactive-assert t run magit-run-git-async "absorb" "-v" "-b" magit-log-select make-closure #[257 "\301\302\300#\207" [V0 magit-commit-absorb run] 5 "\n\n(fn COMMIT)"] nil] 10 (#$ . 18457) (byte-code "\203 \301\302\211E\207\303\304 \305\306!E\207" [current-prefix-arg transient nil select magit-get-upstream-branch transient-args magit-commit-absorb] 4)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\"#\210\300\301\311\312#\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 transient--layout ([1 transient-column (:description "Arguments") ((1 transient-switch (:key "-f" :description "Skip safety checks" :shortarg "-f" :argument "--force" :command transient:magit-commit-absorb:--force)) (1 transient-switch (:key "-v" :description "Display more output" :shortarg "-v" :argument "--verbose" :command transient:magit-commit-absorb:--verbose)))] [1 transient-column (:description "Actions") ((1 transient-suffix (:key "x" :description "Absorb" :command magit-commit-absorb)))])] 6) #@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\317$\210\313\207\320\321\322\"\323\211\211\211&\207" [transient transient-setup magit-commit-autofixup 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" "-vv" magit-log-select make-closure #[257 "\301\302\300#\207" [V0 magit-commit-autofixup run] 5 "\n\n(fn COMMIT)"] nil] 10 (#$ . 20704) (byte-code "\203 \301\302\211E\207\303\304 \305\306!E\207" [current-prefix-arg transient nil select magit-get-upstream-branch transient-args magit-commit-autofixup] 4)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\"#\210\300\301\311\312#\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\nspread all unstaged changes. With a prefix argument use a\ntransient command to select infix arguments.\n\nThis command requires the git-autofixup script, which is\navailable from https://github.com/torbiak/git-autofixup.\nSee `magit-commit-absorb' for an alternative implementation." transient--prefix transient-prefix :command transient--layout ([1 transient-column (:description "Arguments") ((1 transient-suffix (:command magit-autofixup:--context)) (1 transient-suffix (:command magit-autofixup:--strict)))] [1 transient-column (:description "Actions") ((1 transient-suffix (:key "x" :description "Absorb" :command magit-commit-autofixup)))])] 6) (defalias 'magit-autofixup:--context #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 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\317\320&\n#\207" [put magit-autofixup:--context interactive-only t function-documentation nil transient--suffix transient-option :command :description "Diff context lines" :shortarg "-c" :argument "--context=" :reader transient-read-number-N0] 14) (defalias 'magit-autofixup:--strict #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 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\317\320&\n#\207" [put magit-autofixup:--strict interactive-only t function-documentation nil transient--suffix transient-option :command :description "Strictness" :shortarg "-s" :argument "--strict=" :reader transient-read-number-N0] 14) (defalias 'magit-commit-diff #[0 "\205Y \205Y\306\307!\211\203\310\311\"\210\210\3121W\313 @\314\315\311\316\317\320!\210\321\267\202C\322\311\"\202R\323\311\"\202R\324!\202R\325 \203O\322\311\"\202R\324!,\2620\207\210\311\207" [git-commit-mode magit-commit-show-diff display-buffer-overriding-action inhibit-quit magit-display-buffer-noselect magit-inhibit-save-previous-winconf magit-get-mode-buffer magit-diff-mode unrecord-window-buffer nil (quit) magit-diff-arguments unset t (nil (inhibit-same-window t)) message "Diffing changes to be committed (C-g to abort diffing)" #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (magit-commit 47 magit-commit-all 54 magit-commit-amend 61 magit-commit-reword 61 magit-rebase-reword-commit 61)) magit-diff-staged magit-diff-working-tree magit-diff-while-amending magit-anything-staged-p last-command] 5]) (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-message-buffer #[0 "\302\303 \304\305\306\307 !\306 \"\310\304\211\211\203L\211A\262\242\262\262\211\262\203Lrq\210 \2053\303 )\232\203?\304\262\203L\262\262T\262\202\266\211\262)\207" [find-file-visit-truename git-commit-mode t magit-toplevel nil append buffer-list selected-frame 0] 9]) #@58 Used by `magit-commit-add-log' to insert a single entry. (defvar magit-commit-add-log-insert-function 'magit-commit-add-log-insert (#$ . 25107)) #@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\2047\306\307!\204%\310\311!\210\312 \210\304 \211\262 \2047\313\314!\210\202(rq\210\212\214~\210\211\206D\315b\210\316  \205R\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] 13 (#$ . 25259) nil]) #@26 (fn BUFFER FILE DEFUN) (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 (#$ . 26027)]) (provide 'magit-commit)