| 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 "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\311\313\314\315\314\316\314\317& \210\320\321\322\323\324DD\325\326\327\314\315\314\306\314\330\331\332& \210\320\333\322\323\334DD\335\326\336\314\306\331\337\340\341& \210\320\342\322\323\343DD\344\326\345\314\306\331\337& \207" [require cl-lib dash magit-git autorevert custom-declare-group magit-auto-revert nil "Revert buffers when files in repository change." :link (custom-group-link auto-revert) (info-link "(magit)Automatic Reverting of File-Visiting Buffers") :group auto-revert magit-essentials magit-modes custom-declare-variable auto-revert-buffer-list-filter funcall function #[0 "\300\207" [nil] 1] "Filter that determines which buffers `auto-revert-buffers' reverts.\n\nThis option is provided by `magit', which also redefines\n`auto-revert-buffers' to respect it. Magit users who do not turn\non the local mode `auto-revert-mode' themselves, are best served\nby setting the value to `magit-auto-revert-repository-buffers-p'.\n\nHowever the default is nil, to not disturb users who do use the\nlocal mode directly. If you experience delays when running Magit\ncommands, then you should consider using one of the predicates\nprovided by Magit - especially if you also use Tramp.\n\nUsers who do turn on `auto-revert-mode' in buffers in which Magit\ndoesn't do that for them, should likely not use any filter.\nUsers who turn on `global-auto-revert-mode', do not have to worry\nabout this option, because it is disregarded if the global mode\nis enabled." :package-version (magit . "2.4.2") magit-related :type (radio (const :tag "no filter" nil) (function-item magit-auto-revert-buffer-p) (function-item magit-auto-revert-repository-buffer-p) function) magit-auto-revert-tracked-only #[0 "\300\207" [t] 1] "Whether `magit-auto-revert-mode' only reverts tracked files." (magit . "2.4.0") boolean :set #[514 "L\210\301\300!\205 \205 \302\303!\205 \300\304!\210\300 \207" [magit-auto-revert-mode boundp featurep magit-autorevert -1] 4 "\n\n(fn VAR VAL)"] magit-auto-revert-immediately #[0 "\300\207" [t] 1] "Whether Magit reverts buffers immediately.\n\nIf this is non-nil and either `global-auto-revert-mode' or\n`magit-auto-revert-mode' is enabled, then Magit immediately\nreverts buffers by explicitly calling `auto-revert-buffers'\nafter running git for side-effects.\n\nIf `auto-revert-use-notify' is non-nil (and file notifications\nare actually supported), then `magit-auto-revert-immediately'\ndoes not have to be non-nil, because the reverts happen\nimmediately anyway.\n\nIf `magit-auto-revert-immediately' and `auto-revert-use-notify'\nare both nil, then reverts happen after `auto-revert-interval'\nseconds of user inactivity. That is not desirable." (magit . "2.4.0")] 14) | |
| 16 | #@23 | |
| 17 | ||
| 18 | (fn &optional FILE) | |
| 19 | (defalias 'magit-turn-on-auto-revert-mode-if-desired #[256 "\211\203 \304!\211\205 r\211q\210\305 )\207\2059 \306!\2059 \307 \2059 \203, \310!\2059 \n?\2059 ?\2059 \302\311!\207" [buffer-file-name magit-auto-revert-tracked-only auto-revert-mode global-auto-revert-mode find-buffer-visiting magit-turn-on-auto-revert-mode-if-desired file-readable-p magit-toplevel magit-file-tracked-p 1] 3 (#$ . 3204)]) | |
| 20 | (defvar auto-revert-mode-major-mode nil) | |
| 21 | (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\314\316\317\320\321\322\323\324&\207" [make-variable-buffer-local auto-revert-mode-major-mode custom-declare-variable magit-auto-revert-mode funcall function #[0 "?\205 ?\207" [global-auto-revert-mode noninteractive] 1] "Non-nil if Magit-Auto-Revert mode is enabled.\nSee the `magit-auto-revert-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-auto-revert-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group magit-auto-revert magit-essentials :type boolean :package-version (magit . "2.4.0") :link (info-link "(magit)Automatic Reverting of File-Visiting Buffers")] 18) | |
| 22 | #@387 Toggle Auto-Revert mode in all buffers. | |
| 23 | With prefix ARG, enable Magit-Auto-Revert mode if ARG is positive; | |
| 24 | otherwise, disable it. If called from Lisp, enable the mode if | |
| 25 | ARG is omitted or nil. | |
| 26 | ||
| 27 | Auto-Revert mode is enabled in all buffers where | |
| 28 | `magit-turn-on-auto-revert-mode-if-desired' would do it. | |
| 29 | See `auto-revert-mode' for more information on Auto-Revert mode. | |
| 30 | ||
| 31 | (fn &optional ARG) | |
| 32 | (defalias 'magit-auto-revert-mode #[256 "\302 \303\300\304=\203 \305\300!?\202 \306!\307V\"\210\203. \310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\202= \317\311\312\"\210\317\313\314\"\210\317\315\316\"\210\320 \211\203c \211@r\211q\210\203S \321 \210\202[ \203[ \301\322!\210)A\266\202\202? \210\323\324\305\300!\203p \325\202q \326\"\210\327\330!\203\233 \331\300!\210\302 \203\211 \211\302 \232\203\233 \332\333\334\305\300!\203\226 \335\202\227 \336#\266\210\337 \210\305\300!\207" [magit-auto-revert-mode auto-revert-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook magit-auto-revert-mode-enable-in-buffers find-file-hook magit-auto-revert-mode-check-buffers change-major-mode-hook magit-auto-revert-mode-cmhh remove-hook buffer-list magit-turn-on-auto-revert-mode-if-desired -1 run-hooks magit-auto-revert-mode-hook magit-auto-revert-mode-on-hook magit-auto-revert-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Magit-Auto-Revert mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 4511) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) | |
| 33 | (defvar magit-auto-revert-mode-hook nil) | |
| 34 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [magit-auto-revert-mode-map magit-auto-revert-mode-hook variable-documentation put "Hook run after entering or leaving `magit-auto-revert-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode magit-auto-revert-mode nil boundp] 6) | |
| 35 | (defvar auto-revert-mode-set-explicitly nil nil) | |
| 36 | (make-variable-buffer-local 'auto-revert-mode-set-explicitly) | |
| 37 | (defalias 'auto-revert-mode-set-explicitly #[0 "\301\211\207" [auto-revert-mode-set-explicitly t] 2]) | |
| 38 | (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put auto-revert-mode-set-explicitly definition-name magit-auto-revert-mode add-hook auto-revert-mode-hook] 4) | |
| 39 | (defvar magit-auto-revert-mode-buffers nil) | |
| 40 | (defalias 'magit-auto-revert-mode-enable-in-buffers #[0 "\211\2056 \211@\305!\203/ r\211q\210 \204, \n =\204, \f\203) \304\306!\210\307 \210\202, \307 \210 )A\266\202\202 \207" [magit-auto-revert-mode-buffers auto-revert-mode-set-explicitly auto-revert-mode-major-mode major-mode auto-revert-mode buffer-live-p -1 magit-turn-on-auto-revert-mode-if-desired] 4]) | |
| 41 | (put 'magit-auto-revert-mode-enable-in-buffers 'definition-name 'magit-auto-revert-mode) | |
| 42 | (defalias 'magit-auto-revert-mode-check-buffers #[0 "\301 \210\302\303\304\305\"\207" [magit-auto-revert-mode-buffers magit-auto-revert-mode-enable-in-buffers nil remove-hook post-command-hook magit-auto-revert-mode-check-buffers] 3]) | |
| 43 | (put 'magit-auto-revert-mode-check-buffers 'definition-name 'magit-auto-revert-mode) | |
| 44 | (defalias 'magit-auto-revert-mode-cmhh #[0 "\300\301p\"\210\302\303\304\"\207" [add-to-list magit-auto-revert-mode-buffers add-hook post-command-hook magit-auto-revert-mode-check-buffers] 3]) | |
| 45 | (put 'magit-auto-revert-mode-cmhh 'definition-name 'magit-auto-revert-mode) | |
| 46 | #@238 This is an internal kludge to be used on `after-init-hook'. | |
| 47 | Do not use this function elsewhere, and don't remove it from | |
| 48 | the `after-init-hook'. For more information see the comments | |
| 49 | and code surrounding the definition of this function. | |
| 50 | (defalias 'magit-auto-revert-mode--init-kludge #[0 "\203, \301 \302\303!\210\300\304!\210\302\305\306\307\301 \"!\211\310V\203' \311\312\313 G#\202( \314\262\"\207\300\315!\207" [magit-auto-revert-mode current-time magit-message "Turning on magit-auto-revert-mode..." 1 "Turning on magit-auto-revert-mode...done%s" float-time time-subtract 0.2 format " (%.3fs, %s buffers checked)" buffer-list "" -1] 8 (#$ . 8006)]) | |
| 51 | (byte-code "\203\n \301 \210\202 \302\303\301\304#\210\305\306\307\310#\207" [after-init-time magit-auto-revert-mode--init-kludge add-hook after-init-hook t put magit-auto-revert-mode function-documentation "Toggle Magit Auto Revert mode.\nWith a prefix argument ARG, enable Magit Auto Revert mode if ARG\nis positive, and disable it otherwise. If called from Lisp,\nenable the mode if ARG is omitted or nil.\n\nMagit Auto Revert mode is a global minor mode that reverts\nbuffers associated with a file that is located inside a Git\nrepository when the file changes on disk. Use `auto-revert-mode'\nto revert a particular buffer. Or use `global-auto-revert-mode'\nto revert all file-visiting buffers, not just those that visit\na file located inside a Git repository.\n\nThis global mode works by turning on the buffer-local mode\n`auto-revert-mode' at the time a buffer is first created. The\nlocal mode is turned on if the visited file is being tracked in\na Git repository at the time when the buffer is created.\n\nIf `magit-auto-revert-tracked-only' is non-nil (the default),\nthen only tracked files are reverted. But if you stage a\npreviously untracked file using `magit-stage', then this mode\nnotices that.\n\nUnlike `global-auto-revert-mode', this mode never reverts any\nbuffers that are not visiting files.\n\nThe behavior of this mode can be customized using the options\nin the `autorevert' and `magit-autorevert' groups.\n\nThis function calls the hook `magit-auto-revert-mode-hook'."] 4) | |
| 52 | (defalias 'magit-auto-revert-buffers #[0 "\205 \204 \n\205 \205 \f\206 \305 \306 )\207" [magit-auto-revert-immediately global-auto-revert-mode magit-auto-revert-mode auto-revert-buffer-list auto-revert-buffer-list-filter magit-auto-revert-repository-buffer-p auto-revert-buffers] 1]) | |
| 53 | (defvar magit-auto-revert-toplevel nil) | |
| 54 | (byte-code "\301W\203\n \302\303!\210\301\207" [emacs-major-version 25 (lambda (#1=#:def-tmp-var) (defvar auto-revert-buffers-counter #1# "Incremented each time `auto-revert-buffers' is called")) 1] 2) | |
| 55 | #@219 Return t if BUFFER visits a file inside the current repository. | |
| 56 | The current repository is the one in which `default-directory' is | |
| 57 | located. If there is no current repository, then return t for | |
| 58 | any BUFFER. | |
| 59 | ||
| 60 | (fn BUFFER) | |
| 61 | (defalias 'magit-auto-revert-buffer-p #[257 "\300\301\"\207" [magit-auto-revert-repository-buffer-p t] 4 (#$ . 10718)]) | |
| 62 | #@269 Return t if BUFFER visits a file inside the current repository. | |
| 63 | The current repository is the one in which `default-directory' is | |
| 64 | located. If there is no current repository, then return FALLBACK | |
| 65 | (which defaults to nil) for any BUFFER. | |
| 66 | ||
| 67 | (fn BUFFER &optional FALLBACK) | |
| 68 | (defalias 'magit-auto-revert-repository-buffer-p #[513 "\203 A U\204 \303 \206 \304 B@\211\304=\203 \2026 rq\210\n)\305!\305!\232\2054 \306\"\262\207" [magit-auto-revert-toplevel auto-revert-buffers-counter default-directory magit-toplevel no-repo file-remote-p file-in-directory-p] 7 (#$ . 11064)]) | |
| 69 | (defalias 'auto-revert-buffers--buffer-list-filter #[0 "\304W\203 T\n\2053 \305 \306\203+ @\n\203 \211B\262\210\211T\262A\262\202 \266\211\237\262\211\207" [emacs-major-version auto-revert-buffers-counter auto-revert-buffer-list-filter auto-revert-buffer-list 25 nil 0] 6]) | |
| 70 | (byte-code "\300\301\302\303#\210\304\305!\207" [advice-add auto-revert-buffers :before auto-revert-buffers--buffer-list-filter provide magit-autorevert] 4) | |
