;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310DD\311\312\313\314\315\316\317& \210\304\320\306\307\321DD\322\312\323\314\324\316\317& \210\304\325\306\307\326DD\327\312\330\314\324\316\317& \210\304\331\306\307\332DD\333\312\334\314\324\316\335& \207" [require magit-core magit-diff magit-wip 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\205\223\301 \302 D\211:\205\221\211@\211\303>\2030A\211:\205+\211A\211?\205)\304\305!\262\262\202\217\211\306=\203\323A\211:\205\316\211@\211\307>\203SA\211?\205N\310 \262\202\314\211\311=\203kA\211?\205f\312\"\262\202\314\211\313=\203\203A\211?\205~\314\"\262\202\314\211\315=\203\233A\211?\205\226\316\"\262\202\314\211\317=\203\263A\211?\205\256\320\"\262\202\314\211\321=\203\313A\211?\205\306\322\"\262\202\314\323\262\262\202\217A\211:\205\215\211@\211\311=\203\364A\211?\205\357\312\"\262\202\213\211\313=\203\fA\211?\205\314\"\262\202\213\211\315=\203$A\211?\205\316\"\262\202\213\324=\203Z\211\317=\203>A\211?\2059\325 \262\202\213\211\321=\203VA\211?\205Q\322\"\262\202\213\323\202\213\211\317=\203rA\211?\205m\320\"\262\202\213\211\321=\203\212A\211?\205\205\322\"\262\202\213\323\262\262\262\262\207" [magit-apply--get-selection magit-diff-type magit-diff-scope (staged unstaged) user-error "Change is already in the working tree" untracked (files file) magit-am-popup region magit-apply-region hunk magit-apply-hunk hunks magit-apply-hunks file magit-apply-diff files magit-apply-diffs nil rebase-sequence magit-patch-apply-popup] 10 (#$ . 2932) (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 (#$ . 4515)]) #@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 (#$ . 4745)]) #@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 (#$ . 5021)]) #@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#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 magit-apply--section-content ""] 11 (#$ . 5239)]) #@27 (fn SECTION &rest ARGS) (defalias 'magit-apply-hunk #[385 "\300\301\302!\"\203 \303\304!\210\305\306\307\"\310!\311!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--section-content] 8 (#$ . 5606)]) #@27 (fn SECTION &rest ARGS) (defalias 'magit-apply-region #[385 "\300 \204 \301\302!\210\303\304\305!\"\203\301\306!\210\307\310\311\"\312!\313\"P#\207" [magit-diff-context-p user-error "Not enough context to apply region. Increase the context" string-match "^diff --cc" magit-section-parent-value "Cannot un-/stage resolution hunks. Stage the whole file" magit-apply-patch eieio-oref parent magit-diff-file-header magit-diff-hunk-region-patch] 9 (#$ . 5974)]) #@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 \203;\n\204;\320\321P\"\210\322\323!r\211q\210\324\325\326\327\330!\331\"\332$\216c\210\333\315 \334\205]\335\205c\336\337\340&\210*\210\n?\205| \203z\341\342P\"\210\343 \207" [this-command magit-wip-before-change-mode inhibit-magit-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-context-p magit-diff-ignore-any-space-p magit-wip-commit-before-change " before " generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 magit-run-git-with-input "-p0" "--unidiff-zero" "-C0" "--ignore-space-change" "-" magit-wip-commit-after-apply " after " magit-refresh] 17 (#$ . 6452)]) (defalias 'magit-apply--get-selection #[0 "\300\301\302\"\206+\303 \304\305\"\211\306>\203\202'\211\307>\203$\304\310\"\202'\311\312!\262\262\207" [magit-region-sections (hunk file module) t magit-current-section eieio-oref type (module file hunk) (stashed-untracked stashed-worktree stashed-index untracked unstaged staged) 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\"\202\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 (#$ . 7832)]) (defalias 'magit-apply--diff-ignores-whitespace-p #[0 "\302\303\304!\203 \3058\202 \306\307\310$\205\311\207" [magit-refresh-args magit-diff-section-arguments cl-intersection derived-mode-p magit-diff-mode 2 ("--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\303 \304 \305 E\211:\205\375\211@\211\306=\203BA\211:\205=\211A\211:\205;\211A\211?\2059\307!\262\262\262\202\373\211\310=\203\205A\211:\205\200\211@\211\311=\203qA\211:\205l\211A\211?\205j\312\313\"\262\262\202~\211\314=\203\221A\211:\205\214\211A\211?\205\212\315\313\"\262\262\202~\211\316=\203\261A\211:\205\254\211A\211?\205\252\317\313\"\262\262\202~\211\320=\203\370A\211:\205\363\211@\211\321=\203\327A\211?\205\322\322\313\"\262\202\361\211\204\360A\211?\205\353\323\324\325\n\326\"C\"\262\202\361\327\262\262\202~\211\330=\203=A\211:\2058\211@\211\321=\203A\211?\205\331\313\"\262\2026\211\2045A\211?\2050\323\324\332\327\321\"\"\262\2026\327\262\262\202~\211\333=\203}A\211:\205x\211@\211\321=\203cA\211?\205^\331\313\"\262\202v\211\204uA\211?\205p\334 \262\202v\327\262\262\202~\327\262\262\202\373\211\335=\203\254A\211:\205\247\211A\211:\205\245\211A\211?\205\243\336\337!\262\262\262\202\373\211\340=\203\323A\211:\205\316\211A\211:\205\314\211A\211?\205\312\336\341!\262\262\262\202\373\211\342=\203\372A\211:\205\365\211A\211:\205\363\211A\211?\205\361\336\343!\262\262\262\202\373\327\262\262\202\344\345!\207" [derived-mode-p magit-mode magit-apply--get-selection magit-diff-type magit-diff-scope magit-apply--diff-ignores-whitespace-p untracked magit-stage-untracked unstaged region magit-apply-region "--cached" hunk magit-apply-hunk hunks magit-apply-hunks file t magit-apply-diff magit-stage-1 "-u" eieio-oref value nil files magit-apply-diffs magit-region-values list magit-stage-modified staged user-error "Already staged" committed "Cannot stage committed changes" undefined "Cannot stage this change" call-interactively magit-stage-file] 14 (#$ . 8572) "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\")\202\304 \207" [default-directory magit-toplevel magit-stage-1 nil magit--not-inside-repository-error] 5 (#$ . 10638) (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 "\301 \203 \302\303!\210\304 \211\203 \211\305\203\306\202\307!)\202\"\310 \207" [default-directory magit-anything-staged-p magit-confirm stage-all-changes magit-toplevel magit-stage-1 "--all" "-u" magit--not-inside-repository-error] 4 (#$ . 11307) "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 (#$ . 11894)]) #@25 (fn &optional INTENT) (defalias 'magit-stage-untracked #[256 "\303 \304 \211\305=\203\306\307\"C\202+\211\310=\203\311\312\313\"\202+\211\314=\203*\315 \202+\312\262\312\211\211\203W\211@\316!\204K\317\313\"\203K\211B\262\202P\211B\262A\266\202\2020\210\320\321\"\210\203v\322\323\205i\324\325$\210\203v\326\327\"\210\211\211\203\364\211@\212\306\330\305B\331B!\332\"b\210\333 \334\301!\205\223 \232\205\235\335\336!!\337\340\341!!\342\343\344 \345#\206\262\340\346!P)\347\"#\210\211\203\352\350\341\351\"!\210 \352!\210)\353\354\355\"!\203\352\356\357!\203\352\356\360!\203\352\357!\210\360!\210\266)A\266\202\202w\210\361\362\"\207" [magit-auto-revert-mode borg-user-emacs-directory default-directory magit-current-section magit-diff-scope file eieio-oref value files magit-region-values nil t list 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 ((untracked) (status)) start magit-toplevel boundp file-name-nondirectory directory-file-name magit-submodule-add file-name-as-directory expand-file-name magit-get "remote" magit-get-some-remote "url" "." magit-submodule-read-name-for-path borg--sort-submodule-sections ".gitmodules" borg--maybe-absorb-gitdir y-or-n-p format "Also build and activate `%s' drone?" fboundp borg-build borg-activate magit-wip-commit-after-apply " after stage"] 15 (#$ . 12259)]) #@51 Remove the change at point from the staging area. (defalias 'magit-unstage #[0 "\301 \211\205\302 \303 \304 E\211:\205\211@\211\305=\203;A\211:\2056\211A\211:\2054\211A\211?\2052\306\307!\262\262\262\202\211\310=\203bA\211:\205]\211A\211:\205[\211A\211?\205Y\306\311!\262\262\262\202\211\312=\203\251A\211:\205\244\211@\211\313=\203\222A\211:\205\215\211A\211?\205\213\314\315\316#\262\262\202\242\211\317=\203\263A\211:\205\256\211A\211?\205\254\320\315\316#\262\262\202\242\211\321=\203\324A\211:\205\317\211A\211?\205\315\322\315\316#\262\262\202\242\211\323=\203A\211:\205\211@\211\324=\203\373A\211?\205\366\325\315\316#\262\202\211\204A\211?\205\326\327 \330\"C!\262\202\331\262\262\202\242\211\332=\203`A\211:\205[\211@\211\324=\203BA\211?\205=\333\315\316#\262\202Y\211\204XA\211?\205S\326\334\331\324\"!\262\202Y\331\262\262\202\242\211\335=\203\241A\211:\205\234\211@\211\324=\203\207A\211?\205\202\333\315\316#\262\202\232\211\204\231A\211?\205\224\336 \262\202\232\331\262\262\202\242\331\262\262\202\211\337=\203\331A\211:\205\324\211A\211:\205\322\211A\211?\205\320\203\315\340 \202\320\306\341!\262\262\262\202\211\342=\203A\211:\205\373\211A\211:\205\371\211A\211?\205\367\306\343!\262\262\262\202\331\262\262\207" [magit-unstage-committed magit-apply--get-selection magit-diff-type magit-diff-scope magit-apply--diff-ignores-whitespace-p untracked user-error "Cannot unstage untracked changes" unstaged "Already unstaged" staged region magit-apply-region "--reverse" "--cached" hunk magit-apply-hunk hunks magit-apply-hunks file t magit-apply-diff magit-unstage-1 eieio-oref value nil files magit-apply-diffs magit-region-values list magit-unstage-all committed magit-reverse-in-index "Cannot unstage committed changes" undefined "Cannot unstage this change"] 12 (#$ . 13798) 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!)\202\303 \207" [default-directory magit-toplevel magit-unstage-1 magit--not-inside-repository-error] 4 (#$ . 15749) (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 (#$ . 16388)]) #@43 Remove all changes from the staging area. (defalias 'magit-unstage-all #[0 "\300 \204\n\301 \203\302\303!\210\304\305\306\"\210\307\310\311\312#\210\313\305\314\"\207" [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"] 4 (#$ . 16716) nil]) #@29 Remove the change at point. (defalias 'magit-discard #[0 "\300 \211\205\344\301 \302 D\211:\205\342\211@\211\303=\2030A\211:\205+\211A\211?\205)\304\305!\262\262\202\340\211\306=\203NA\211:\205I\211A\211?\205G\304\307!\262\262\202\340A\211:\205\336\211@\211\310=\203mA\211?\205h\311!\262\202\334\211\312=\203\203A\211?\205~\313!\262\202\334\211\314=\203\231A\211?\205\224\315!\262\202\334\211\316=\203\257A\211?\205\252\317!\262\202\334\211\320=\203\305A\211?\205\300\321!\262\202\334\211\322=\203\333A\211?\205\326\321!\262\202\334\323\262\262\262\262\207" [magit-apply--get-selection magit-diff-type magit-diff-scope committed user-error "Cannot discard committed changes" undefined "Cannot discard this change" region magit-discard-region hunk magit-discard-hunk hunks magit-discard-hunks file magit-discard-file files magit-discard-files list nil] 8 (#$ . 17131) 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 (#$ . 18074)]) #@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 (#$ . 18266)]) #@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" [inhibit-magit-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 (#$ . 18452)]) #@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 (#$ . 18892)]) #@23 (fn SECTIONS APPLY) (defalias 'magit-discard-apply-n #[514 "@\301!\302=\203\303\"\202@\304\305\306!\203 \307\310\"\202#\311!\"\203;\312\303\313#\210\303\314#\210)\315 \202@\303\316#\207" [inhibit-magit-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 (#$ . 19144)]) #@16 (fn SECTION) (defalias 'magit-discard-file #[257 "\300C!\207" [magit-discard-files] 3 (#$ . 19581)]) #@17 (fn SECTIONS) (defalias 'magit-discard-files #[257 "\302\303@!\304 \302\211\211\211\211\211\211 \n\211\203\257\211@\305\306\"\211\nB\262\n \307=\203.\310\202E \311=\2039\312\202E \313=\203D\314\202E\302\315 \"AAB\211:\203\246\211@\211\314=\203\266A\211\204{\316\302\"\211\203w\211@\211B\262A\266\202\202d\210\202\262\211:\203\262\211@\211\317=\203\301A\211:\203\275\211@\211\317=\203\250A\211\204\244B\262\210\202\274\211\320=\203\274A\211\204\273 B\262 \210\210\210\202\261\211\321=\203A\211:\203\374\211@\211\321=\203\347A\211\204\343B\262\210\202\373\211\320=\203\373A\211\204\372 B\262 \210\210\210\202\261\211\322=\203VA\211:\203R\211@\211\323=\203&A\211\204\"B\262\210\202Q\211\322=\203=A\211\2049B\262\210\202Q\211\320=\203QA\211\204P B\262 \210\210\210\202\261\211\320=\203uA\211:\203q\211A\211\204p\nB\262\n\210\210\202\261A\211:\203\260\211@\211\320=\203\225A\211\204\221 B\262 \210\202\257\324=\203\257\211\324=\203\257A\211\204\256 B\262 \210\210\210\210\210\202\245A\211:\203\244\211@\211\322=\2038A\211:\2034\211@\211\322=\203\345A\211\204\341B\262\210\2023\211\320=\203\374A\211\204\370 B\262 \210\2023\312=\203\211\325=\2033A\211\204 B\262 \210\2023\310=\2033\211\326>\2033A\211\2042B\262\210\210\210\202\243\211\320=\203WA\211:\203S\211A\211\204R\nB\262\n\210\210\202\243A\211:\203\242\211@\211\320=\203wA\211\204s B\262 \210\202\241\324=\203\374\211\324=\203\224A\211\204\220 B\262 \210\202\241\312=\203\310\211\325=\203\261A\211\204\255 B\262 \210\202\241\211\322=\203\241A\211\204\304B\262\210\202\241\310=\203\241\211\325=\203\345A\211\204\341\fB\262\f\210\202\241\211\327>\203\241A\211\204\370B\262\210\202\241\310=\203p\325=\203\211\330>\203\241A\211\204 B\262 \210\202\241\331=\203S\211\325=\203<A\211\2048\fB\262\f\210\202\241\211\332>\203\241A\211\204OB\262\210\202\241\333=\203\241\211\334>\203\241A\211\204lB\262\210\202\241\312=\203\241\211\325=\203\215A\211\204\211 B\262 \210\202\241\211\322=\203\241A\211\204\240B\262\210\210\210\210\210\210\266A\266\202\202\210\335\216\336\337\340\"\210\211\203\303\341\237!\210\203\314\342\237!\210\203\330\343\237 \"\210\203\343\344\237 \"\210\204\353\203\362\345\237\237\"\210\346\347\"+\207" [auto-revert-verbose inhibit-magit-refresh nil magit-diff-type magit-file-status eieio-oref value staged 88 unstaged 89 untracked 90 assoc magit-untracked-files 63 85 33 68 32 65 77 (77 32) (68 32) (68 77 32) 67 (68 32) 82 (68 77 32) #[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 (#$ . 19691)]) #@14 (fn FILES) (defalias 'magit-discard-files--resolve #[257 "\211A\205@\300\301\302G\303\304\305##\306P\307\"\211\310=\203\311\202>\211\312=\203)\313\202>\211\314=\2033\315\202>\211\316=\203=\317\202>\317\262\211\203\\\211\205W\211@\320\"\210A\266\202\202E\262\202s\211\205q\211@\320\321!\"\210A\266\202\202]\262\207" [read-char-choice format "For these %i files\n%s\ncheckout:\n" mapconcat #[257 "\300P\207" [" "] 3 "\n\n(fn FILE)"] "\n" "[o]ur stage, [t]heir stage, [c]onflict, decide [i]ndividually, or [C-g] to abort " (111 116 99 105) 111 "--ours" 116 "--theirs" 99 "--merge" 105 nil magit-checkout-stage magit-checkout-read-stage] 9 (#$ . 22709)]) #@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 (#$ . 23400)]) #@21 (fn FILES STATUS) (defalias 'magit-discard-files--delete #[514 "\303\203 \304\202\n\305\"\210\211\205\234\211@\306 \307>\203*\310\n#\210\311!\210\202\225\312\313\"8\211\314=\203E\315\316\"\210\317\320\321\322$\210\202\224\211\323=\203z\324\325\326#\327\330\331\332!\"\"\210\333\334\335\"\336P\211\262\"\210\315\316\"\266\317\320\321\337\322%\210\202\224\211\340=\203\224\317\341\322#\210\315\316\"\210\317\320\321\337\322%\210\210A\266\202\202\262)\207" [magit-delete-by-moving-to-trash delete-by-moving-to-trash dired-recursive-deletes magit-confirm-files trash delete magit-diff-type (unstaged untracked) dired-delete-file dired-clean-up-after-deletion 3 assoc 32 delete-file t magit-call-git "rm" "--cached" "--" 77 magit-git-string "checkout-index" "--temp" string-match format "\\(.+?\\) %s" regexp-quote rename-file match-string 1 ".~{index}~" "--force" 68 "checkout"] 11 (#$ . 23648)]) #@21 (fn FILES STATUS) (defalias 'magit-discard-files--rename #[514 "\300\301\302\303\304\305\306\307\310\311\312 !\313\"\314\315%\"%\210\211\205V\211@\316\"A@\317!\203A\320!\211\2037\321\322\"\210\210\323\324#\210\202N\323\325\326\327$\210\323\330\327#\210\210A\266\202\202\207" [magit-confirm rename "Undo rename %s" "Undo %i renames" nil mapcar make-byte-code 257 "\301\300\"\262\302\303A@@#\207" vconcat vector [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"] 14 (#$ . 24590)]) #@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#\202\321\2032\311\314\313#\210\311\315\313#\210\316\317!\211\203d\320\321\203\\@\322\323\"\235\204P\211B\262\210\211T\262A\262\202<\266\211\237\262\262G\324U\203t\325@\326\"\210\202}\203}\327\330\"\210\211\205\317\331\332!\320\211\321\203\256@\211\235\203\235\211B\262\202\242\211B\262\210\211T\262A\262\202\210\266\237\237D\266\202\266\202\211A@\203\307\311\315\313A@#\210\211@\205\317\333\334!\262\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."] 12 (#$ . 25201)]) #@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\360\301 \302 D\211:\205\356\211@\211\303=\2030A\211:\205+\211A\211?\205)\304\305!\262\262\202\354\211\306=\203NA\211:\205I\211A\211?\205G\304\307!\262\262\202\354A\211:\205\352\211@\211\310=\203oA\211?\205j\311\"\262\202\350\211\312=\203\207A\211?\205\202\313\"\262\202\350\211\314=\203\237A\211?\205\232\315\"\262\202\350\211\316=\203\267A\211?\205\262\317\"\262\202\350\211\320=\203\317A\211?\205\312\321\"\262\202\350\211\322=\203\347A\211?\205\342\321\"\262\202\350\323\262\262\262\262\207" [magit-apply--get-selection magit-diff-type magit-diff-scope untracked user-error "Cannot reverse untracked changes" unstaged "Cannot reverse unstaged changes" region magit-reverse-region hunk magit-reverse-hunk hunks magit-reverse-hunks file magit-reverse-file files magit-reverse-files list nil] 10 (#$ . 26309) (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 (#$ . 27491)]) #@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 (#$ . 27688)]) #@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 (#$ . 27879)]) #@21 (fn SECTION ARGS) (defalias 'magit-reverse-file #[514 "\300C\"\207" [magit-reverse-files] 5 (#$ . 28134)]) #@22 (fn SECTIONS ARGS) (defalias 'magit-reverse-files #[514 "\301\302\303!\203@\304\305\211#\262\202\302\306!\203@\202\307!\310\211\311\203M@\312\313\"\235\203<\211B\262\202A\211B\262\210\211T\262A\262\202$\266\237\237D\266\202\262\211@A\211@A\314\315\316\317\"\"\210G\320U\203|\321@\322\n#\210\202\207\203\207\321\323\n#\210\211\205\216\324\325!\266\202\207" [magit-refresh-args magit-binary-files derived-mode-p magit-revision-mode format "%s^..%s" 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 (#$ . 28251)]) #@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 (#$ . 29016)]) #@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 (#$ . 29207) nil]) (provide 'magit-apply)