| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\301\302!\210\303\304\305\306\307\310%\210\311\312\313\314\315DD\316\317\320\307\304\321\322& \210\311\323\313\314\324DD\325\317\326\307\304\307\327\321\330\331\332\333\334\335\336\337\"&\207" [magit-log-margin--custom-type require magit custom-declare-group magit-stash nil "List stashes and show stash diffs." :group magit-modes custom-declare-variable magit-stash-sections-hook funcall function #[0 "\300\207" [(magit-insert-stash-notes magit-insert-stash-worktree magit-insert-stash-index magit-insert-stash-untracked)] 1] "Hook run to insert sections into stash diff buffers." :package-version (magit . "2.1.0") :type hook magit-stashes-margin #[0 "@A@\301\302\3038\257\207" [magit-log-margin magit-log-margin-width nil 4] 6] "Format of the margin in `magit-stashes-mode' buffers.\n\nThe value has the form (INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH).\n\nIf INIT is non-nil, then the margin is shown initially.\nSTYLE controls how to format the committer date. It can be one\n of `age' (to show the age of the commit), `age-abbreviated' (to\n abbreviate the time unit to a character), or a string (suitable\n for `format-time-string') to show the actual date.\nWIDTH controls the width of the margin. This exists for forward\n compatibility and currently the value should not be changed.\nAUTHOR controls whether the name of the author is also shown by\n default.\nAUTHOR-WIDTH has to be an integer. When the name of the author\n is shown, then this specifies how much space is used to do so." (magit . "2.9.0") magit-margin :initialize magit-custom-initialize-reset :set-after (magit-log-margin) :set apply-partially magit-margin-set-variable magit-stashes-mode] 20) | |
| 16 | #@55 Popup console for stash commands. | |
| 17 | ||
| 18 | (fn &optional ARG) | |
| 19 | (defalias 'magit-stash-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-stash-popup nil] 5 (#$ . 2103) "P"]) | |
| 20 | (defvar magit-stash-popup (list :variable 'magit-stash-arguments :man-page "git-stash" :switches '((117 "Also save untracked files" "--include-untracked") (97 "Also save untracked and ignored files" "--all")) :actions '((122 "Save" magit-stash-both) (90 "Snapshot" magit-snapshot-both) (112 "Pop" magit-stash-pop) (105 "Save index" magit-stash-index) (73 "Snapshot index" magit-snapshot-index) (97 "Apply" magit-stash-apply) (119 "Save worktree" magit-stash-worktree) (87 "Snapshot worktree" magit-snapshot-worktree) (108 "List" magit-stash-list) (120 "Save keeping index" magit-stash-keep-index) (114 "Snapshot to wipref" magit-wip-commit) (118 "Show" magit-stash-show) (98 "Branch" magit-stash-branch) (107 "Drop" magit-stash-drop) nil (66 "Branch here" magit-stash-branch-here) nil nil (102 "Format patch" magit-stash-format-patch)) :default-action 'magit-stash :max-action-columns 3)) | |
| 21 | (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-stash-popup custom-declare-variable magit-stash-arguments funcall function #[0 "\301\302\"\207" [magit-stash-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8) | |
| 22 | (defalias 'magit-stash-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-stash-arguments magit-stash-popup] 2]) | |
| 23 | (put 'magit-stash-arguments 'definition-name 'magit-stash-popup) | |
| 24 | #@261 Create a stash of the index and working tree. | |
| 25 | Untracked files are included according to popup arguments. | |
| 26 | One prefix argument is equivalent to `--include-untracked' | |
| 27 | while two prefix arguments are equivalent to `--all'. | |
| 28 | ||
| 29 | (fn MESSAGE &optional INCLUDE-UNTRACKED) | |
| 30 | (defalias 'magit-stash-both #[513 "\300\301\211\301%\207" [magit-stash-save t] 8 (#$ . 3729) (magit-stash-read-args)]) | |
| 31 | #@285 Create a stash of the index only. | |
| 32 | Unstaged and untracked changes are not stashed. The stashed | |
| 33 | changes are applied in reverse to both the index and the | |
| 34 | worktree. This command can fail when the worktree is not clean. | |
| 35 | Applying the resulting stash has the inverse effect. | |
| 36 | ||
| 37 | (fn MESSAGE) | |
| 38 | (defalias 'magit-stash-index #[257 "\300\301\302\211\301\303&\207" [magit-stash-save t nil worktree] 8 (#$ . 4117) (byte-code "\300 C\207" [magit-stash-read-message] 1)]) | |
| 39 | #@271 Create a stash of unstaged changes in the working tree. | |
| 40 | Untracked files are included according to popup arguments. | |
| 41 | One prefix argument is equivalent to `--include-untracked' | |
| 42 | while two prefix arguments are equivalent to `--all'. | |
| 43 | ||
| 44 | (fn MESSAGE &optional INCLUDE-UNTRACKED) | |
| 45 | (defalias 'magit-stash-worktree #[513 "\300\301\302\302\303&\207" [magit-stash-save nil t index] 9 (#$ . 4581) (magit-stash-read-args)]) | |
| 46 | #@283 Create a stash of the index and working tree, keeping index intact. | |
| 47 | Untracked files are included according to popup arguments. | |
| 48 | One prefix argument is equivalent to `--include-untracked' | |
| 49 | while two prefix arguments are equivalent to `--all'. | |
| 50 | ||
| 51 | (fn MESSAGE &optional INCLUDE-UNTRACKED) | |
| 52 | (defalias 'magit-stash-keep-index #[513 "\300\301\211\301\302&\207" [magit-stash-save t index] 9 (#$ . 4998) (magit-stash-read-args)]) | |
| 53 | (defalias 'magit-stash-read-args #[0 "\300 \301 D\207" [magit-stash-read-message magit-stash-read-untracked] 2]) | |
| 54 | (defalias 'magit-stash-read-untracked #[0 "\301!\302 \303U\204 \304\235\203 \305\202\" \306U\204! \307\235\205\" \310\207" [current-prefix-arg prefix-numeric-value magit-stash-arguments 16 "--all" all 4 "--include-untracked" t] 4]) | |
| 55 | (defalias 'magit-stash-read-message #[0 "\300\301\302 \206 \303\"\304\305\"\211\232\203 \306\307!P\202 \211\207" [format "On %s: " magit-get-current-branch "(no branch)" magit-read-string "Stash message" magit-rev-format "%h %s"] 5]) | |
| 56 | #@256 Create a snapshot of the index and working tree. | |
| 57 | Untracked files are included according to popup arguments. | |
| 58 | One prefix argument is equivalent to `--include-untracked' | |
| 59 | while two prefix arguments are equivalent to `--all'. | |
| 60 | ||
| 61 | (fn &optional INCLUDE-UNTRACKED) | |
| 62 | (defalias 'magit-snapshot-both #[256 "\300\301\211\301$\207" [magit-snapshot-save t] 6 (#$ . 6017) (magit-snapshot-read-args)]) | |
| 63 | #@86 Create a snapshot of the index only. | |
| 64 | Unstaged and untracked changes are not stashed. | |
| 65 | (defalias 'magit-snapshot-index #[0 "\300\301\302\211\301$\207" [magit-snapshot-save t nil] 5 (#$ . 6407) nil]) | |
| 66 | #@266 Create a snapshot of unstaged changes in the working tree. | |
| 67 | Untracked files are included according to popup arguments. | |
| 68 | One prefix argument is equivalent to `--include-untracked' | |
| 69 | while two prefix arguments are equivalent to `--all'. | |
| 70 | ||
| 71 | (fn &optional INCLUDE-UNTRACKED) | |
| 72 | (defalias 'magit-snapshot-worktree #[256 "\300\301\302\302$\207" [magit-snapshot-save nil t] 6 (#$ . 6611) (magit-snapshot-read-args)]) | |
| 73 | (defalias 'magit-snapshot-read-args #[0 "\300 C\207" [magit-stash-read-untracked] 1]) | |
| 74 | #@51 | |
| 75 | ||
| 76 | (fn INDEX WORKTREE UNTRACKED &optional REFRESH) | |
| 77 | (defalias 'magit-snapshot-save #[1027 "\300\301\302 P\303&\207" [magit-stash-save "WIP on " magit-stash-summary t] 11 (#$ . 7105)]) | |
| 78 | #@172 Apply a stash to the working tree. | |
| 79 | Try to preserve the stash index. If that fails because there | |
| 80 | are staged changes, apply without preserving the stash index. | |
| 81 | ||
| 82 | (fn STASH) | |
| 83 | (defalias 'magit-stash-apply #[257 "\300\301\302\303$\304U\203 \305 \207\306\301\302#\207" [magit-call-git "stash" "apply" "--index" 0 magit-refresh magit-run-git] 6 (#$ . 7299) (byte-code "\300\301!C\207" [magit-read-stash "Apply stash"] 2)]) | |
| 84 | #@231 Apply a stash to the working tree and remove it from stash list. | |
| 85 | Try to preserve the stash index. If that fails because there | |
| 86 | are staged changes, apply without preserving the stash index | |
| 87 | and forgo removing the stash. | |
| 88 | ||
| 89 | (fn STASH) | |
| 90 | (defalias 'magit-stash-pop #[257 "\300\301\302\303$\304U\203 \305!\207\306\301\302#\207" [magit-call-git "stash" "apply" "--index" 0 magit-stash-drop magit-run-git] 6 (#$ . 7724) (byte-code "\300\301!C\207" [magit-read-stash "Pop stash"] 2)]) | |
| 91 | #@112 Remove a stash from the stash list. | |
| 92 | When the region is active offer to drop all contained stashes. | |
| 93 | ||
| 94 | (fn STASH) | |
| 95 | (defalias 'magit-stash-drop #[257 "\211<\203 \211@\262\237\202 \211C\211\2033 \211@\300\301\302\303\"#\210\304\305\"\210\304\306\307\310\311%\210A\266\202\202 \210\312\313\"\205? \314\315\"\211\203] \312\316\"\204O \317P\262\320\321P!\204] \322\323\324#\210\210\325 \207" [message "Deleted refs/%s (was %s)" magit-rev-parse "--short" magit-call-git "rev-parse" "reflog" "delete" "--updateref" "--rewrite" string-match "\\(.+\\)@{[0-9]+}$" match-string 1 "^refs/" "refs/" magit-rev-verify "@{0}" magit-run-git "update-ref" "-d" magit-refresh] 9 (#$ . 8208) (byte-code "\300\301!\211\203 \302\303\304\305\304%\202 \306\307!\262C\207" [magit-region-values stash magit-confirm t nil "Drop %i stashes" magit-read-stash "Drop stash"] 7)]) | |
| 96 | #@69 Remove all stashes saved in REF's reflog by deleting REF. | |
| 97 | ||
| 98 | (fn REF) | |
| 99 | (defalias 'magit-stash-clear #[257 "\300\301\302#\207" [magit-run-git "update-ref" "-d"] 5 (#$ . 9079) (byte-code "\300\301!\206 \302\303\304\305\306\"\"\210\211C\207" [magit-section-value-if stashes "refs/stash" magit-confirm t format "Drop all stashes in %s"] 6)]) | |
| 100 | #@65 Create and checkout a new BRANCH from STASH. | |
| 101 | ||
| 102 | (fn STASH BRANCH) | |
| 103 | (defalias 'magit-stash-branch #[514 "\300\301\302$\207" [magit-run-git "stash" "branch"] 7 (#$ . 9423) (byte-code "\300\301!\302\303!D\207" [magit-read-stash "Branch stash" magit-read-string-ns "Branch name"] 3)]) | |
| 104 | #@170 Create and checkout a new BRANCH and apply STASH. | |
| 105 | The branch is created using `magit-branch', using the current | |
| 106 | branch or `HEAD' as the string-point. | |
| 107 | ||
| 108 | (fn STASH BRANCH) | |
| 109 | (defalias 'magit-stash-branch-here #[514 "\301\302\303 \206\n \304\"\210)\305!\207" [inhibit-magit-refresh t magit-branch-create magit-get-current-branch "HEAD" magit-stash-apply] 5 (#$ . 9710) (byte-code "\300\301!\302\303!D\207" [magit-read-stash "Branch stash" magit-read-string-ns "Branch name"] 3)]) | |
| 110 | #@39 Create a patch from STASH | |
| 111 | ||
| 112 | (fn STASH) | |
| 113 | (defalias 'magit-stash-format-patch #[257 "\300\301\"\302\303\304!!\305\306\307\310\311!\312\"\313$\216r\211q\210\314\315\316\317$\210)r\211q\210\320\321\211\321\306%\210*\266\322 \207" [magit-rev-format "0001-%f.patch" get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 magit-git-insert "stash" "show" "-p" write-region nil magit-refresh] 9 (#$ . 10193) (byte-code "\300\301!C\207" [magit-read-stash "Create patch from stash"] 2)]) | |
| 114 | #@76 | |
| 115 | ||
| 116 | (fn MESSAGE INDEX WORKTREE UNTRACKED &optional REFRESH KEEP NOERROR REF) | |
| 117 | (defalias 'magit-stash-save #[2052 "\203 \301\302!\204! \203 \303\302!\204! \203\251 \304\305=!\203\251 \306 \211\203\246 \211\307 \2061 \310\311\f\f\f\f$#\210\312=\203o \313\314!r\211q\210\315\316\317\320\321!\322\"\323$\216\324\325\326\"\210\327\330\331\326\332\333%\210\327\330\331\332\333$\210*\210\202\234 \302=\204\234 \334=\203\204 \335\336\337\340#\210\202\212 \335\341\342\343#\210\203\234 \335\344\345\346 \305=\205\232 \347$\210\205\242 \350 )\202\250 \351 \207?\205\304 \352\353\204\271 \354\202\303 \204\302 \355\202\303 \356\"\207" [default-directory magit-staged-files t magit-unstaged-files magit-untracked-files all magit-toplevel magit-stash-store "refs/stash" magit-stash-create worktree generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 magit-git-insert "diff" "--cached" magit-run-git-with-input "apply" "--reverse" "--ignore-space-change" "-" index magit-call-git "checkout" "--" "." "reset" "--hard" "HEAD" "clean" "--force" "-d" "-x" magit-refresh magit--not-inside-repository-error user-error "No %s changes to save" "unstaged" "staged" "local"] 17 (#$ . 10774)]) | |
| 118 | #@27 | |
| 119 | ||
| 120 | (fn MESSAGE REF COMMIT) | |
| 121 | (defalias 'magit-stash-store #[771 "\300\301$\207" [magit-update-ref t] 8 (#$ . 12041)]) | |
| 122 | #@41 | |
| 123 | ||
| 124 | (fn MESSAGE INDEX WORKTREE UNTRACKED) | |
| 125 | (defalias 'magit-stash-create #[1028 "\305\306\307\"\204 \310\311!\210\312\313D\244\314 \315 \307\203/ \204/ \316\317\320\307#\206- \310\321!\262\316\322P\320#\211\262\204@ \310\321!\210\203\316 \323\324=!\211\262\203\316 \320\325\326\327\330!!!\331\332\333\334\335!\336\"\337$\216\314 \211\203\305 \211\320\211\203\203 \340\341\320\342P$\204\203 \310\343\"\210\210\344 !\203\247 \345P B\346!\203\240 \316\347P!\206\243 \310\350!)\202\301 \345P\fB \346!\203\275 \316\347P!\206\300 \310\350!))\202\307 \351 \262*\266\202\262\320\325\326\327\330!!!\331\332\333\334\335!\352\"\337$\216\314 \211\203k\211 \211\203\340\341\353\342P$\204\310\343\"\210\210\344 !\203:\345P B\203%\346\354\355\356\357$!\204%\310\360!\210\316 \320 \f%\2066\310\360!)\202g\345P\fB \203U\346\354\355\356\357$!\204U\310\360!\210\316 \320 \f%\206f\310\360!))\202m\351 \262*\266\202*\207" [magit-git-global-arguments default-directory magit--refresh-cache magit-tramp-process-environment process-environment magit-rev-parse "--verify" "HEAD" error "You do not have the initial commit yet" "-c" "commit.gpgsign=false" magit-toplevel magit-stash-summary magit-commit-tree "pre-stash index" nil "Cannot save the current index state" "index on " magit-untracked-files all magit-convert-filename-for-git make-temp-name magit-git-dir "index.magit." make-byte-code 0 "\3021 \303\304 !\300P!0\207\210\305\207" vconcat vector [default-directory (error) delete-file file-remote-p nil] 3 magit-git-success "read-tree" "--index-output=" "Cannot read tree %s" file-remote-p "GIT_INDEX_FILE=" magit-update-files "untracked files on " "Cannot save the untracked files" magit--not-inside-repository-error [default-directory (error) delete-file file-remote-p nil] "-m" magit-git-items "diff" "-z" "--name-only" "Cannot save the current worktree state"] 18 (#$ . 12165)]) | |
| 126 | (defalias 'magit-stash-summary #[0 "\300 \206 \301\302\303\304!Q\207" [magit-get-current-branch "(no branch)" ": " magit-rev-format "%h %s"] 4]) | |
| 127 | #@31 Keymap for `stashes' section. | |
| 128 | (defvar magit-stashes-section-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key [remap magit-delete-thing] magit-stash-clear] 5) (#$ . 14263)) | |
| 129 | #@30 Keymap for `stash' sections. | |
| 130 | (defvar magit-stash-section-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\211\207" [make-sparse-keymap define-key [remap magit-visit-thing] magit-stash-show [remap magit-delete-thing] magit-stash-drop "a" magit-stash-apply "A" magit-stash-pop] 5) (#$ . 14472)) | |
| 131 | #@94 Jump to the section "Stashes". | |
| 132 | With a prefix argument also expand it. | |
| 133 | ||
| 134 | (fn &optional EXPAND) | |
| 135 | (defalias 'magit-jump-to-stashes #[256 "\303\304\305B\306!B!\211\2032 \307\310\"b\210\2055 \3111% \312\313!)0\202+ \210\314\315\316!\210\317\320!\2025 \321\322!\207" [magit-root-section inhibit-quit quit-flag magit-get-section stashes "refs/stash" magit-section-ident eieio-oref start (quit) nil magit-section-show t eval (ignore nil) recenter 0 message "Section \"Stashes\" wasn't found"] 5 (#$ . 14816) "P"]) | |
| 136 | #@256 Insert `stashes' section showing reflog for "refs/stash". | |
| 137 | If optional REF is non-nil, show reflog for that instead. | |
| 138 | If optional HEADING is non-nil, use that as section heading | |
| 139 | instead of "Stashes:". | |
| 140 | ||
| 141 | (fn &optional (REF "refs/stash") (HEADING "Stashes:")) | |
| 142 | (defalias 'magit-insert-stashes #[128 "\211\203 \211A\262\242\202 \306\203 \211A\262\242\202 \307\203+ \310\311\312\313G\\D\"\210\314!\315 \205D \316\317\320\317\321!!\203A \322\202B \323!!\211\204L \205\212\324\325!\203W \211\202_ \211\236A\206_ \326\327\325!\203v \330\"@\206w \331\332\300#\202w \333\334\335 \336 &\337\340\341\342\"\211\203\222 \211\343=\202\304 \n\205\235 \344\345!\n\"\211\203\250 \346\340\"\202\302 \347 \"\211\205\300 \350!\203\275 \211!\262\211\343=\262\262\262#\210\211\n\206\326 ?\205\326 \f \3512\206\352!\210\203\205\353\354\355\356\357$@\360\"\211@A\211@A\211@A\361\325!\203 \211\202\211\236A\206\326\327\325!\203*\330\"@\206+\331\332\300#\202+\333\334\335 \336 &\337\340\341\342\"\211\203F\211\343=\202x\n\205Q\344\345!\n\"\211\203\\\346\340\"\202v\347 \"\211\205t\350!\203q\211!\262\211\343=\262\262\262#\210\211\n\206\212 ?\205\212\f \3512\201\362\363\364\365#c\210\366\367\261\210\212\370u\210\371#\210)\372\373!\210\374!\210\375\346\376\"\377\"\210\337\201A \335 #\201B \201C \"\201D \201E \201F \346\201G \"\"!\201D \201E \201H \346\201G \"\"!\203\370J\206\201I !\203J\206\201I !\205\211J\212\346\376\"b\210`W\203P\201J `\326\"\206'\201K `\326\"\204I\201L `\326\n$\210\203I\201L `\201C $\210\211b\266\202)\266\211\f=\203g\201M @\201N !)\202\200\337\346\201O \"\201P \346\211\201O \"\201P \"C\244#0\210+\266\f\203\241\201Q \201R \201S \361\"\201T \201U $\210\202\260\201V c\210\212\370u\210\201W \210)\372\373!\210\374!\210\375\346\376\"\377\"\210\337\201A \335 #\201B \201C \"\201D \201E \201F \346\201G \"\"!\201D \201E \201H \346\201G \"\"!\203\375J\206\201I !\203\nJ\206\201I !\205\211J\212\346\376\"b\210`W\203U\201J `\326\"\206,\201K `\326\"\204N\201L `\326\n$\210\203N\201L `\201C $\210\211b\266\202 )\266\211\f=\203l\201M @\201N !)\202\205\337\346\201O \"\201P \346\211\201O \"\201P \"C\244#0\210+\262\266\202\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current "refs/stash" "Stashes:" signal wrong-number-of-arguments magit-insert-stashes 2 magit-rev-verify magit-rebase-in-progress-p magit-file-line magit-git-dir file-directory-p "rebase-merge" "rebase-merge/autostash" "rebase-apply/autostash" stashes class-p magit-section :type rassq error "BUG: No entry for %s in %s" :value :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-heading split-string magit-git-lines "show" "-q" "--format=%aN%x00%at%x00%s" " " stash propertize "AUTOSTASH" face magit-hash " " "\n" -1 magit-log-format-margin run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t magit-section-cache-visibility end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property nil magit-section-show parent children magit-git-wash apply-partially magit-log-wash-log "reflog" "--format=%gd%x00%aN%x00%at%x00%gs" 10 magit-make-margin-overlay] 30 (#$ . 15333)]) | |
| 143 | #@31 List all stashes in a buffer. | |
| 144 | (defalias 'magit-stash-list #[0 "\300\301\302\"\207" [magit-mode-setup magit-stashes-mode "refs/stash"] 3 (#$ . 19022) nil]) | |
| 145 | (defvar magit-stashes-mode-hook nil) | |
| 146 | (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [magit-stashes-mode-hook variable-documentation put "Hook run after entering Magit Stashes mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp magit-stashes-mode-map definition-name magit-stashes-mode] 4) | |
| 147 | (defvar magit-stashes-mode-map (make-sparse-keymap)) | |
| 148 | (byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\210\303\311\323\324#\207" [magit-stashes-mode-abbrev-table magit-stashes-mode-map variable-documentation put purecopy "Keymap for `magit-stashes-mode'." boundp magit-stashes-mode-syntax-table definition-name magit-stashes-mode (lambda (#1=#:def-tmp-var) (defvar magit-stashes-mode-syntax-table #1#)) make-syntax-table "Syntax table for `magit-stashes-mode'." (lambda (#1#) (defvar magit-stashes-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `magit-stashes-mode'." derived-mode-parent magit-reflog-mode custom-mode-group magit-log] 5) | |
| 149 | #@251 Mode for looking at lists of stashes. | |
| 150 | ||
| 151 | In addition to any hooks its parent mode `magit-reflog-mode' might have run, | |
| 152 | this mode runs the hook `magit-stashes-mode-hook', as the final or penultimate step | |
| 153 | during initialization. | |
| 154 | ||
| 155 | \{magit-stashes-mode-map} | |
| 156 | (defalias 'magit-stashes-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 \325\"\204R =\204R \326 \325 C#\210\327 !\210\330\f!\210 \331 \210\306\332!\210\333)\334\335!\207" [delay-mode-hooks major-mode mode-name magit-stashes-mode-map magit-stashes-mode-syntax-table magit-stashes-mode-abbrev-table make-local-variable t magit-reflog-mode magit-stashes-mode "Magit Stashes" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table hack-dir-local-variables-non-file-buffer bookmark-make-record-function magit-bookmark--stashes-make-record run-mode-hooks magit-stashes-mode-hook local-abbrev-table] 5 (#$ . 20484) nil]) | |
| 157 | #@12 | |
| 158 | ||
| 159 | (fn REF) | |
| 160 | (defalias 'magit-stashes-refresh-buffer #[257 "\306\307!\203 \211\202 \211\236A\206 \310\311\307!\203* \312\"@\206+ \313\314\300#\202+ \315\316\317\320 \321 &\322\323\324\325\"\211\203E \211\326=\202w \n\205P \327\330!\n\"\211\203[ \331\323\"\202u \332 \"\211\205s \333!\203p \211!\262\211\326=\262\262\262#\210\211\n\206\211 ?\205\211 \f \3342R\335\336\232\203\233 \337\202\237 \340\341\"!\210\342\343\344\345\"\346\347$\210\350\351!\210\352!\210\353\331\354\"\355\"\210\322\356\320 #\357\360\"\361\340\362\331\363\"\"!\361\340\364\331\363\"\"!\203\343 J\206\366 \365!\203\356 J\206\366 \365!\205\366 \211J\212\331\354\"b\210`W\203-\366`\310\"\206\f\367`\310\"\204&\370`\310\n$\210\203&\370`\360$\210\211b\266\202\376 )\266\211\f=\203@\316 <\371!)\202Q\322\331\372\"\373\331\211\372\"\373\"C\244#0\210+\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current stashesbuf class-p magit-section :type rassq error "BUG: No entry for %s in %s" :value nil :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-heading "refs/stash" "Stashes:" format "Stashes [%s]:" magit-git-wash apply-partially magit-log-wash-log stash "reflog" "--format=%gd%x00%aN%x00%at%x00%gs" run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children magit-section-cache-visibility] 14 (#$ . 21649)]) | |
| 161 | #@73 Show all diffs of a stash in a buffer. | |
| 162 | ||
| 163 | (fn STASH &optional ARGS FILES) | |
| 164 | (defalias 'magit-stash-show #[769 "\300\301\302%\207" [magit-mode-setup magit-stash-mode nil] 9 (#$ . 23536) (byte-code "\204 \301 \206\f \302\303!\304 \211@A\211@A\305\306\"D\266\202\266\205B\207" [current-prefix-arg magit-stash-at-point magit-read-stash "Show stash" magit-diff-arguments delete "--stat"] 11)]) | |
| 165 | (defvar magit-stash-mode-hook nil) | |
| 166 | (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [magit-stash-mode-hook variable-documentation put "Hook run after entering Magit Stash mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp magit-stash-mode-map definition-name magit-stash-mode] 4) | |
| 167 | (defvar magit-stash-mode-map (make-sparse-keymap)) | |
| 168 | (byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\210\303\311\323\324#\207" [magit-stash-mode-abbrev-table magit-stash-mode-map variable-documentation put purecopy "Keymap for `magit-stash-mode'." boundp magit-stash-mode-syntax-table definition-name magit-stash-mode (lambda (#1=#:def-tmp-var) (defvar magit-stash-mode-syntax-table #1#)) make-syntax-table "Syntax table for `magit-stash-mode'." (lambda (#1#) (defvar magit-stash-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `magit-stash-mode'." derived-mode-parent magit-diff-mode custom-mode-group magit-diff] 5) | |
| 169 | #@247 Mode for looking at individual stashes. | |
| 170 | ||
| 171 | In addition to any hooks its parent mode `magit-diff-mode' might have run, | |
| 172 | this mode runs the hook `magit-stash-mode-hook', as the final or penultimate step | |
| 173 | during initialization. | |
| 174 | ||
| 175 | \{magit-stash-mode-map} | |
| 176 | (defalias 'magit-stash-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 \325\"\204R =\204R \326 \325 C#\210\327 !\210\330\f!\210 \331 \210\306\332!\210\333)\334\335!\207" [delay-mode-hooks major-mode mode-name magit-stash-mode-map magit-stash-mode-syntax-table magit-stash-mode-abbrev-table make-local-variable t magit-diff-mode magit-stash-mode "Magit Stash" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table hack-dir-local-variables-non-file-buffer bookmark-make-record-function magit-bookmark--stash-make-record run-mode-hooks magit-stash-mode-hook local-abbrev-table] 5 (#$ . 25208) nil]) | |
| 177 | #@31 | |
| 178 | ||
| 179 | (fn STASH CONST ARGS FILES) | |
| 180 | (defalias 'magit-stash-refresh-buffer #[1028 "\306\307\310!\311\312#\313\314\315\"Q!\210\316!\317\320!\203! \211\202) \211 \236A\206) \321\322\320!\203@ \323 \"@\206A \324\325\301#\202A \326\327\330\331 \332\n&\333\334\335\336\"\211\203[ \211\337=\202\215 \205f \340\341! \"\211\203q \342\334\"\202\213 \343\f\"\211\205\211 \344!\203\206 \211!\262\211\337=\262\262\262#\210\211 \206\237 \n?\205\237 =\3452Q\346\347!\210\350\351!\210\352!\210\353\342\354\"\355\"\210\333\356\331 #\357\360\"\361\362\363\342\364\"\"!\361\362\365\342\364\"\"!\203\342 J\206\365 \366!\203\355 J\206\365 \366!\205\365 \211J\212\342\354\"b\210`W\203,\367`\321\"\206 \370`\321\"\204%\371`\321\n$\210\203%\371`\360$\210\211b\266\202\375 )\266\211 =\203?\327 >\372!)\202P\333\342\373\"\374\342\211\373\"\374\"C\244#0\210+\207" [magit-buffer-revision-hash magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-set-header-line-format propertize capitalize face magit-section-heading " " magit-rev-format "%s" magit-rev-parse stash class-p magit-section :type rassq error "BUG: No entry for %s in %s" :value nil :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-run-section-hook magit-stash-sections-hook run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children magit-insert-section--current magit-section-cache-visibility] 17 (#$ . 26351)]) | |
| 181 | #@45 | |
| 182 | ||
| 183 | (fn COMMIT RANGE MESSAGE &optional FILES) | |
| 184 | (defalias 'magit-stash-insert-section #[1027 "\306\307!\203 \211\202 \211\236A\206 \310\311\307!\203* \312\"@\206+ \313\314\300#\202+ \315\316\317 \320 &\321\322\323\324\"\211\203F \211\325=\202x \n\205Q \326\327!\n\"\211\203\\ \330\322\"\202v \331 \"\211\205t \332!\203q \211!\262\211\325=\262\262\262#\210\211\n\206\212 ?\205\212 \f \3332S\334!\210\335\336\337\340\341\342;8\343\n\206\252 \344;8&\210\345\346!\210\347!\210\350\330\351\"\352\"\210\321\353\317 #\354\355\"\356\357\360\330\361\"\"!\356\357\362\330\361\"\"!\203\344 J\206\367 \363!\203\357 J\206\367 \363!\205\367 \211J\212\330\351\"b\210`W\203.\364`\310\"\206 \365`\310\"\204'\366`\310\n$\210\203'\366`\355$\210\211b\266\202\377 )\266\211\f=\203A\367 <\370!)\202R\321\330\371\"\372\330\211\371\"\372\"C\244#0\210+\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current commit class-p magit-section :type rassq error "BUG: No entry for %s in %s" :value :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-heading magit-git-wash magit-diff-wash-diffs "diff" "-p" "--no-prefix" 2 "--" 3 run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property nil magit-section-show parent children magit-refresh-args magit-section-cache-visibility] 17 (#$ . 28277)]) | |
| 185 | #@132 Insert section showing notes for a stash. | |
| 186 | This shows the notes for stash@{N} but not for the other commits | |
| 187 | that make up the stash. | |
| 188 | (defalias 'magit-insert-stash-notes #[0 "\306\307!\203 \211\202 \211\236A\206 \310\311\307!\203* \312\"@\206+ \313\314\300#\202+ \315\316\317\320 \321 &\322\323\324\325\"\211\203E \211\326=\202w \n\205P \327\330!\n\"\211\203[ \331\323\"\202u \332 \"\211\205s \333!\203p \211!\262\211\326=\262\262\262#\210\211\n\206\211 ?\205\211 \f \3342V\211\335\336!\210\337\340\341:@#\210`\331\342\"U\203\254 \343 \210\202\257 \344c\210\210\345\346!\210\347!\210\350\331\351\"\352\"\210\322\353\320 #\354\355\"\356\357\360\331\361\"\"!\356\357\362\331\361\"\"!\203\347 J\206\372 \363!\203\362 J\206\372 \363!\205\372 \211J\212\331\351\"b\210`W\2031\364`\310\"\206\365`\310\"\204*\366`\310\n$\210\203*\366`\355$\210\211b\266\202)\266\211\f=\203D\316 ;\367!)\202U\322\331\370\"\371\331\211\370\"\371\"C\244#0\210+\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current note class-p magit-section :type rassq error "BUG: No entry for %s in %s" :value nil :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-heading "Notes" magit-git-insert "notes" "show" content magit-cancel-section "\n" run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children magit-refresh-args magit-section-cache-visibility] 13 (#$ . 30125)]) | |
| 189 | #@53 Insert section showing staged changes of the stash. | |
| 190 | (defalias 'magit-insert-stash-index #[0 "@\301\302\303\"\302\304\211#\305#\207" [magit-refresh-args magit-stash-insert-section format "%s^2" "%s^..%s^2" "Staged"] 7 (#$ . 32074)]) | |
| 191 | #@55 Insert section showing unstaged changes of the stash. | |
| 192 | (defalias 'magit-insert-stash-worktree #[0 "@\301\302\303\211#\304#\207" [magit-refresh-args magit-stash-insert-section format "%s^2..%s" "Unstaged"] 7 (#$ . 32315)]) | |
| 193 | #@65 Insert section showing the untracked files commit of the stash. | |
| 194 | (defalias 'magit-insert-stash-untracked #[0 "@@\301P\302!\205\" \303\304\305\"\304\306\211#\307\310\311\312\313\314\315\n&$\207" [magit-refresh-args "^3" magit-rev-verify magit-stash-insert-section format "%s^3" "%s^..%s^3" "Untracked files" magit-git-items "ls-tree" "-z" "--name-only" "-r" "--full-tree"] 13 (#$ . 32545)]) | |
| 195 | (provide 'magit-stash) | |
