;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311DD\312\313\314\315\316\317\320& \210\305\321\307\310\322DD\323\313\324\315\325\317\320& \210\305\326\307\310\327DD\330\313\331\315\325\317\320& \210\305\332\307\310\333DD\334\313\335\315\325\317\336& \207" [require magit-core magit-diff magit-wip transient custom-declare-variable magit-delete-by-moving-to-trash funcall function #[0 "\300\207" [t] 1] "Whether Magit uses the system's trash can.\n\nYou should absolutely not disable this and also remove `discard'\nfrom `magit-no-confirm'. You shouldn't do that even if you have\nall of the Magit-Wip modes enabled, because those modes do not\ntrack any files that are not tracked in the proper branch." :package-version (magit . "2.1.0") :group magit-essentials :type boolean magit-unstage-committed #[0 "\300\207" [t] 1] "Whether unstaging a committed change reverts it instead.\n\nA committed change cannot be unstaged, because staging and\nunstaging are actions that are concerned with the differences\nbetween the index and the working tree, not with committed\nchanges.\n\nIf this option is non-nil (the default), then typing \"u\"\n(`magit-unstage') on a committed change, causes it to be\nreversed in the index but not the working tree. For more\ninformation see command `magit-reverse-in-index'." (magit . "2.4.1") magit-commands magit-reverse-atomically #[0 "\300\207" [nil] 1] "Whether to reverse changes atomically.\n\nIf some changes can be reversed while others cannot, then nothing\nis reversed if the value of this option is non-nil. But when it\nis nil, then the changes that can be reversed are reversed and\nfor the other changes diff files are created that contain the\nrejected reversals." (magit . "2.7.0") magit-post-stage-hook #[0 "\300\207" [nil] 1] "Hook run after staging changes.\nThis hook is run by `magit-refresh' if `this-command'\nis a member of `magit-post-stage-hook-commands'." (magit . "2.90.0") hook] 10) (defvar magit-post-stage-hook-commands '(magit-stage magit-stage-file magit-stage-modified)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable magit-post-unstage-hook funcall function #[0 "\300\207" [nil] 1] "Hook run after unstaging changes.\nThis hook is run by `magit-refresh' if `this-command'\nis a member of `magit-post-unstage-hook-commands'." :package-version (magit . "2.90.0") :group magit-commands :type hook] 10) (defvar magit-post-unstage-hook-commands '(magit-unstage magit-unstage-file magit-unstage-all)) #@179 Apply the change at point to the working tree. With a prefix argument fallback to a 3-way merge. Doing so causes the change to be applied to the index as well. (fn &rest ARGS) (defalias 'magit-apply #[128 "\300 \211\205b\301 \302 D\211:\205`\211\242\211\303\267\202\214\243\211:\205+\211\243\211?\205)\304\305!\262\262\202^\243\211:\205\207\211\242\211\306\267\202\204\243\211?\205I\307\310!\262\202\205\243\211?\205[\311\"\262\202\205\243\211?\205m\312\"\262\202\205\243\211?\205\313\"\262\202\205\314\262\262\202^\243\211:\205\\\211\242\211\315\267\202\321\243\211?\205\250\311\"\262\202Z\243\211?\205\272\312\"\262\202Z\243\211?\205\314\313\"\262\202Z\316=\203\211\317\267\202\376\243\211?\205\347\307\320!\262\202Z\243\211?\205\371\321\"\262\202Z\314\202Z\211\322\267\202,\243\211?\205\323\"\262\202Z\243\211?\205'\321\"\262\202Z\316=\205Z\211\324\267\202Y\243\211?\205B\307\320!\262\202Z\243\211?\205T\321\"\262\202Z\314\262\262\262\262\207" [magit-apply--get-selection magit-diff-type magit-diff-scope #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (staged 24 unstaged 24 untracked 48)) user-error "Change is already in the working tree" #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (files 63 file 63 region 78 hunk 96 hunks 114)) call-interactively magit-am magit-apply-region magit-apply-hunk magit-apply-hunks nil #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (region 155 hunk 173 hunks 191)) rebase-sequence #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (file 221 files 236)) magit-patch-apply magit-apply-diffs #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (file 264 files 282)) magit-apply-diff #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (file 312 files 327))] 10 (#$ . 2634) (byte-code "\205\301C\207" [current-prefix-arg "--3way"] 1)]) #@16 (fn SECTION) (defalias 'magit-apply--section-content #[257 "\300\301!\203\302\303\"\202\302\304\"\302\305\"\"\207" [buffer-substring-no-properties magit-hunk-section-p eieio-oref start content end] 6 (#$ . 4757)]) #@28 (fn SECTIONS &rest ARGS) (defalias 'magit-apply-diffs #[385 "\300!\262\301\302\303\304##\207" [magit-apply--get-diffs magit-apply-patch mapconcat #[257 "\300!\301!P\207" [magit-diff-file-header magit-apply--section-content] 4 "\n\n(fn S)"] ""] 9 (#$ . 4987)]) #@27 (fn SECTION &rest ARGS) (defalias 'magit-apply-diff #[385 "\300C!@\262\301\302!\303!P#\207" [magit-apply--get-diffs magit-apply-patch magit-diff-file-header magit-apply--section-content] 8 (#$ . 5263)]) #@404 Adjust new line numbers in headers of HUNKS for partial application. HUNKS should be a list of ordered, contiguous hunks to be applied from a file. For example, if there is a sequence of hunks with the headers @@ -2,6 +2,7 @@ @@ -10,6 +11,7 @@ @@ -18,6 +20,7 @@ and only the second and third are to be applied, they would be adjusted as "@@ -10,6 +10,7 @@" and "@@ -18,6 +19,7 @@". (fn HUNKS) (defalias 'magit-apply--adjust-hunk-new-starts #[257 "\211@\301\"\203\302\303\304\"!\302\303\305\"!Z\202\306\307!\211\310U\203$\207\311\312\313\"\"\207" [diff-hunk-header-re-unified string-match string-to-number match-string 3 1 error "Hunk does not have expected header" 0 mapcar make-closure #[257 "\302 \"\203\303\304\305\306\307\"!\300Z!\310\211\307%\207\311\312!\207" [V0 diff-hunk-header-re-unified string-match replace-match number-to-string string-to-number match-string 3 t error "Hunk does not have expected header"] 7 "\n\n(fn HUNK)"]] 7 (#$ . 5482)]) #@13 (fn HUNK) (defalias 'magit-apply--adjust-hunk-new-start #[257 "\300C!@\207" [magit-apply--adjust-hunk-new-starts] 3 (#$ . 6471)]) #@28 (fn SECTIONS &rest ARGS) (defalias 'magit-apply-hunks #[385 "\300@\301\"\302\303\300\304\"\"\203\305\306!\210\307\300\310\"\311\312\313\314\315 \"!\316#P#\207" [eieio-oref parent string-match "^diff --cc" value user-error "Cannot un-/stage resolution hunks. Stage the whole file" magit-apply-patch header mapconcat identity magit-apply--adjust-hunk-new-starts mapcar magit-apply--section-content ""] 13 (#$ . 6610)]) #@27 (fn SECTION &rest ARGS) (defalias 'magit-apply-hunk #[385 "\300\301\302!\"\203 \303\304!\210\305\306\307\"\310!\311\312!!P#\207" [string-match "^diff --cc" magit-section-parent-value user-error "Cannot un-/stage resolution hunks. Stage the whole file" magit-apply-patch eieio-oref parent magit-diff-file-header magit-apply--adjust-hunk-new-start magit-apply--section-content] 9 (#$ . 7044)]) #@27 (fn SECTION &rest ARGS) (defalias 'magit-apply-region #[385 "\300\301\302!\"\203 \303\304!\210\305\306\307\"\310!\311\312\"!P#\207" [string-match "^diff --cc" magit-section-parent-value user-error "Cannot un-/stage resolution hunks. Stage the whole file" magit-apply-patch eieio-oref parent magit-diff-file-header magit-apply--adjust-hunk-new-start magit-diff-hunk-region-patch] 10 (#$ . 7452)]) #@29 (fn SECTION:S ARGS PATCH) (defalias 'magit-apply-patch #[771 ":\204 \304\305\"C\202\306\307\"\310!\211\203&\311\312\"\203&\313\314\"\202'\315\316 \317 \2042\320\321!\210 \203A\n\204A\322\323P\"\210\324\325\326\"r\211q\210\327\330\"\216c\210\331\315\332\205[\333\334\335&\210*\210\n?\205t \203r\336\337P\"\210\340 \207" [this-command magit-wip-before-change-mode magit-inhibit-refresh magit-wip-after-apply-mode eieio-oref value mapcar #[257 "\300\301\"\207" [eieio-oref value] 4 "\n\n(fn IT)"] symbol-name string-match "^magit-\\([^-]+\\)" match-string 1 "apply" magit-diff-ignore-any-space-p magit-diff-context-p user-error "Not enough context to apply patch. Increase the context" magit-wip-commit-before-change " before " generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] magit-run-git-with-input "-p0" "-C0" "--ignore-space-change" "-" magit-wip-commit-after-apply " after " magit-refresh] 15 (#$ . 7866)]) (defalias 'magit-apply--get-selection #[0 "\300\301\302\"\206%\303 \304\305\"\211\306\267\202\202!\304\307\"\202!\310\311!\262\262\207" [magit-region-sections (hunk file module) t magit-current-section eieio-oref type #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (module 19 file 19 hunk 19 stashed-untracked 23 stashed-worktree 23 stashed-index 23 untracked 23 unstaged 23 staged 23)) children user-error "Cannot apply this, it's not a change"] 5]) #@17 (fn SECTIONS) (defalias 'magit-apply--get-diffs #[257 "\300 \211\203\301\302\"\203\303\304\"\207\207" [magit-current-section magit-section-match-1 [file diffstat] mapcar #[257 "\301\302\303\304\305\"BC\306!\"!\206\307\310!\207" [magit-root-section magit-get-section append file eieio-oref value magit-section-ident error "Cannot get required diff headers"] 7 "\n\n(fn IT)"]] 5 (#$ . 9376)]) (defalias 'magit-apply--diff-ignores-whitespace-p #[0 "\301\302\303\304$\205\n\305\207" [magit-buffer-diff-args cl-intersection ("--ignore-space-at-eol" "--ignore-space-change" "--ignore-all-space" "--ignore-blank-lines") :test equal t] 5]) #@180 Add the change at point to the staging area. With a prefix argument, INTENT, and an untracked file (or files) at point, stage the file but not its content. (fn &optional INTENT) (defalias 'magit-stage #[256 "\300\301!\205\302 \211\203\277\303 \304 \305 E\211:\205\276\211\242\211\306\267\202\273\243\211:\205=\211\243\211:\205;\211\243\211?\2059\307!\262\262\262\202\274\243\211:\205S\211\242\211\310\267\202P\243\211:\205f\211\243\211?\205d\311\312\"\262\262\202Q\243\211:\205\200\211\243\211?\205~\313\312\"\262\262\202Q\243\211:\205\232\211\243\211?\205\230\314\312\"\262\262\202Q\243\211:\205\330\211\242\211\315=\203\277\243\211?\205\272\316\312\"\262\202\326\211?\205\326\243\211?\205\324\317\320\321\n\322\"C\"\262\262\262\202Q\243\211:\205\211\242\211\315=\203\375\243\211?\205\370\323\312\"\262\202\211?\205\243\211?\205\317\320\324\325\315\"\"\262\262\262\202Q\243\211:\205K\211\242\211\315=\2039\243\211?\2054\323\312\"\262\202I\211?\205I\243\211?\205G\326 \262\262\262\202Q\325\262\262\202\274\243\211:\205t\211\243\211:\205r\211\243\211?\205p\327\330!\262\262\262\202\274\243\211:\205\225\211\243\211:\205\223\211\243\211?\205\221\327\331!\262\262\262\202\274\243\211:\205\266\211\243\211:\205\264\211\243\211?\205\262\327\332!\262\262\262\202\274\325\262\207\333\334!\207" [derived-mode-p magit-mode magit-apply--get-selection magit-diff-type magit-diff-scope magit-apply--diff-ignores-whitespace-p #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (untracked 32 unstaged 66 staged 344 committed 377 undefined 410)) magit-stage-untracked #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (region 81 hunk 107 hunks 133 file 159 files 221 list 281)) magit-apply-region "--cached" magit-apply-hunk magit-apply-hunks t magit-apply-diff magit-stage-1 "-u" eieio-oref value magit-apply-diffs magit-region-values nil magit-stage-modified user-error "Already staged" "Cannot stage committed changes" "Cannot stage this change" call-interactively magit-stage-file] 14 (#$ . 10030) "P"]) #@194 Stage all changes to FILE. With a prefix argument or when there is no file at point ask for the file to be staged. Otherwise stage the file at point without requiring confirmation. (fn FILE) (defalias 'magit-stage-file #[257 "\301 \211\203\211\302\303C\")\207\304 \207" [default-directory magit-toplevel magit-stage-1 nil magit--not-inside-repository-error] 5 (#$ . 12223) (byte-code "\301\302!\303 \304 \305 \244\206\235@\204\211\204(\306\307\310\311\310\211&\202)\211C\207" [current-prefix-arg magit-section-value-if file magit-file-relative-name magit-unstaged-files magit-untracked-files magit-completing-read "Stage file" nil t] 12)]) #@280 Stage all changes to files modified in the worktree. Stage all new content of tracked files and remove tracked files that no longer exist in the working tree from the index also. With a prefix argument also stage previously untracked (but not ignored) files. (fn &optional ALL) (defalias 'magit-stage-modified #[256 "\302 \203 \303\304!\210\305 \211\203\211\306\203\307\202\310 \")\207\311 \207" [default-directory magit-buffer-diff-files magit-anything-staged-p magit-confirm stage-all-changes magit-toplevel magit-stage-1 "--all" "-u" magit--not-inside-repository-error] 5 (#$ . 12890) "P"]) #@28 (fn ARG &optional FILES) (defalias 'magit-stage-1 #[513 "\301\302\"\210\303\304\203\305B\202\306#\210\203\307\310\"\210\311\312\"\207" [magit-auto-revert-mode magit-wip-commit-before-change " before stage" magit-run-git "add" "--" "." mapc magit-turn-on-auto-revert-mode-if-desired magit-wip-commit-after-apply " after stage"] 7 (#$ . 13500)]) #@25 (fn &optional INTENT) (defalias 'magit-stage-untracked #[256 "\303 \304 \211\305\267\202\306\307\"C\202\310\311\312\"\202\313 \202\311\262\311\211\211\203K\211@\314!\204?\315\312\"\203?\211B\262\202D\211B\262A\266\202\202$\210\316\317\"\210\203j\320\321\205]\322\323$\210\203j\324\325\"\210\211\211\203\342\211@\212\306\326\327B\330B!\331\"b\210\332 \333\334!!\335\336\337 \340#\206\224\333\341!P)\342\302!\205\234\n\232\205\246\343\344!!\211\203\274\345\346\347\"!\203\274\350\"\266\202\332\351\352\"#\210\211\203\330\353\334\354\"!\210\n\355!\210)\266)A\266\202\202k\210\356\357\"\207" [magit-auto-revert-mode default-directory borg-user-emacs-directory magit-current-section magit-diff-scope #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (file 10 files 18 list 25)) eieio-oref value magit-region-values nil t magit-untracked-files file-symlink-p magit-git-repo-p magit-wip-commit-before-change " before stage" magit-run-git "add" "--intent-to-add" "--" mapc magit-turn-on-auto-revert-mode-if-desired magit-get-section file ((untracked) (status)) start magit-toplevel file-name-as-directory expand-file-name magit-get "remote" magit-get-some-remote "url" "." boundp file-name-nondirectory directory-file-name y-or-n-p format "Also assimilate `%s' drone?" borg-assimilate magit-submodule-add-1 magit-submodule-read-name-for-path borg--sort-submodule-sections ".gitmodules" borg--maybe-absorb-gitdir magit-wip-commit-after-apply " after stage"] 16 (#$ . 13865)]) #@51 Remove the change at point from the staging area. (defalias 'magit-unstage #[0 "\301 \211\205\302 \303 \304 E\211:\205\211\242\211\305\267\202\243\211:\2056\211\243\211:\2054\211\243\211?\2052\306\307!\262\262\262\202\243\211:\205\231\211\242\211\310\267\202\202\243\211:\205b\211\243\211?\205`\311\312\313\"C!\262\262\202\227\243\211:\205}\211\243\211?\205{\311\314\315\316\"!\262\262\202\227\243\211:\205\225\211\243\211?\205\223\306\317!\262\262\262\262\202\243\211:\205\263\211\242\211\320\267\202\260\243\211:\205\303\211\243\211?\205\301\321\322\323#\262\262\202\261\243\211:\205\336\211\243\211?\205\334\324\322\323#\262\262\202\261\243\211:\205\371\211\243\211?\205\367\325\322\323#\262\262\202\261\243\211:\2057\211\242\211\316=\203\243\211?\205\326\322\323#\262\2025\211?\2055\243\211?\2053\327\312 \313\"C!\262\262\262\202\261\243\211:\205s\211\242\211\316=\203]\243\211?\205X\330\322\323#\262\202q\211?\205q\243\211?\205o\327\314\315\316\"!\262\262\262\202\261\243\211:\205\253\211\242\211\316=\203\231\243\211?\205\224\330\322\323#\262\202\251\211?\205\251\243\211?\205\247\331 \262\262\262\202\261\315\262\262\202\243\211:\205\335\211\243\211:\205\333\211\243\211?\205\331\203\326\332 \202\331\306\333!\262\262\262\202\243\211:\205\376\211\243\211:\205\374\211\243\211?\205\372\306\334!\262\262\262\202\315\262\262\207" [magit-unstage-committed magit-apply--get-selection magit-diff-type magit-diff-scope magit-apply--diff-ignores-whitespace-p #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (untracked 26 unstaged 59 staged 158 committed 440 undefined 482)) user-error "Cannot unstage untracked changes" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (file 74 files 103)) magit-unstage-intent eieio-oref value magit-region-values nil t "Already unstaged" #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (region 173 hunk 200 hunks 227 file 254 files 316 list 376)) magit-apply-region "--reverse" "--cached" magit-apply-hunk magit-apply-hunks magit-apply-diff magit-unstage-1 magit-apply-diffs magit-unstage-all magit-reverse-in-index "Cannot unstage committed changes" "Cannot unstage this change"] 12 (#$ . 15438) nil]) #@200 Unstage all changes to FILE. With a prefix argument or when there is no file at point ask for the file to be unstaged. Otherwise unstage the file at point without requiring confirmation. (fn FILE) (defalias 'magit-unstage-file #[257 "\301 \211\203\211\302C!)\207\303 \207" [default-directory magit-toplevel magit-unstage-1 magit--not-inside-repository-error] 4 (#$ . 17838) (byte-code "\301\302!\303 \304 \206\f\235@\204\211\204%\305\306\307\310\307\211&\202&\211C\207" [current-prefix-arg magit-section-value-if file magit-file-relative-name magit-staged-files magit-completing-read "Unstage file" nil t] 12)]) #@14 (fn FILES) (defalias 'magit-unstage-1 #[257 "\300\301\"\210\302 \203\303\304\305\306$\210\202\303\307\310\306$\210\311\312\"\207" [magit-wip-commit-before-change " before unstage" magit-no-commit-p magit-run-git "rm" "--cached" "--" "reset" "HEAD" magit-wip-commit-after-apply " after unstage"] 6 (#$ . 18475)]) #@14 (fn FILES) (defalias 'magit-unstage-intent #[257 "\300 \211\2053\301\302\301\211\203-\211A\262\242\262\262T\262\235\203 B\262\202 \266\211\237\262\211\203;\303!\207\304\305!\207" [magit-staged-files nil 0 magit-unstage-1 user-error "Already unstaged"] 9 (#$ . 18803)]) #@43 Remove all changes from the staging area. (defalias 'magit-unstage-all #[0 "\301 \204\n\302 \203\303\304!\210\305\306\307\"\210\310\311\312\313$\210\314\306\315\"\207" [magit-buffer-diff-files magit-anything-unstaged-p magit-untracked-files magit-confirm unstage-all-changes magit-wip-commit-before-change nil " before unstage" magit-run-git "reset" "HEAD" "--" magit-wip-commit-after-apply " after unstage"] 5 (#$ . 19103) nil]) #@29 Remove the change at point. (defalias 'magit-discard #[0 "\300 \211\205\300\301 \302 D\211:\205\276\211\242\211\303\267\202H\243\211:\205+\211\243\211?\205)\304\305!\262\262\202\274\243\211:\205C\211\243\211?\205A\304\306!\262\262\202\274\243\211:\205\272\211\242\211\307\267\202\267\243\211?\205b\310!\262\202\270\243\211?\205r\311!\262\202\270\243\211?\205\202\312!\262\202\270\243\211?\205\222\313!\262\202\270\243\211?\205\242\314!\262\202\270\243\211?\205\262\314!\262\202\270\315\262\262\262\262\207" [magit-apply--get-selection magit-diff-type magit-diff-scope #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (committed 24 undefined 48)) user-error "Cannot discard committed changes" "Cannot discard this change" #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (region 87 hunk 103 hunks 119 file 135 files 151 list 167)) magit-discard-region magit-discard-hunk magit-discard-hunks magit-discard-file magit-discard-files nil] 8 (#$ . 19543) nil]) #@16 (fn SECTION) (defalias 'magit-discard-region #[257 "\300\301\302\"\210\303\304\"\207" [magit-confirm discard "Discard region" magit-discard-apply magit-apply-region] 4 (#$ . 20634)]) #@16 (fn SECTION) (defalias 'magit-discard-hunk #[257 "\300\301\302\"\210\303\304\"\207" [magit-confirm discard "Discard hunk" magit-discard-apply magit-apply-hunk] 4 (#$ . 20826)]) #@22 (fn SECTION APPLY) (defalias 'magit-discard-apply #[514 "\301!\302=\203 \211\303\"\207\304\305\306!\203\307\310\"\202\311!\"\2035\312\211\303\313#\210\211\303\314#\210)\315 \207\211\303\316#\207" [magit-inhibit-refresh magit-diff-type unstaged "--reverse" magit-anything-unstaged-p nil magit-file-section-p eieio-oref value magit-section-parent-value t "--cached" "--reject" magit-refresh "--index"] 7 (#$ . 21012)]) #@17 (fn SECTIONS) (defalias 'magit-discard-hunks #[257 "\300\301\302\303G\304@!#\"\210\305\306\"\207" [magit-confirm discard format "Discard %s hunks from %s" magit-section-parent-value magit-discard-apply-n magit-apply-hunks] 8 (#$ . 21452)]) #@23 (fn SECTIONS APPLY) (defalias 'magit-discard-apply-n #[514 "@\301!\302=\203\303\"\207\304\305\306!\203\307\310\"\202!\311!\"\2037\312\303\313#\210\303\314#\210)\315 \207\303\316#\207" [magit-inhibit-refresh magit-diff-type unstaged "--reverse" magit-anything-unstaged-p nil magit-file-section-p eieio-oref value magit-section-parent-value t "--cached" "--reject" magit-refresh "--index"] 8 (#$ . 21704)]) #@16 (fn SECTION) (defalias 'magit-discard-file #[257 "\300C!\207" [magit-discard-files] 3 (#$ . 22137)]) #@17 (fn SECTIONS) (defalias 'magit-discard-files #[257 "\302\303@!\304 \302\211\211\211\211\211\211 \n\211\203\226\211@\305\306\"\211\nB\262\n \307\267\2026\310\2027\311\2027\312\2027\302\313 \"AAB\211:\203\215\211\242\211\312=\203\233\243\211\204n\314\302\"\211\203i\211@\211B\262A\266\202\202V\266\202\217\211:\203\226\211\242\211\315\267\202X\243\211:\203\261\211\242\211\316\267\266\202\217\243\211\204\231B\262\266\202\217\243\211\204\253 B\262 \266\202\217\210\266\202\217\243\211:\203\354\211\242\211\317\267\266\202\217\243\211\204\324B\262\266\202\217\243\211\204\346 B\262 \266\202\217\210\266\202\217\243\211:\2039\211\242\211\320\267\266\202\217\243\211\204B\262\266\202\217\243\211\204!B\262\266\202\217\243\211\2043 B\262 \266\202\217\210\266\202\217\243\211:\203S\211\243\211\204R\nB\262\n\210\266\202\217\243\211:\203\224\211\242\211\321=\203y\243\211\204t B\262 \266\202\217\322=\203\223\211\322=\203\223\243\211\204\222 B\262 \210\210\266\266\202\217\243\211:\203\213\211\242\211\323\267\2025\243\211:\203\211\242\211\324\267\202\335\243\211\204\306B\262\266\202\217\243\211\204\330 B\262 \266\202\217\311=\203\373\211\325=\203\243\211\204\366 B\262 \266\202\217\310=\203\211\326>\203\243\211\204B\262\210\210\266\202\217\243\211:\2030\211\243\211\204/\nB\262\n\210\266\202\217\243\211:\203\211\211\242\211\321=\203V\243\211\204Q B\262 \266\202\217\322=\203\342\211\322=\203t\243\211\204o B\262 \266\202\217\311=\203\253\211\327\267\266\202\217\243\211\204\217 B\262 \266\202\217\243\211\204\241B\262\266\202\217\266\202\217\310=\203\210\211\330\267\266\202\217\243\211\204\306\fB\262\f\266\202\217\243\211\204\330B\262\266\202\217\266\202\217\310=\203V\331\267\2027\211\332>\203Q\243\211\204 B\262 \266\202\217\211\333\267\266\202\217\243\211\204\fB\262\f\266\202\217\243\211\204-B\262\266\202\217\266\202\217\334=\203\210\211\335>\203\210\243\211\204PB\262\210\266\202\217\311=\203\210\211\336\267\266\202\217\243\211\204q B\262 \266\202\217\243\211\204\203B\262\266\202\217\210\266\266\266A\266\202\202\210\337\216\340\341\342\"\210\211\203\252\343\237!\210\203\263\344\237!\210\203\277\345\237 \"\210\203\312\346\237 \"\210\204\322\203\331\347\237\237\"\210\350\351\"+\207" [auto-revert-verbose magit-inhibit-refresh nil magit-diff-type magit-file-status eieio-oref value #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (staged 42 unstaged 46 untracked 50)) 88 89 90 assoc magit-untracked-files #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (63 123 33 182 68 241 85 318)) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (63 140 85 158)) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (33 199 85 217)) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (32 258 68 276 85 294)) 85 65 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (68 426 85 539)) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (68 441 85 459)) 77 (77 32) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (77 642 68 660)) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (77 697 68 715 32 715)) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (77 750 67 774)) (68 77 32) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (77 782 68 800 32 800)) 82 (68 77 32) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (77 868 68 886)) #[0 "\300 \207" [magit-refresh] 1] t magit-wip-commit-before-change " before discard" magit-discard-files--resolve magit-discard-files--resurrect magit-discard-files--delete magit-discard-files--rename magit-discard-files--discard magit-wip-commit-after-apply " after discard"] 23 (#$ . 22247)]) #@14 (fn FILES) (defalias 'magit-discard-files--resolve #[257 "\211A\205;\300\301\302G\303\304\305##\303\306\307\310\311\312F\313#\314Q\315\"\211\316\267\2024\317\2025\320\2025\321\2025\322\2025\322\262\323\324!\210\211\203S\211\205R\211@\325\"\210A\266\202\202@\207\211\205h\211@\325\326!\"\210A\266\202\202T\207" [read-char-choice format "For these %i files\n%s\ncheckout:\n" mapconcat #[257 "\300P\207" [" "] 3 "\n\n(fn FILE)"] "\n" identity "[o]ur stage" "[t]heir stage" "[c]onflict" "decide [i]ndividually" ", " ", or [C-g] to abort " (111 116 99 105) #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (111 36 116 40 99 44 105 48)) "--ours" "--theirs" "--merge" nil message "" magit-checkout-stage magit-checkout-read-stage] 9 (#$ . 26552)]) #@14 (fn FILES) (defalias 'magit-discard-files--resurrect #[257 "\300\301\"\210\302 \303=\203\304\305\306#\207\304\307\306#\207" [magit-confirm-files resurrect magit-diff-type staged magit-call-git "reset" "--" "checkout"] 5 (#$ . 27362)]) #@21 (fn FILES STATUS) (defalias 'magit-discard-files--delete #[514 "\304\203 \305\202\n\306\"\210\211\205\275\211@\307\310\311\312#)\266\203\203+\313\314\"\210\315\316\"8\317 \320>\203F\321 #\210\322!\266\202\266\211\323\267\202\244\324\311\"\210\325\326\327\330$\266\202\266\331\332\333#\312\334\335\336!\"\"\210\337\340\341\"\342P\211\262\"\210\324\311\"\266\325\326\327\343\330%\266\202\266\325\344\330#\210\324\311\"\210\325\326\327\343\330%\266\202\266\317 \320>\203\265\321 #\210\322!\210\210A\266\202\202\262)\207" [magit-delete-by-moving-to-trash delete-by-moving-to-trash inhibit-changing-match-data dired-recursive-deletes magit-confirm-files trash delete "\\`\\\\?~" nil t string-match error "Refusing to delete %S, too dangerous" 3 assoc magit-diff-type (unstaged untracked) dired-delete-file dired-clean-up-after-deletion #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (32 76 77 92 68 140)) delete-file magit-call-git "rm" "--cached" "--" magit-git-string "checkout-index" "--temp" format "\\(.+?\\) %s" regexp-quote rename-file match-string 1 ".~{index}~" "--force" "checkout"] 11 (#$ . 27610)]) #@21 (fn FILES STATUS) (defalias 'magit-discard-files--rename #[514 "\300\301\302\303\304\305\306\307\"\"%\210\211\205O\211@\310\"A@\311!\203:\312!\211\203/\313\314\"\210\210\315\316#\266\202H\315\317\320\321$\210\315\322\321#\266A\266\202\202\207" [magit-confirm rename "Undo rename %s" "Undo %i renames" nil mapcar make-closure #[257 "\301\300\"\262\302\303A@@#\207" [V0 assoc format "%s -> %s"] 5 "\n\n(fn FILE)"] assoc file-exists-p file-name-directory make-directory t magit-call-git "mv" "rm" "--cached" "--" "reset"] 11 (#$ . 28817)]) #@27 (fn SECTIONS NEW-FILES) (defalias 'magit-discard-files--discard #[514 "\300\301\"\302\303\304\"\305\306\307 \"#\210\307@!\310=\203 \311\312\313#\207\2030\311\314\313#\210\311\315\313#\210\316\317!\211\203i\320\321\320\211\203a\211A\262\242\262\262T\262\322\323\"\235\204<B\262\202<\266\211\237\262\262G\324U\203y\325@\326\"\210\202\202\203\202\327\330\"\210\211\205\331\331\332!\320\211\321\320\211\203\272\211A\262\242\262\262T\262\235\203\262B\262\202\217B\262\202\217\266\237\237D\266\204\211A@\203\321\311\315\313A@#\210\211@\205\331\333\334!\207" [mapcar #[257 "\300\301\"\207" [eieio-oref value] 4 "\n\n(fn IT)"] magit-confirm-files discard append format "Discard %s changes in" magit-diff-type unstaged magit-call-git "checkout" "--" "add" "reset" magit-binary-files "--cached" nil 0 eieio-oref value 1 magit-discard-apply magit-apply-diff magit-discard-apply-n magit-apply-diffs magit-unstaged-files t user-error "Cannot discard staged changes to binary files, which also have unstaged changes. Unstage instead."] 13 (#$ . 29389)]) #@181 Reverse the change at point in the working tree. With a prefix argument fallback to a 3-way merge. Doing so causes the change to be applied to the index as well. (fn &rest ARGS) (defalias 'magit-reverse #[128 "\300 \211\205\314\301 \302 D\211:\205\312\211\242\211\303\267\202H\243\211:\205+\211\243\211?\205)\304\305!\262\262\202\310\243\211:\205C\211\243\211?\205A\304\306!\262\262\202\310\243\211:\205\306\211\242\211\307\267\202\303\243\211?\205d\310\"\262\202\304\243\211?\205v\311\"\262\202\304\243\211?\205\210\312\"\262\202\304\243\211?\205\232\313\"\262\202\304\243\211?\205\254\314\"\262\202\304\243\211?\205\276\314\"\262\202\304\315\262\262\262\262\207" [magit-apply--get-selection magit-diff-type magit-diff-scope #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (untracked 24 unstaged 48)) user-error "Cannot reverse untracked changes" "Cannot reverse unstaged changes" #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (region 87 hunk 105 hunks 123 file 141 files 159 list 177)) magit-reverse-region magit-reverse-hunk magit-reverse-hunks magit-reverse-file magit-reverse-files nil] 10 (#$ . 30509) (byte-code "\205\301C\207" [current-prefix-arg "--3way"] 1)]) #@21 (fn SECTION ARGS) (defalias 'magit-reverse-region #[514 "\300\301\302\"\210\303\304#\207" [magit-confirm reverse "Reverse region" magit-reverse-apply magit-apply-region] 6 (#$ . 31836)]) #@21 (fn SECTION ARGS) (defalias 'magit-reverse-hunk #[514 "\300\301\302\"\210\303\304#\207" [magit-confirm reverse "Reverse hunk" magit-reverse-apply magit-apply-hunk] 6 (#$ . 32033)]) #@22 (fn SECTIONS ARGS) (defalias 'magit-reverse-hunks #[514 "\300\301\302\303G\304@!#\"\210\305\306#\207" [magit-confirm reverse format "Reverse %s hunks from %s" magit-section-parent-value magit-reverse-apply magit-apply-hunks] 9 (#$ . 32224)]) #@21 (fn SECTION ARGS) (defalias 'magit-reverse-file #[514 "\300C\"\207" [magit-reverse-files] 5 (#$ . 32479)]) #@22 (fn SECTIONS ARGS) (defalias 'magit-reverse-files #[514 "\301\302\303!\203 \202\302\304!\203\202\305!\306\211\307\306\211\203K\211A\262\242\262\262T\262\310\311\"\235\203CB\262\202B\262\202\266\237\237D\266\202\262\211\242\243\211\242\243\312\313\314\315\"\"\210\211G\316U\203z\317@\320\n#\210\202\205\211\203\205\317\321\n#\210\205\214\322\323!\207" [magit-buffer-range magit-binary-files derived-mode-p magit-revision-mode magit-diff-mode "--cached" nil 0 eieio-oref value magit-confirm-files reverse mapcar #[257 "\300\301\"\207" [eieio-oref value] 4 "\n\n(fn IT)"] 1 magit-reverse-apply magit-apply-diff magit-apply-diffs user-error "Cannot reverse binary files"] 14 (#$ . 32596)]) #@29 (fn SECTION:S APPLY ARGS) (defalias 'magit-reverse-apply #[771 "\301?\205\302\235?\205\303$\207" [magit-reverse-atomically "--reverse" "--3way" "--reject"] 9 (#$ . 33343)]) #@774 Reverse the change at point in the index but not the working tree. Use this command to extract a change from `HEAD', while leaving it in the working tree, so that it can later be committed using a separate commit. A typical workflow would be: 0. Optionally make sure that there are no uncommitted changes. 1. Visit the `HEAD' commit and navigate to the change that should not have been included in that commit. 2. Type "u" (`magit-unstage') to reverse it in the index. This assumes that `magit-unstage-committed-changes' is non-nil. 3. Type "c e" to extend `HEAD' with the staged changes, including those that were already staged before. 4. Optionally stage the remaining changes using "s" or "S" and then type "c c" to create a new commit. (fn &rest ARGS) (defalias 'magit-reverse-in-index #[128 "\300\301B!\207" [magit-reverse "--cached"] 4 (#$ . 33534) nil]) (provide 'magit-apply)