;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312\311\313& \210\303\314\305\315\307\316\311\304&\210\317\320\321\322\323DD\324\325\326\311\304\327\330& \210\317\331\321\322\332DD\333\325\334\311\314\327\330& \210\317\335\321\322\336DD\337\325\340\311\314\327\330& \210\317\341\321\322\342DD\343\325\344\311\314\327\330& \210\317\345\321\322\346DD\347\325\350\311\314\327\330& \210\317\351\321\322\352DD\353\325\354\311\304\327\355& \210\317\356\321\322\357DD\360\325\361\311\304\327\330& \210\317\362\321\322\363DD\364\365\366\367\370\327\355\325\371& \207" [require magit-core magit-log custom-declare-group magit-wip nil "Automatically commit to work-in-progress refs." :link (info-link "(magit)Wip Modes") :group magit-modes magit-essentials magit-wip-legacy "It is better to not use these modes individually." (info-link "(magit)Legacy Wip Modes") custom-declare-variable magit-wip-mode-lighter funcall function #[0 "\300\207" [#1=" Wip"] 1 #1#] "Lighter for Magit-Wip mode." :package-version (magit . "2.90.0") :type string magit-wip-after-save-local-mode-lighter #[0 "\300\207" [#2=""] 1 #2#] "Lighter for Magit-Wip-After-Save-Local mode." (magit . "2.1.0") magit-wip-after-apply-mode-lighter #[0 "\300\207" [#2#] 1 #2#] "Lighter for Magit-Wip-After-Apply mode." (magit . "2.1.0") magit-wip-before-change-mode-lighter #[0 "\300\207" [#2#] 1 #2#] "Lighter for Magit-Wip-Before-Change mode." (magit . "2.1.0") magit-wip-initial-backup-mode-lighter #[0 "\300\207" [#2#] 1 #2#] "Lighter for Magit-Wip-Initial Backup mode." (magit . "2.1.0") magit-wip-merge-branch #[0 "\300\207" [nil] 1] "Whether to merge the current branch into its wip ref.\n\nIf non-nil and the current branch has new commits, then it is\nmerged into the wip ref before creating a new wip commit. This\nmakes it easier to inspect wip history and the wip commits are\nnever garbage collected.\n\nIf nil and the current branch has new commits, then the wip ref\nis reset to the tip of the branch before creating a new wip\ncommit. With this setting wip commits are eventually garbage\ncollected. This is currently the default." (magit . "2.90.0") boolean magit-wip-namespace #[0 "\300\207" [#3="refs/wip/"] 1 #3#] "Namespace used for work-in-progress refs.\nThe wip refs are named \"index/\"\nand \"wtree/\". When snapshots\nare created while the `HEAD' is detached then \"HEAD\"\nis used as `branch-ref'." (magit . "2.1.0") magit-wip-mode #[0 "\300\207" [nil] 1] "Non-nil if Magit-Wip mode is enabled.\nSee the `magit-wip-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `magit-wip-mode'." :set custom-set-minor-mode :initialize custom-initialize-default (magit . "2.90.0")] 12) #@999 Save uncommitted changes to work-in-progress refs. This is a minor mode. If called interactively, toggle the `Magit-Wip mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'magit-wip-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. Whenever appropriate (i.e. when dataloss would be a possibility otherwise) this mode causes uncommitted changes to be committed to dedicated work-in-progress refs. For historic reasons this mode is implemented on top of four other `magit-wip-*' modes, which can also be used individually, if you want finer control over when the wip refs are updated; but that is discouraged. (fn &optional ARG) (defalias 'magit-wip-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B \203@\306\202A\313\314!\210\315!\210\316!\210\317!\266\320\321\305\301!\203^\322\202_\323\"\210\324\325!\203\207\326\301!\210\302 \203w\211\302 \232\203\207\327\330\305\301!\203\203\331\202\204\332\333#\210\210\334 \210\305\301!\207" [global-minor-modes magit-wip-mode current-message set-default toggle default-value 1 nil t boundp delq -1 magit-wip-after-save-mode magit-wip-after-apply-mode magit-wip-before-change-mode magit-wip-initial-backup-mode run-hooks magit-wip-mode-hook magit-wip-mode-on-hook magit-wip-mode-off-hook called-interactively-p any customize-mark-as-set message "Magit-Wip mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 2952) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar magit-wip-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\207" [magit-wip-mode-map magit-wip-mode-hook variable-documentation put "Hook run after entering or leaving `magit-wip-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode magit-wip-mode magit-wip-mode-lighter boundp] 6) #@131 Non-nil if Magit-Wip-After-Save-Local mode is enabled. Use the command `magit-wip-after-save-local-mode' to change this variable. (defvar magit-wip-after-save-local-mode nil (#$ . 5418)) (make-variable-buffer-local 'magit-wip-after-save-local-mode) #@896 After saving, also commit to a worktree work-in-progress ref. This is a minor mode. If called interactively, toggle the `Magit-Wip-After-Save-Local mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `magit-wip-after-save-local-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. After saving the current file-visiting buffer this mode also commits the changes to the worktree work-in-progress ref for the current branch. This mode should be enabled globally by turning on the globalized variant `magit-wip-after-save-mode'. (fn &optional ARG) (defalias 'magit-wip-after-save-local-mode #[256 "\303 \304=\203 ?\202\247\203\305W\203\306\202\307\310\301!\2031\311\300 \"\2031\300 B\203R\n\203I\312\307!\203I\313\314\315\307\211$\210\202X\306\316\317!\210\202X\320\314\315\307#\210\321\322\203b\323\202c\324\"\210\325\326!\203\205\303 \203w\211\303 \232\203\205\327\330\203\201\331\202\202\332\333#\210\210\334 \210\207" [magit-wip-after-save-local-mode local-minor-modes buffer-file-name current-message toggle 1 nil t boundp delq magit-inside-worktree-p add-hook after-save-hook magit-wip-commit-buffer-file user-error "Need a worktree and a file" remove-hook run-hooks magit-wip-after-save-local-mode-hook magit-wip-after-save-local-mode-on-hook magit-wip-after-save-local-mode-off-hook called-interactively-p any message "Magit-Wip-After-Save-Local mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 5674) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar magit-wip-after-save-local-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\207" [magit-wip-after-save-local-mode-map magit-wip-after-save-local-mode-hook variable-documentation put "Hook run after entering or leaving `magit-wip-after-save-local-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode magit-wip-after-save-local-mode magit-wip-after-save-local-mode-lighter boundp] 6) (defalias 'magit-wip-after-save-local-mode-turn-on #[0 "\205\301\302!\205\303!\205\304 \207" [buffer-file-name magit-inside-worktree-p t magit-file-tracked-p magit-wip-after-save-local-mode] 2]) (put 'magit-wip-after-save-mode 'globalized-minor-mode t) (defvar magit-wip-after-save-local-mode-major-mode nil nil) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317\320\321& \207" [make-variable-buffer-local magit-wip-after-save-local-mode-major-mode custom-declare-variable magit-wip-after-save-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Magit-Wip-After-Save mode is enabled.\nSee the `magit-wip-after-save-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `magit-wip-after-save-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group magit-wip :package-version (magit . "2.1.0")] 14) #@449 Toggle Magit-Wip-After-Save-Local mode in all buffers. With prefix ARG, enable Magit-Wip-After-Save mode if ARG is positive; otherwise, disable it. If called from Lisp, enable the mode if ARG is omitted or nil. Magit-Wip-After-Save-Local mode is enabled in all buffers where `magit-wip-after-save-local-mode-turn-on' would do it. See `magit-wip-after-save-local-mode' for more information on Magit-Wip-After-Save-Local mode. (fn &optional ARG) (defalias 'magit-wip-after-save-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B \203N\314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\202]\323\315\316\"\210\323\317\320\"\210\323\321\322\"\210\324 \211\203\203\211@r\211q\210 \203s\325 \210\202{\n\203{\302\326!\210)A\266\202\202_\210\327\330\306\301!\203\220\331\202\221\332\"\210\333\334!\203\271\335\301!\210\303 \203\251\211\303 \232\203\271\336\337\306\301!\203\265\340\202\266\341\342#\210\210\343 \210\306\301!\207" [global-minor-modes magit-wip-after-save-mode magit-wip-after-save-local-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook after-change-major-mode-hook magit-wip-after-save-mode-enable-in-buffers find-file-hook magit-wip-after-save-mode-check-buffers change-major-mode-hook magit-wip-after-save-mode-cmhh remove-hook buffer-list magit-wip-after-save-local-mode-turn-on -1 run-hooks magit-wip-after-save-mode-hook magit-wip-after-save-mode-on-hook magit-wip-after-save-mode-off-hook called-interactively-p any customize-mark-as-set message "Magit-Wip-After-Save mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 9240) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar magit-wip-after-save-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [magit-wip-after-save-mode-map magit-wip-after-save-mode-hook variable-documentation put "Hook run after entering or leaving `magit-wip-after-save-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode magit-wip-after-save-mode boundp] 6) (defvar magit-wip-after-save-local-mode-set-explicitly nil nil) (make-variable-buffer-local 'magit-wip-after-save-local-mode-set-explicitly) (defalias 'magit-wip-after-save-local-mode-set-explicitly #[0 "\301\211\207" [magit-wip-after-save-local-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put magit-wip-after-save-local-mode-set-explicitly definition-name magit-wip-after-save-mode add-hook magit-wip-after-save-local-mode-hook] 4) (defvar magit-wip-after-save-mode-buffers nil) (defalias 'magit-wip-after-save-mode-enable-in-buffers #[0 "\305\211\211\2059\211@\306!\2032r\211q\210 \204/\n =\204/\f\203,\304\307!\210\310 \210\202/\310 \210 )A\266\202\202\207" [magit-wip-after-save-mode-buffers magit-wip-after-save-local-mode-set-explicitly magit-wip-after-save-local-mode-major-mode major-mode magit-wip-after-save-local-mode nil buffer-live-p -1 magit-wip-after-save-local-mode-turn-on] 5]) (put 'magit-wip-after-save-mode-enable-in-buffers 'definition-name 'magit-wip-after-save-mode) (defalias 'magit-wip-after-save-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [magit-wip-after-save-mode-enable-in-buffers remove-hook post-command-hook magit-wip-after-save-mode-check-buffers] 3]) (put 'magit-wip-after-save-mode-check-buffers 'definition-name 'magit-wip-after-save-mode) (defalias 'magit-wip-after-save-mode-cmhh #[0 "\300\301p\"\210\302\303\304\"\207" [add-to-list magit-wip-after-save-mode-buffers add-hook post-command-hook magit-wip-after-save-mode-check-buffers] 3]) (put 'magit-wip-after-save-mode-cmhh 'definition-name 'magit-wip-after-save-mode) #@207 Commit visited file to a worktree work-in-progress ref. Also see `magit-wip-after-save-mode' which calls this function automatically whenever a buffer visiting a tracked file is saved. (fn &optional MSG) (defalias 'magit-wip-commit-buffer-file #[256 "\302 \211\2053\303 \211\203/\211\304 !\305C\306\206&\307\310!\203%\311\202&\312\"#\262)\2021\313 \262\207" [default-directory buffer-file-name magit-wip-get-ref magit-toplevel file-relative-name magit-wip-commit-worktree format called-interactively-p any "wip-save %s after save" "autosave %s after save" magit--not-inside-repository-error] 10 (#$ . 13214) nil]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317& \207" [custom-declare-variable magit-wip-after-apply-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Magit-Wip-After-Apply mode is enabled.\nSee the `magit-wip-after-apply-mode' command\nfor a description of this minor mode." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :package-version (magit . "2.1.0") :group magit-wip] 14) #@950 Commit to work-in-progress refs. This is a minor mode. If called interactively, toggle the `Magit-Wip-After-Apply mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'magit-wip-after-apply-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. After applying a change using any "apply variant" command (apply, stage, unstage, discard, and reverse) commit the affected files to the current wip refs. For each branch there may be two wip refs; one contains snapshots of the files as found in the worktree and the other contains snapshots of the entries in the index. (fn &optional ARG) (defalias 'magit-wip-after-apply-mode #[256 "\301 \302\303\304=\203\305\303!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\303\"\305\303!\2038\303B\313\314\305\303!\203D\315\202E\316\"\210\317\320!\203m\321\303!\210\301 \203]\211\301 \232\203m\322\323\305\303!\203i\324\202j\325\326#\210\210\327 \210\305\303!\207" [global-minor-modes current-message set-default magit-wip-after-apply-mode toggle default-value 1 nil t boundp delq run-hooks magit-wip-after-apply-mode-hook magit-wip-after-apply-mode-on-hook magit-wip-after-apply-mode-off-hook called-interactively-p any customize-mark-as-set message "Magit-Wip-After-Apply mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 14303) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar magit-wip-after-apply-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\207" [magit-wip-after-apply-mode-map magit-wip-after-apply-mode-hook variable-documentation put "Hook run after entering or leaving `magit-wip-after-apply-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode magit-wip-after-apply-mode magit-wip-after-apply-mode-lighter boundp] 6) #@28 (fn &optional FILES MSG) (defalias 'magit-wip-commit-after-apply #[512 "\205\301\"\207" [magit-wip-after-apply-mode magit-wip-commit] 5 (#$ . 16675)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317& \207" [custom-declare-variable magit-wip-before-change-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Magit-Wip-Before-Change mode is enabled.\nSee the `magit-wip-before-change-mode' command\nfor a description of this minor mode." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :package-version (magit . "2.1.0") :group magit-wip] 14) #@1119 Commit to work-in-progress refs before certain destructive changes. This is a minor mode. If called interactively, toggle the `Magit-Wip-Before-Change mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'magit-wip-before-change-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. Before invoking a revert command or an "apply variant" command (apply, stage, unstage, discard, and reverse) commit the affected tracked files to the current wip refs. For each branch there may be two wip refs; one contains snapshots of the files as found in the worktree and the other contains snapshots of the entries in the index. Only changes to files which could potentially be affected by the command which is about to be called are committed. (fn &optional ARG) (defalias 'magit-wip-before-change-mode #[256 "\301 \302\303\304=\203\305\303!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\303\"\305\303!\2038\303B\313\314\305\303!\203D\315\202E\316\"\210\317\320!\203m\321\303!\210\301 \203]\211\301 \232\203m\322\323\305\303!\203i\324\202j\325\326#\210\210\327 \210\305\303!\207" [global-minor-modes current-message set-default magit-wip-before-change-mode toggle default-value 1 nil t boundp delq run-hooks magit-wip-before-change-mode-hook magit-wip-before-change-mode-on-hook magit-wip-before-change-mode-off-hook called-interactively-p any customize-mark-as-set message "Magit-Wip-Before-Change mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 17299) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar magit-wip-before-change-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\207" [magit-wip-before-change-mode-map magit-wip-before-change-mode-hook variable-documentation put "Hook run after entering or leaving `magit-wip-before-change-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode magit-wip-before-change-mode magit-wip-before-change-mode-lighter boundp] 6) #@28 (fn &optional FILES MSG) (defalias 'magit-wip-commit-before-change #[512 "\205\302 \211\203\211\303\")\202\304 \262\207" [magit-wip-before-change-mode default-directory magit-toplevel magit-wip-commit magit--not-inside-repository-error] 6 (#$ . 19864)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317& \207" [custom-declare-variable magit-wip-initial-backup-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Magit-Wip-Initial-Backup mode is enabled.\nSee the `magit-wip-initial-backup-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `magit-wip-initial-backup-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :package-version (magit . "2.90.0") :group magit-wip] 14) #@664 Before saving a buffer for the first time, commit to a wip ref. This is a minor mode. If called interactively, toggle the `Magit-Wip-Initial-Backup mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'magit-wip-initial-backup-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'magit-wip-initial-backup-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B \203D\313\314\315\"\210\202I\316\314\315\"\210\317\320\305\301!\203U\321\202V\322\"\210\323\324!\203~\325\301!\210\302 \203n\211\302 \232\203~\326\327\305\301!\203z\330\202{\331\332#\210\210\333 \210\305\301!\207" [global-minor-modes magit-wip-initial-backup-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook before-save-hook magit-wip-commit-initial-backup remove-hook run-hooks magit-wip-initial-backup-mode-hook magit-wip-initial-backup-mode-on-hook magit-wip-initial-backup-mode-off-hook called-interactively-p any customize-mark-as-set message "Magit-Wip-Initial-Backup mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 20771) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar magit-wip-initial-backup-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\207" [magit-wip-initial-backup-mode-map magit-wip-initial-backup-mode-hook variable-documentation put "Hook run after entering or leaving `magit-wip-initial-backup-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode magit-wip-initial-backup-mode magit-wip-initial-backup-mode-lighter boundp] 6) #@51 Return non-nil if any global wip mode is enabled. (defalias 'magit--any-wip-mode-enabled-p #[0 "\206 \206\n\206 \206\f\207" [magit-wip-mode magit-wip-after-save-mode magit-wip-after-apply-mode magit-wip-before-change-mode magit-wip-initial-backup-mode] 1 (#$ . 23012)]) (defvar magit-wip-buffer-backed-up nil nil) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local magit-wip-buffer-backed-up put permanent-local t] 4) #@640 Before saving, commit current file to a worktree wip ref. The user has to add this function to `before-save-hook'. Commit the current state of the visited file before saving the current buffer to that file. This backs up the same version of the file as `backup-buffer' would, but stores the backup in the worktree wip ref, which is also used by the various Magit Wip modes, instead of in a backup file as `backup-buffer' would. This function ignores the variables that affect `backup-buffer' and can be used along-side that function, which is recommended because this function only backs up files that are tracked in a Git repository. (defalias 'magit-wip-commit-initial-backup #[0 "?\205 \205\303\304!\205\305 !\205\306\307\310!\210)\304\211\207" [magit-wip-buffer-backed-up buffer-file-name magit-save-repository-buffers magit-inside-worktree-p t magit-file-tracked-p nil magit-wip-commit-buffer-file "autosave %s before save"] 2 (#$ . 23471)]) #@318 Commit all tracked files to the work-in-progress refs. Interactively, commit all changes to all tracked files using a generic commit message. With a prefix-argument the commit message is read in the minibuffer. Non-interactively, only commit changes to FILES using MSG as commit message. (fn &optional FILES MSG) (defalias 'magit-wip-commit #[512 "\300 \211\205\301#\210\302#\207" [magit-wip-get-ref magit-wip-commit-index magit-wip-commit-worktree] 7 (#$ . 24440) (byte-code "\301\203 \302\303!\202\f\304D\207" [current-prefix-arg nil magit-read-string "Wip commit message" "wip-save tracked files"] 3)]) #@22 (fn REF FILES MSG) (defalias 'magit-wip-commit-index #[771 "\300!\301\"\302\303!\304  \305&\207" [magit--wip-index-ref magit-wip-get-parent magit-git-string "write-tree" magit-wip-update-wipref "index"] 14 (#$ . 25067)]) #@22 (fn REF FILES MSG) (defalias 'magit-wip-commit-worktree #[771 "\304!\305\"\306\307\310\311\312!!!\313\314\"\216\315 \211\203\362\211\211\2036\316\317\320\321D\322P$\2046\323\324\"\210\210\325 !\203\227\326P\nB\203y\327\330\331\332\333\334\335\"\211\335=\203f\336\337\340 \"\341\334\"\210\211\262\202j\211\211\262\262\205p\342\343\f&\210\202\220\315 \211\203\214\211\327\344\345\346#\210)\210\202\220\347 \266\350\351!)\202\356\326P B\203\323\327\330\331\332\333\334\335\"\211\335=\203\300\336\337\340 \"\341\334\"\210\211\262\202\304\211\211\262\262\205\312\342\343\f&\210\202\352\315 \211\203\346\211\327\344\345\346#\210)\210\202\352\347 \266\350\351!))\202\364\347 \262*\266\202\352  \353&\207" [magit--refresh-cache default-directory magit-tramp-process-environment process-environment magit--wip-wtree-ref magit-wip-get-parent nil magit-convert-filename-for-git make-temp-name magit-git-dir "index.magit." make-closure #[0 "\3021 \303\304 !\300P!0\207\210\305\207" [V0 default-directory (error) delete-file file-remote-p nil] 3] magit-toplevel magit-git-success "read-tree" "--reset" "-i" "--index-output=" error "Cannot read tree %s" file-remote-p "GIT_INDEX_FILE=" magit-call-git "update-index" "--add" "--remove" magit-repository-local-get update-index-has-ignore-sw-p unset version<= "2.25.0" magit-git-version magit-repository-local-set "--ignore-skip-worktree-entries" "--" "add" "-u" "." magit--not-inside-repository-error magit-git-string "write-tree" magit-wip-update-wipref "worktree"] 17 (#$ . 25307)]) #@51 (fn REF WIPREF TREE PARENT FILES MSG START-MSG) (defalias 'magit-wip-update-wipref #[1799 "\232\2042\203\301!\2042\302P\262\303\304\305\306\307\n\310  \311P&#\210\262\202s\203s\312\"\203P\312\304\313\314\315\316 %\317P\"\204s\320\321#\262\303\304\305\306\307\f\307\310 \311P& #\210\262\322\323\324\325&\205\306\203\216\326H\327U\203\264G\211\326U\203\232\330\202\257\211\331V\203\247\320\332\"\202\257\333\334@\335 \"PP\262\210\303\304\305\306\307\n\310\n&#\207" [magit-wip-merge-branch magit-rev-verify "start autosaving " magit-update-ref magit-git-string "commit-tree" "--no-gpg-sign" "-p" "-m" "^{tree}" magit-rev-ancestor-p "log" "--format=%H" "-1" "--merges" "^2" format "merge %s into %s" magit-git-failure "diff-tree" "--quiet" "--" 0 32 "autosave tracked files" 1 "autosave %s files" "autosave " file-relative-name magit-toplevel] 21 (#$ . 26900)]) (defalias 'magit-wip-get-ref #[0 "\300\301\302\"\206\302\303!\205\211\207" [magit-git-string "symbolic-ref" "HEAD" magit-rev-verify] 3]) #@19 (fn REF WIPREF) (defalias 'magit-wip-get-parent #[514 "\300!\203\301\302#\300!\232\203\207\207" [magit-rev-verify magit-git-string "merge-base"] 6 (#$ . 27985)]) #@22 (fn &optional REF) (defalias 'magit--wip-index-ref #[256 "\300\301\"\207" [magit--wip-ref "index/"] 4 (#$ . 28164)]) #@22 (fn &optional REF) (defalias 'magit--wip-wtree-ref #[256 "\300\301\"\207" [magit--wip-ref "wtree/"] 4 (#$ . 28290)]) #@32 (fn NAMESPACE &optional REF) (defalias 'magit--wip-ref #[513 "\203\301\302\"\203\206+\303\232?\205\206\304 \211\205%\305P\262\206+\303Q\207" [magit-wip-namespace string-prefix-p "refs/" "HEAD" magit-get-current-branch "refs/heads/"] 7 (#$ . 28416)]) (defalias 'magit-wip-maybe-add-commit-hook #[0 "\205\301 \205\302\303\304\305\306$\207" [magit-wip-merge-branch magit-wip-any-enabled-p add-hook git-commit-post-finish-hook magit-wip-commit nil t] 5]) (defalias 'magit-wip-any-enabled-p #[0 "\206 \206\n\206 \206\f\206 \207" [magit-wip-mode magit-wip-after-save-local-mode magit-wip-after-save-mode magit-wip-after-apply-mode magit-wip-before-change-mode magit-wip-initial-backup-mode] 1]) #@72 Show log for the index wip ref of the current branch. (fn ARGS FILES) (defalias 'magit-wip-log-index #[514 "\300\301 C#\207" [magit-log-setup-buffer magit--wip-index-ref] 6 (#$ . 29149) (magit-log-arguments)]) #@75 Show log for the worktree wip ref of the current branch. (fn ARGS FILES) (defalias 'magit-wip-log-worktree #[514 "\300\301 C#\207" [magit-log-setup-buffer magit--wip-wtree-ref] 6 (#$ . 29368) (magit-log-arguments)]) #@251 Show log for the current branch and its wip refs. With a negative prefix argument only show the worktree wip ref. The absolute numeric value of the prefix argument controls how many "branches" of each wip ref are shown. (fn BRANCH ARGS FILES COUNT) (defalias 'magit-wip-log-current #[1028 "\300$\207" [magit-wip-log] 9 (#$ . 29594) (byte-code "\301 \206\302C\303 \244\304!C\244\207" [current-prefix-arg magit-get-current-branch "HEAD" magit-log-arguments prefix-numeric-value] 3)]) #@241 Show log for a branch and its wip refs. With a negative prefix argument only show the worktree wip ref. The absolute numeric value of the prefix argument controls how many "branches" of each wip ref are shown. (fn BRANCH ARGS FILES COUNT) (defalias 'magit-wip-log #[1028 "\300C\301\302!\303!\"\244\304Y\205\301\305!\303!\"\244#\207" [magit-log-setup-buffer magit-wip-log-get-tips magit--wip-wtree-ref abs 0 magit--wip-index-ref] 10 (#$ . 30091) (byte-code "\301\302\303\304 \305\"\306\307\306\310\311 \206\312 \206\305&C\313 \244\314!C\244\207" [current-prefix-arg magit-completing-read "Log branch and its wip refs" -snoc magit-list-local-branch-names "HEAD" nil t magit-revision-history magit-branch-at-point magit-get-current-branch magit-log-arguments prefix-numeric-value] 8)]) #@21 (fn WIPREF COUNT) (defalias 'magit-wip-log-get-tips #[514 "\300\301\"\211\205F\302\203@\303V\203@\304\305\306\307$\262A@\2034\310\311A@\"\2034\312\303A@\"B\262AA\262S\262\202 \237B\262\207" [magit-git-lines "reflog" nil 1 cl-member "^[^ ]+ [^:]+: restart autosaving" :test string-match-p string-match "^[^ ]+ \\([^:]+\\)" match-string] 9 (#$ . 30899)]) (provide 'magit-wip)