| 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\300\305!\210\300\306!\210\307\310\311\312\313DD\314\315\316\317\320\321\322& \210\307\323\311\312\324DD\325\326\327\315\316\317\320\321\330& \210\307\331\311\312\332DD\333\326\334\315\335\317\320\321\336& \210\307\337\311\312\340DD\341\326\342\315\335\317\320& \210\307\343\311\312\344DD\345\326\346\315\347\317\350& \210\307\351\311\312\352DD\353\326\354\315\347\317\320\355\356\321\357& \210\307\360\311\312\361DD\362\326\363\315\347\317\320\355\356\321\364& \210\307\365\311\312\366DD\367\326\370\315\347\317\371& \210\307\372\311\312\373DD\374\326\375\315\347\317\376& \210\307\377\311\312\201@ DD\201A \326\201B \315\347\317\201C & \210\307\201D \311\312\201E DD\201F \326\201G \315\347\317\201H & \210\307\201I \311\312\201J DD\201K \326\201L \315\347\317\201M & \210\307\201N \311\312\201O DD\201P \326\201Q \315\335\317\320\321\201R & \210\307\201S \311\312\201T DD\201U \326\201V \315\335\317\320& \210\307\201W \311\312\201X DD\201Y \326\201Z \315\335\317\320& \210\307\201[ \311\312\201\\ DD\201] \326\201^ \315\335\315\201_ \317\201C & \210\307\201` \311\312\201a DD\201b \326\201c \315\335\317\201C & \210\307\201d \311\312\201e DD\201f \315\201g \315\347\317\201h & \210\307\201i \311\312\201j DD\201k \326\201l \315\201m \317\201C & \207" [require cl-lib dash magit-section magit-git format-spec help-mode custom-declare-variable magit-mode-hook funcall function #[0 "\300\207" [(magit-load-config-extensions magit-xref-setup)] 1] "Hook run when entering a mode derived from Magit mode." :group magit-modes :type hook :options (magit-load-config-extensions magit-xref-setup bug-reference-mode) magit-mode-setup-hook #[0 "\300\207" [(magit-maybe-save-repository-buffers magit-set-buffer-margin)] 1] "Hook run by `magit-mode-setup'.\n\nThis is run right after displaying the buffer and right before\ngenerating or updating its content. `magit-mode-hook' and other,\nmore specific, `magit-mode-*-hook's on the other hand are run\nright before displaying the buffer. Usually one of these hooks\nshould be used instead of this one." :package-version (magit . "2.3.0") (magit-maybe-save-repository-buffers magit-set-buffer-margin) magit-pre-refresh-hook #[0 "\300\207" [(magit-maybe-save-repository-buffers)] 1] "Hook run before refreshing in `magit-refresh'.\n\nThis hook, or `magit-post-refresh-hook', should be used\nfor functions that are not tied to a particular buffer.\n\nTo run a function with a particular buffer current, use\n`magit-refresh-buffer-hook' and use `derived-mode-p'\ninside your function." (magit . "2.4.0") magit-refresh (magit-maybe-save-repository-buffers) magit-post-refresh-hook #[0 "\300\207" [nil] 1] "Hook run after refreshing in `magit-refresh'.\n\nThis hook, or `magit-pre-refresh-hook', should be used\nfor functions that are not tied to a particular buffer.\n\nTo run a function with a particular buffer current, use\n`magit-refresh-buffer-hook' and use `derived-mode-p'\ninside your function." (magit . "2.4.0") magit-display-buffer-function #[0 "\300\207" [magit-display-buffer-traditional] 1] "The function used display a Magit buffer.\n\nAll Magit buffers (buffers whose major-modes derive from\n`magit-mode') are displayed using `magit-display-buffer',\nwhich in turn uses the function specified here." (magit . "2.3.0") magit-buffers (radio (function-item magit-display-buffer-traditional) (function-item magit-display-buffer-same-window-except-diff-v1) (function-item magit-display-buffer-fullframe-status-v1) (function-item magit-display-buffer-fullframe-status-topleft-v1) (function-item magit-display-buffer-fullcolumn-most-v1) (function-item display-buffer) (function :tag "Function")) magit-pre-display-buffer-hook #[0 "\300\207" [(magit-save-window-configuration)] 1] "Hook run by `magit-display-buffer' before displaying the buffer." (magit . "2.3.0") :get magit-hook-custom-get (magit-save-window-configuration) magit-post-display-buffer-hook #[0 "\300\207" [(magit-maybe-set-dedicated)] 1] "Hook run by `magit-display-buffer' after displaying the buffer." (magit . "2.3.0") (magit-maybe-set-dedicated) magit-generate-buffer-name-function #[0 "\300\207" [magit-generate-buffer-name-default-function] 1] "The function used to generate the name for a Magit buffer." (magit . "2.3.0") (radio (function-item magit-generate-buffer-name-default-function) (function :tag "Function")) magit-buffer-name-format #[0 "\300\207" [#1="%x%M%v: %t%x"] 1 #1#] "The format string used to name Magit buffers.\n\nThe following %-sequences are supported:\n\n`%m' The name of the major-mode, but with the `-mode' suffix\n removed.\n\n`%M' Like \"%m\" but abbreviate `magit-status-mode' as `magit'.\n\n`%v' The value the buffer is locked to, in parentheses, or an\n empty string if the buffer is not locked to a value.\n\n`%V' Like \"%v\", but the string is prefixed with a space, unless\n it is an empty string.\n\n`%t' The top-level directory of the working tree of the\n repository, or if `magit-uniquify-buffer-names' is non-nil\n an abbreviation of that.\n\n`%x' If `magit-uniquify-buffer-names' is nil \"*\", otherwise the\n empty string. Due to limitations of the `uniquify' package,\n buffer names must end with the path.\n\n`%T' Obsolete, use \"%t%x\" instead. Like \"%t\", but append an\n asterisk if and only if `magit-uniquify-buffer-names' is nil.\n\nThe value should always contain \"%m\" or \"%M\", \"%v\" or\n\"%V\", and \"%t\" (or the obsolete \"%T\").\n\nIf `magit-uniquify-buffer-names' is non-nil, then the value must\nend with \"%t\" or \"%t%x\" (or the obsolete \"%T\"). See issue\n#2841.\n\nThis is used by `magit-generate-buffer-name-default-function'.\nIf another `magit-generate-buffer-name-function' is used, then\nit may not respect this option, or on the contrary it may\nsupport additional %-sequences." (magit . "2.12.0") string magit-uniquify-buffer-names #[0 "\300\207" [t] 1] "Whether to uniquify the names of Magit buffers." (magit . "2.3.0") boolean magit-bury-buffer-function #[0 "\300\207" [magit-restore-window-configuration] 1] "The function used to bury or kill the current Magit buffer." (magit . "2.3.0") (radio (function-item quit-window) (function-item magit-mode-quit-window) (function-item magit-restore-window-configuration) (function :tag "Function")) magit-use-sticky-arguments #[0 "\300\207" [t] 1] "How to reuse arguments from existing diff and log buffers.\n\nnil Always use the default value of the variable\n `magit-log-arguments' for log commands. Likewise,\n always use the default value of the variable\n `magit-diff-arguments' for diff command calls.\n\ncurrent If the mode of the current buffer is derived from\n `magit-log-mode' or `magit-diff-mode', reuse the\n arguments from that buffer instead of those given by\n the variable `magit-log-arguments' or\n `magit-diff-arguments', respectively.\n\nt Like `current', but if the mode of the current buffer\n is not derived from `magit-log-mode' or\n `magit-diff-mode', use the arguments from the current\n repository's active (i.e. non-locked) `magit-log-mode'\n or `magit-diff-mode' buffer, respectively, if it\n exists.\n\n Note that commands that generate a\n `magit-revision-mode' or `magit-stash-mode' buffer will\n also collect their diff arguments from the active\n `magit-diff-mode' buffer.\n\nIn general, there is a separation between the \"sticky\"\narguments for log and diff buffers, but there is one special\ncase: if the current buffer is a log buffer,\n`magit-show-commit' (considered a diff command) uses the file\nfilter from the log buffer." (magit . "2.11.0") (choice (const :tag "disabled" nil) (const :tag "sticky for current" current) (const :tag "sticky" t)) magit-region-highlight-hook #[0 "\300\207" [(magit-section-update-region magit-diff-update-hunk-region)] 1] "Functions used to highlight the region.\n\nEach function is run with the current section as only argument\nuntil one of them returns non-nil. If all functions return nil,\nthen fall back to regular region highlighting." (magit . "2.1.0") (magit-section-update-region magit-diff-update-hunk-region) magit-create-buffer-hook #[0 "\300\207" [nil] 1] "Normal hook run after creating a new `magit-mode' buffer." (magit . "2.90.0") magit-refresh-buffer-hook #[0 "\300\207" [nil] 1] "Normal hook for `magit-refresh-buffer' to run after refreshing." (magit . "2.1.0") magit-refresh-status-buffer #[0 "\300\207" [t] 1] "Whether the status buffer is refreshed after running git.\n\nWhen this is non-nil, then the status buffer is automatically\nrefreshed after running git for side-effects, in addition to the\ncurrent Magit buffer, which is always refreshed automatically.\n\nOnly set this to nil after exhausting all other options to\nimprove performance." (magit . "2.4.0") magit-status magit-refresh-verbose #[0 "\300\207" [nil] 1] "Whether to revert Magit buffers verbosely." (magit . "2.1.0") magit-save-repository-buffers #[0 "\300\207" [t] 1] "Whether to save file-visiting buffers when appropriate.\n\nIf non-nil, then all modified file-visiting buffers belonging\nto the current repository may be saved before running Magit\ncommands and before creating or refreshing Magit buffers.\nIf `dontask', then this is done without user intervention, for\nany other non-nil value the user has to confirm each save.\n\nThe default is t to avoid surprises, but `dontask' is the\nrecommended value." magit-essentials (choice (const :tag "Never" nil) (const :tag "Ask" t) (const :tag "Save without asking" dontask)) magit-keep-region-overlay #[0 "\300\207" [nil] 1] "Whether to keep the region overlay when there is a valid selection.\n\nBy default Magit removes the regular region overlay if, and only\nif, that region constitutes a valid selection as understood by\nMagit commands. Otherwise it does not remove that overlay, and\nthe region looks like it would in other buffers.\n\nThere are two types of such valid selections: hunk-internal\nregions and regions that select two or more sibling sections.\nIn such cases Magit removes the region overlay and instead\nhighlights a slightly larger range. All text (for hunk-internal\nregions) or the headings of all sections (for sibling selections)\nthat are inside that range (not just inside the region) are acted\non by commands such as the staging command. This buffer range\nbegins at the beginning of the line on which the region begins\nand ends at the end of the line on which the region ends.\n\nBecause Magit acts on this larger range and not the region, it is\nactually quite important to visualize that larger range. If we\ndon't do that, then one might think that these commands act on\nthe region instead. If you want to *also* visualize the region,\nthen set this option to t. But please note that when the region\ndoes *not* constitute a valid selection, then the region is\n*always* visualized as usual, and that it is usually under such\ncircumstances that you want to use a non-magit command to act on\nthe region.\n\nBesides keeping the region overlay, setting this option to t also\ncauses all face properties, except for `:foreground', to be\nignored for the faces used to highlight headings of selected\nsections. This avoids the worst conflicts that result from\ndisplaying the region and the selection overlays at the same\ntime. We are not interested in dealing with other conflicts.\nIn fact we *already* provide a way to avoid all of these\nconflicts: *not* changing the value of this option.\n\nIt should be clear by now that we consider it a mistake to set\nthis to display the region when the Magit selection is also\nvisualized, but since it has been requested a few times and\nbecause it doesn't cost much to offer this option we do so.\nHowever that might change. If the existence of this option\nstarts complicating other things, then it will be removed." (magit . "2.3.0") magit-miscellaneous] 14) | |
| 16 | #@67 Parent keymap for all keymaps of modes derived from `magit-mode'. | |
| 17 | (defvar magit-mode-map (byte-code "\300 \301\302\"\210\303\304!\203j \305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\305\316\317#\210\305\320\321#\210\305\322\323#\210\305\324\325#\210\305\326\327#\210\305\330\331#\210\305\332\333#\210\305\334\335#\210\305\336\337#\210\305\340\341#\210\305\342\343#\210\202\320 \305\344\307#\210\305\345\307#\210\305\346\311#\210\305\347\313#\210\305\350\315#\210\305\351\317#\210\305\352\321#\210\305\353\323#\210\305\334\325#\210\305\354\327#\210\305\355\331#\210\305\356\333#\210\305\357\335#\210\305\326\337#\210\305\360\341#\210\305\324\343#\210\305\361\343#\210\305\362\363#\210\305\364\365#\210\305\366\367#\210\305\370\371#\210\305\372\373#\210\305\374\375#\210\305\376\377#\210\305\201@ \201A #\210\305\201B \201C #\210\305\201D \201E #\210\305\201F \201G #\210\305\201H \201I #\210\305\201J \201K #\210\305\201L \201M #\210\305\201N \201O #\210\305\201P \201Q #\210\305\201R \201S #\210\305\201T \201U #\210\305\201V \201W #\210\305\201X \201Y #\210\305\201Z \201[ #\210\305\201\\ \201] #\210\305\201^ \201_ #\210\305\201` \201a #\210\305\201b \201c #\210\305\201d \201e #\210\305\201f \201g #\210\305\201h \201i #\210\305\201j \201k #\210\305\201l \201k #\210\305\201m \201n #\210\305\201o \201p #\210\305\201q \201r #\210\305\201s \201t #\210\305\201u \201v #\210\305\201w \201x #\210\305\201y \201z #\210\305\201{ \201| #\210\305\201} \201~ #\210\305\201 \201\200 #\210\305\201\201 \201\202 #\210\305\201\203 \201\204 #\210\305\201\205 \201\206 #\210\305\201\207 \201\210 #\210\305\201\211 \201\212 #\210\305\201\213 \201\214 #\210\305\201\215 \201\216 #\210\305\201\217 \201\220 #\210\305\201\221 \201\222 #\210\305\201\223 \201\224 #\210\305\201\225 \201\226 #\210\305\201\227 \201\230 #\210\305\201\231 \201\232 #\210\305\201\233 \201\234 #\210\305\201\235 \201\234 #\210\305\201\236 \201\237 #\210\305\201\240 \201\241 #\210\305\201\242 \201k #\210\305\201\243 \201\244 #\210\305\201\245 \201\246 #\210\305\201\247 \201\250 #\210\305\201\251 \201\252 #\210\305\201\253 \201\254 #\210\305\201\255 \201\256 #\210\305\201\257 \201\260 #\210\305\201\261 \201\262 #\210\305\201\263 \201\264 #\210\305\201\265 \201\266 #\210\211\207" [make-keymap suppress-keymap t featurep jkl define-key [return] magit-visit-thing [C-return] magit-dired-jump [tab] magit-section-toggle [C-tab] magit-section-cycle [M-tab] magit-section-cycle-diffs [S-tab] magit-section-cycle-global [134217839] magit-section-up "i" magit-section-backward "k" magit-section-forward [134217833] magit-section-backward-sibling [134217835] magit-section-forward-sibling "p" magit-push-popup "," magit-delete-thing ";" magit-file-untrack " " magit-gitignore-popup [C-return] " " [134217737] " " [C-tab] [M-tab] [backtab] "^" "n" [134217840] [134217838] "P" "K" "I" " " magit-diff-show-or-scroll-up "" magit-diff-show-or-scroll-down "+" magit-diff-more-context "-" magit-diff-less-context "0" magit-diff-default-context "1" magit-section-show-level-1 "2" magit-section-show-level-2 "3" magit-section-show-level-3 "4" magit-section-show-level-4 [134217777] magit-section-show-level-1-all [134217778] magit-section-show-level-2-all [134217779] magit-section-show-level-3-all [134217780] magit-section-show-level-4-all "$" magit-process-buffer "%" magit-worktree-popup "a" magit-cherry-apply "A" magit-cherry-pick-popup "b" magit-branch-popup "B" magit-bisect-popup "c" magit-commit-popup "d" magit-diff-popup "D" magit-diff-refresh-popup "e" magit-ediff-dwim "E" magit-ediff-popup "f" magit-fetch-popup "F" magit-pull-popup "g" magit-refresh "G" magit-refresh-all "h" magit-dispatch-popup "?" "l" magit-log-popup "L" magit-log-refresh-popup "m" magit-merge-popup "M" magit-remote-popup "o" magit-submodule-popup "O" magit-subtree-popup "q" magit-mode-bury-buffer "r" magit-rebase-popup "R" magit-file-rename "t" magit-tag-popup "T" magit-notes-popup "s" magit-stage-file "S" magit-stage-modified "u" magit-unstage-file "U" magit-unstage-all "v" magit-revert-no-commit "V" magit-revert-popup "w" magit-am-popup "W" magit-patch-popup "x" magit-reset-quickly "X" magit-reset-popup "y" magit-show-refs-popup "Y" magit-cherry "z" magit-stash-popup "Z" ":" magit-git-command "!" magit-run-popup "" "" magit-edit-thing "" magit-browse-thing "a" magit-add-change-log-entry "4a" magit-add-change-log-entry-other-window "" magit-copy-section-value [134217847] magit-copy-buffer-revision [remap previous-line] magit-previous-line [remap next-line] magit-next-line [remap evil-previous-line] evil-previous-visual-line [remap evil-next-line] evil-next-visual-line] 5) (#$ . 12491)) | |
| 18 | #@130 This is a placeholder command. | |
| 19 | Where applicable, section-specific keymaps bind another command | |
| 20 | which deletes the thing at point. | |
| 21 | (defalias 'magit-delete-thing #[0 "\300\301!\207" [user-error "There is no thing at point that could be deleted"] 2 (#$ . 17273) nil]) | |
| 22 | #@129 This is a placeholder command. | |
| 23 | Where applicable, section-specific keymaps bind another command | |
| 24 | which visits the thing at point. | |
| 25 | (defalias 'magit-visit-thing #[0 "\301=\203 \302\303\304\305 !!\207\306\307!\207" [magit-current-popup magit-dispatch-popup nil call-interactively key-binding this-command-keys user-error "There is no thing at point that could be visited"] 3 (#$ . 17544) nil]) | |
| 26 | #@162 This is a placeholder command. | |
| 27 | Where applicable, section-specific keymaps bind another command | |
| 28 | which lets you edit the thing at point, likely in another buffer. | |
| 29 | (defalias 'magit-edit-thing #[0 "\301=\203 \302\303\304\305 !!\207\306\307!\207" [magit-current-popup magit-dispatch-popup nil call-interactively key-binding this-command-keys user-error "There is no thing at point that could be edited"] 3 (#$ . 17943) nil]) | |
| 30 | #@148 This is a placeholder command. | |
| 31 | Where applicable, section-specific keymaps bind another command | |
| 32 | which visits the thing at point using `browse-url'. | |
| 33 | (defalias 'magit-browse-thing #[0 "\300\301!\207" [user-error "There is no thing at point that could be browsed"] 2 (#$ . 18373) nil]) | |
| 34 | #@12 Magit menu | |
| 35 | (defvar magit-mode-menu nil (#$ . 18661)) | |
| 36 | (easy-menu-do-define 'magit-mode-menu magit-mode-map "Magit menu" '("Magit" ["Refresh" magit-refresh t] ["Refresh all" magit-refresh-all t] "---" ["Stage" magit-stage t] ["Stage modified" magit-stage-modified t] ["Unstage" magit-unstage t] ["Reset index" magit-reset-index t] ["Commit" magit-commit-popup t] ["Add log entry" magit-commit-add-log t] ["Tag" magit-tag-create t] "---" ["Diff working tree" magit-diff-working-tree t] ["Diff" magit-diff t] ("Log" ["Log" magit-log-other t] ["Reflog" magit-reflog-other t] ["Extended..." magit-log-popup t]) "---" ["Cherry pick" magit-cherry-pick t] ["Revert commit" magit-revert-popup t] "---" ["Ignore globally" magit-gitignore-globally t] ["Ignore locally" magit-gitignore-locally t] ["Discard" magit-discard t] ["Reset head and index" magit-reset-mixed t] ["Stash" magit-stash-both t] ["Snapshot" magit-snapshot-both t] "---" ["Branch..." magit-checkout t] ["Merge" magit-merge t] ["Ediff resolve" magit-ediff-resolve t] ["Rebase..." magit-rebase-popup t] "---" ["Push" magit-push t] ["Pull" magit-pull-branch t] ["Remote update" magit-fetch-all t] ("Submodule" ["Submodule update" magit-submodule-update t] ["Submodule update and init" magit-submodule-setup t] ["Submodule init" magit-submodule-init t] ["Submodule sync" magit-submodule-sync t]) "---" ("Extensions") "---" ["Display Git output" magit-process-buffer t] ["Quit Magit" magit-mode-bury-buffer t])) | |
| 37 | #@65 Load Magit extensions that are defined at the Git config layer. | |
| 38 | (defalias 'magit-load-config-extensions #[0 "\300\301!\211\205! \211@\302\303\304\"!\305!\203 \211\306!\210\210A\266\202\202 \207" [magit-get-all "magit.extension" intern format "magit-%s-mode" fboundp 1] 6 (#$ . 20130)]) | |
| 39 | (defvar magit-mode-hook nil) | |
| 40 | (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [magit-mode-hook variable-documentation put "Hook run after entering Magit 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-mode-map definition-name magit-mode] 4) | |
| 41 | (defvar magit-mode-map (make-sparse-keymap)) | |
| 42 | (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-mode-abbrev-table magit-mode-map variable-documentation put purecopy "Keymap for `magit-mode'." boundp magit-mode-syntax-table definition-name magit-mode (lambda (#1=#:def-tmp-var) (defvar magit-mode-syntax-table #1#)) make-syntax-table "Syntax table for `magit-mode'." (lambda (#1#) (defvar magit-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `magit-mode'." derived-mode-parent special-mode custom-mode-group magit-modes] 5) | |
| 43 | #@293 Parent major mode from which Magit major modes inherit. | |
| 44 | ||
| 45 | Magit is documented in info node `(magit)'. | |
| 46 | ||
| 47 | In addition to any hooks its parent mode `special-mode' might have run, | |
| 48 | this mode runs the hook `magit-mode-hook', as the final or penultimate step | |
| 49 | during initialization. | |
| 50 | ||
| 51 | \{magit-mode-map} | |
| 52 | (defalias 'magit-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 7=\204R \326 \3257C#\210\327 !\210\330\f!\210 7\331 \210\307\21189\306\332!\210\307\333:\334;!<\335 \210\306\336!\210\337\307B B \340\341\342\307\211$\210\340\343\342\307\211$\210\306\344!\210\345$\306\346!\210\347&\350\351!)\352\353!\203\265 +\203\265 \354\355!\210\356\357!\203\312 \352\360!\203\312 0\203\312 \357\355!\210\356\361!\203\337 \352\362!\203\337 2\203\337 \361\355!\210\340\363\364\"\210)\365\366!\207" [delay-mode-hooks major-mode mode-name magit-mode-map magit-mode-syntax-table magit-mode-abbrev-table make-local-variable t special-mode magit-mode "Magit" 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 buffer-disable-undo line-move-visual nil abbreviate-file-name hack-dir-local-variables-non-file-buffer text-property-default-nonsticky keymap add-hook post-command-hook magit-section-update-highlight deactivate-mark-hook redisplay-highlight-region-function magit-highlight-region redisplay-unhighlight-region-function magit-unhighlight-region magit-repository-local-get mode-line-process boundp global-linum-mode linum-mode -1 fboundp nlinum-mode global-nlinum-mode display-line-numbers-mode global-display-line-numbers-mode kill-buffer-hook magit-preserve-section-visibility-cache run-mode-hooks magit-mode-hook local-abbrev-table truncate-lines buffer-read-only show-trailing-whitespace default-directory list-buffers-directory] 6 (#$ . 21605) nil]) | |
| 53 | (defvar magit-region-overlays nil nil) | |
| 54 | (make-variable-buffer-local 'magit-region-overlays) | |
| 55 | (defalias 'magit-delete-region-overlays #[0 "\301\302\"\210\303\211\207" [magit-region-overlays mapc delete-overlay nil] 3]) | |
| 56 | #@29 | |
| 57 | ||
| 58 | (fn START END WINDOW ROL) | |
| 59 | (defalias 'magit-highlight-region #[1028 "\301 \210\302\303\304 \"\203 \204 \305!\305!U\204 \306\307!!\207\306\310!$\207" [magit-keep-region-overlay magit-delete-region-overlays run-hook-with-args-until-success magit-region-highlight-hook magit-current-section line-number-at-pos default-value redisplay-unhighlight-region-function redisplay-highlight-region-function] 9 (#$ . 23884)]) | |
| 60 | #@12 | |
| 61 | ||
| 62 | (fn ROL) | |
| 63 | (defalias 'magit-unhighlight-region #[257 "\301\302 \210\303\304!!\207" [magit-section-highlighted-section nil magit-delete-region-overlays default-value redisplay-unhighlight-region-function] 3 (#$ . 24315)]) | |
| 64 | #@51 The arguments used to refresh the current buffer. | |
| 65 | (defvar magit-refresh-args nil (#$ . 24544)) | |
| 66 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local magit-refresh-args put permanent-local t] 4) | |
| 67 | (defvar magit-previous-section nil nil) | |
| 68 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local magit-previous-section put permanent-local t] 4) | |
| 69 | #@82 Setup up a MODE buffer using ARGS to generate its content. | |
| 70 | ||
| 71 | (fn MODE &rest ARGS) | |
| 72 | (defalias 'magit-mode-setup #[385 "\300\"\207" [magit-mode-setup-internal] 5 (#$ . 24931)]) | |
| 73 | #@213 Setup up a MODE buffer using ARGS to generate its content. | |
| 74 | When optional LOCKED is non-nil, then create a buffer that is | |
| 75 | locked to its value, which is derived from MODE and ARGS. | |
| 76 | ||
| 77 | (fn MODE ARGS &optional LOCKED) | |
| 78 | (defalias 'magit-mode-setup-internal #[770 "\211\205 \303\"\304\305\211$\211\205 \306 ?\2042 \307 \211\203, \211\310\")\202. \311 \262\262rq\210 \210\211\203I \312 \210\313\314!\210)\315!\210rq\210\313\316!\210\317 )\207" [default-directory magit-previous-section magit-refresh-args magit-buffer-lock-value magit-mode-get-buffer nil magit-current-section magit-toplevel magit-generate-new-buffer magit--not-inside-repository-error magit-status-goto-initial-section run-hooks magit-create-buffer-hook magit-display-buffer magit-mode-setup-hook magit-refresh-buffer] 11 (#$ . 25113)]) | |
| 79 | #@71 If non-nil, then `magit-display-buffer' doesn't call `select-window'. | |
| 80 | (defvar magit-display-buffer-noselect nil (#$ . 25938)) | |
| 81 | #@330 Display BUFFER in some window and maybe select it. | |
| 82 | ||
| 83 | Display the buffer using `magit-display-buffer-function' and | |
| 84 | then, unless `magit-display-buffer-noselect' is non-nil, select | |
| 85 | the window which was used to display the buffer. | |
| 86 | ||
| 87 | Also run the hooks `magit-pre-display-buffer-hook' | |
| 88 | and `magit-post-display-buffer-hook'. | |
| 89 | ||
| 90 | (fn BUFFER) | |
| 91 | (defalias 'magit-display-buffer #[257 "r\211q\210\302\303!\210)! \204% \304 \305!\306!\210=\204# \307!\210\266\210r\211q\210\302\310!)\207" [magit-display-buffer-function magit-display-buffer-noselect run-hooks magit-pre-display-buffer-hook selected-frame window-frame select-window select-frame-set-input-focus magit-post-display-buffer-hook] 6 (#$ . 26071)]) | |
| 92 | #@71 Display BUFFER the way this has traditionally been done. | |
| 93 | ||
| 94 | (fn BUFFER) | |
| 95 | (defalias 'magit-display-buffer-traditional #[257 "\301\302\303!\205 rq\210)\304>?\205 \305\"\207" [major-mode display-buffer derived-mode-p magit-mode (magit-process-mode magit-revision-mode magit-diff-mode magit-stash-mode magit-status-mode) (display-buffer-same-window)] 5 (#$ . 26775)]) | |
| 96 | #@239 Display BUFFER in the selected window except for some modes. | |
| 97 | If a buffer's `major-mode' derives from `magit-diff-mode' or | |
| 98 | `magit-process-mode', display it in another window. Display all | |
| 99 | other buffers in the selected window. | |
| 100 | ||
| 101 | (fn BUFFER) | |
| 102 | (defalias 'magit-display-buffer-same-window-except-diff-v1 #[257 "\300rq\210\301\302\303\")?\205 \304\"\207" [display-buffer derived-mode-p magit-diff-mode magit-process-mode (display-buffer-same-window)] 6 (#$ . 27148)]) | |
| 103 | #@21 | |
| 104 | ||
| 105 | (fn BUFFER ALIST) | |
| 106 | (defalias 'magit--display-buffer-fullframe #[514 "\300\"\206 \301\"\206 \302\"\206 \303\"\211\205\" \304!\210\211\207" [display-buffer-reuse-window display-buffer-same-window display-buffer-pop-up-window display-buffer-use-some-window delete-other-windows] 5 (#$ . 27617)]) | |
| 107 | #@140 Display BUFFER, filling entire frame if BUFFER is a status buffer. | |
| 108 | Otherwise, behave like `magit-display-buffer-traditional'. | |
| 109 | ||
| 110 | (fn BUFFER) | |
| 111 | (defalias 'magit-display-buffer-fullframe-status-v1 #[257 "r\211q\210)\301=\203 \302\303\"\207\304!\207" [major-mode magit-status-mode display-buffer (magit--display-buffer-fullframe) magit-display-buffer-traditional] 4 (#$ . 27930)]) | |
| 112 | #@21 | |
| 113 | ||
| 114 | (fn BUFFER ALIST) | |
| 115 | (defalias 'magit--display-buffer-topleft #[514 "\300\"\206` \301\"\211\205^ \302 p\303!\304\305\"\306\"\210\306\"\210\307!\210\310\311!A\"\210\310\312\"\210\313\314\304\314\"#\210\313\314\315#\210\313\305\316\211\3178\3208F#\210\313\305\312#\210\266\204\262\207" [display-buffer-reuse-window display-buffer-pop-up-window get-buffer-window window-buffer window-parameter quit-restore set-window-buffer select-window set-window-prev-buffers window-prev-buffers nil set-window-parameter magit-dedicated t window 2 3] 15 (#$ . 28314)]) | |
| 116 | #@407 Display BUFFER, filling entire frame if BUFFER is a status buffer. | |
| 117 | When BUFFER derives from `magit-diff-mode' or | |
| 118 | `magit-process-mode', try to display BUFFER to the top or left of | |
| 119 | the current buffer rather than to the bottom or right, as | |
| 120 | `magit-display-buffer-fullframe-status-v1' would. Whether the | |
| 121 | split is made vertically or horizontally is determined by | |
| 122 | `split-window-preferred-function'. | |
| 123 | ||
| 124 | (fn BUFFER) | |
| 125 | (defalias 'magit-display-buffer-fullframe-status-topleft-v1 #[257 "\301rq\210)\302=\203 \303\202\" rq\210\304\305\306\")\203! \307\202\" \310\"\207" [major-mode display-buffer magit-status-mode (magit--display-buffer-fullframe) derived-mode-p magit-diff-mode magit-process-mode (magit--display-buffer-topleft) (display-buffer-same-window)] 6 (#$ . 28900)]) | |
| 126 | #@21 | |
| 127 | ||
| 128 | (fn BUFFER ALIST) | |
| 129 | (defalias 'magit--display-buffer-fullcolumn #[514 "\300\"\206 \301\"\206 \302\"\211\205 \303!\210\211\207" [display-buffer-reuse-window display-buffer-same-window display-buffer-below-selected delete-other-windows-vertically] 5 (#$ . 29674)]) | |
| 130 | #@532 Display BUFFER using the full column except in some cases. | |
| 131 | For most cases where BUFFER's `major-mode' derives from | |
| 132 | `magit-mode', display it in the selected window and grow that | |
| 133 | window to the full height of the frame, deleting other windows in | |
| 134 | that column as necessary. However, display BUFFER in another | |
| 135 | window if 1) BUFFER's mode derives from `magit-process-mode', or | |
| 136 | 2) BUFFER's mode derives from `magit-diff-mode', provided that | |
| 137 | the mode of the current buffer derives from `magit-log-mode' or | |
| 138 | `magit-cherry-mode'. | |
| 139 | ||
| 140 | (fn BUFFER) | |
| 141 | (defalias 'magit-display-buffer-fullcolumn-most-v1 #[257 "\301\204 \302\303\304\"\203 rq\210\302\305!)\203 \306\202, rq\210\302\307!)\203+ \306\202, \310\"\207" [git-commit-mode display-buffer derived-mode-p magit-log-mode magit-cherry-mode magit-diff-mode nil magit-process-mode (magit--display-buffer-fullcolumn)] 6 (#$ . 29954)]) | |
| 142 | #@275 Mark the selected window as dedicated if appropriate. | |
| 143 | ||
| 144 | If a new window was created to display the buffer, then remember | |
| 145 | that fact. That information is used by `magit-mode-quit-window', | |
| 146 | to determine whether the window should be deleted when its last | |
| 147 | Magit buffer is buried. | |
| 148 | (defalias 'magit-maybe-set-dedicated #[0 "\300p!\301!\205 \302!?\205 \303\304\305#\207" [get-buffer-window window-live-p window-prev-buffers set-window-parameter magit-dedicated t] 5 (#$ . 30832)]) | |
| 149 | #@235 Value of `default-directory' when buffer is generated. | |
| 150 | This exists to prevent a let-bound `default-directory' from | |
| 151 | tricking `magit-mode-get-buffer' or `magit-mode-get-buffers' into | |
| 152 | thinking a buffer belongs to a repo that it doesn't. | |
| 153 | (defvar magit--default-directory nil (#$ . 31316)) | |
| 154 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local magit--default-directory put permanent-local t] 4) | |
| 155 | (defalias 'magit-mode-get-buffers #[0 "\301 \302\303 \304\203. @r\211q\210\305\306!\205 \232)\203\" \211B\262\210\211T\262A\262\202 \266\211\237\262\207" [magit--default-directory magit-toplevel nil buffer-list 0 derived-mode-p magit-mode] 7]) | |
| 156 | (defvar magit-buffer-locked-p nil nil) | |
| 157 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local magit-buffer-locked-p put permanent-local t] 4) | |
| 158 | #@42 | |
| 159 | ||
| 160 | (fn MODE &optional CREATE FRAME VALUE) | |
| 161 | (defalias 'magit-mode-get-buffer #[1025 "\203 \303\304!\210\305 \211\203} \306\203% \307\310\311\312=?\205 !\"\202' \313 \312\314\203u \203u @\203= \306\262\202i r\211q\210\n=\205b \232\205b \203` \n\205b \315 \232\202b \n?)\203i \211\262\210\211T\262A\262\202) \266\211\262\202 \316 \207" [major-mode magit--default-directory magit-buffer-locked-p error "`magit-mode-get-buffer's CREATE argument is obsolete" magit-toplevel nil mapcar window-buffer window-list t buffer-list 0 magit-buffer-lock-value magit--not-inside-repository-error] 12 (#$ . 32154)]) | |
| 162 | #@29 | |
| 163 | ||
| 164 | (fn MODE &optional VALUE) | |
| 165 | (defalias 'magit-generate-new-buffer #[513 "\"\306!r\211q\210 \205 \307\310!\210)\f\203D \311\312\"\210r\211q\210\313 !)\314>\2035 \315\2027 \316\317\320 !!#\210)\207" [magit-generate-buffer-name-function default-directory magit--default-directory magit-buffer-locked-p magit-uniquify-buffer-names list-buffers-directory generate-new-buffer t magit-restore-section-visibility-cache add-to-list uniquify-list-buffers-directory-modes abbreviate-file-name (nil forward) post-forward-angle-brackets uniquify-rationalize-file-buffer-names file-name-directory directory-file-name uniquify-buffer-name-style] 9 (#$ . 32786)]) | |
| 166 | #@228 Generate buffer name for a MODE buffer in the current repository. | |
| 167 | The returned name is based on `magit-buffer-name-format' and | |
| 168 | takes `magit-uniquify-buffer-names' and VALUE, if non-nil, into | |
| 169 | account. | |
| 170 | ||
| 171 | (fn MODE &optional VALUE) | |
| 172 | (defalias 'magit-generate-buffer-name-default-function #[513 "\303!\304\305O\205 \306\307<\203 \202 C\"\203$ \310\311 !!\202' \312 !\313\n\314B\315\316=\2038 \317\202: B\320\206B \321B\322\203P \323P\202Q \321B\324B\325\203_ \321\202` \326B\327\203k \202o \326PB\257\"\207" [magit-uniquify-buffer-names default-directory magit-buffer-name-format symbol-name 0 -5 format "%s" file-name-nondirectory directory-file-name abbreviate-file-name format-spec 109 77 magit-status-mode "magit" 118 "" 86 " " 116 120 "*" 84] 16 (#$ . 33459)]) | |
| 173 | #@663 Lock the current buffer to its value or unlock it. | |
| 174 | ||
| 175 | Locking a buffer to its value prevents it from being reused to | |
| 176 | display another value. The name of a locked buffer contains its | |
| 177 | value, which allows telling it apart from other locked buffers | |
| 178 | and the unlocked buffer. | |
| 179 | ||
| 180 | Not all Magit buffers can be locked to their values, for example | |
| 181 | it wouldn't make sense to lock a status buffer. | |
| 182 | ||
| 183 | There can only be a single unlocked buffer using a certain | |
| 184 | major-mode per repository. So when a buffer is being unlocked | |
| 185 | and another unlocked buffer already exists for that mode and | |
| 186 | repository, then the former buffer is instead deleted and the | |
| 187 | latter is displayed in its place. | |
| 188 | (defalias 'magit-toggle-buffer-lock #[0 "\203\" \303 !\211\203 p\304\305\306#\210\307!\262\202! \305\310\n !!\207\311 \211\203N \303 \305\211$\211\203A p\304\305\306#\210\307!\262\202I \306\310\n \"!\262\202Q \312\313!\207" [magit-buffer-locked-p major-mode magit-generate-buffer-name-function magit-mode-get-buffer switch-to-buffer nil t kill-buffer rename-buffer magit-buffer-lock-value user-error "Buffer has no value it could be locked to"] 7 (#$ . 34254) nil]) | |
| 189 | #@702 Provide buffer-locking support for third-party modes. | |
| 190 | An alist of symbols to functions. | |
| 191 | ||
| 192 | The symbol must be the major-mode the locked buffer will have. | |
| 193 | ||
| 194 | The function must take a single argument, a list of refresh | |
| 195 | arguments (the value of `magit-refresh-args') and return a | |
| 196 | value that identifies the buffer (i.e., its 'lock value'). | |
| 197 | If the third-party mode is invoked as | |
| 198 | ||
| 199 | (magit-mode-setup-internal #\='my-mode \='(1 2 3) t) | |
| 200 | ||
| 201 | the function will be invoked as | |
| 202 | ||
| 203 | (funcall lock-func \='(1 2 3)) | |
| 204 | ||
| 205 | if the cons (my-mode . lock-func) is in this list. | |
| 206 | ||
| 207 | This variable is intended for third-party extensions; | |
| 208 | `magit-buffer-lock-value' implements all built-in behavior. | |
| 209 | ||
| 210 | See also `magit-toggle-buffer-lock'. | |
| 211 | (defvar magit-buffer-lock-functions '((forge-topic-mode . car)) (#$ . 35402)) | |
| 212 | #@160 Find an appropriate buffer lock value for MODE under ARGS. | |
| 213 | See also `magit-buffer-lock-functions'. | |
| 214 | ||
| 215 | (fn &optional (MODE major-mode) (ARGS magit-refresh-args)) | |
| 216 | (defalias 'magit-buffer-lock-value #[128 "\211\203 \211A\262\242\202 \203 \211A\262\242\202 \203+ \303\304\305\306G\\D\"\210\307\310\"\203G \211@A\211@A\311Q\266\202\266\204\202%\307\312\"\203\212 \211@A\211@A\211@A\211@A\n\211\206y \313\235\203x \314\313\"\262\315\202y \316B\205\202 \317B\244\266\204\266\210\202%\307\320\"\203\275 \211@A\211@A\211@A\211\203\262 \203\262 \321\317B\"\202\266 \321\"\266\203\266\206\202%\307\322\"\203\334 \211@A\211@A\211\206\323 \323B\266\202\266\204\202%\307\324\"\203\f\211@A\211@A\211@A\211@A\n\203\211B\202\211C\266\204\266\210\202%\325\326\"\203\211@\202%\n\236A\211\205#\211!\262\207" [major-mode magit-refresh-args magit-buffer-lock-functions signal wrong-number-of-arguments magit-buffer-lock-value 2 eql magit-cherry-mode ".." magit-diff-mode "--cached" delete staged unstaged "--" magit-log-mode append magit-refs-mode "HEAD" magit-revision-mode memql (magit-reflog-mode magit-stash-mode magit-stashes-mode)] 18 (#$ . 36188)]) | |
| 217 | #@152 Bury the current buffer. | |
| 218 | With a prefix argument, kill the buffer instead. | |
| 219 | This is done using `magit-bury-buffer-function'. | |
| 220 | ||
| 221 | (fn &optional KILL-BUFFER) | |
| 222 | (defalias 'magit-mode-bury-buffer #[256 "!\207" [magit-bury-buffer-function] 3 (#$ . 37413) "P"]) | |
| 223 | #@305 Quit the selected window and bury its buffer. | |
| 224 | ||
| 225 | This behaves similar to `quit-window', but when the window | |
| 226 | was originally created to display a Magit buffer and the | |
| 227 | current buffer is the last remaining Magit buffer that was | |
| 228 | ever displayed in the selected window, then delete that | |
| 229 | window. | |
| 230 | ||
| 231 | (fn KILL-BUFFER) | |
| 232 | (defalias 'magit-mode-quit-window #[257 "\300 \204Z \301\302 \303\304\203R \203R @\203 \301\262\202F \211@\211p=?\205> \305!\205> \306\301\307\"?\206> r\211q\210\310\311\312\")\262\203F \211\262\210\211T\262A\262\202\n \266\211\262\203^ \313!\207\314 \313!\210\315!\205m \316!\207" [one-window-p nil window-prev-buffers t 0 buffer-live-p window-parameter magit-dedicated derived-mode-p magit-mode magit-process-mode quit-window selected-window window-live-p delete-window] 10 (#$ . 37671)]) | |
| 233 | (defvar inhibit-magit-refresh nil) | |
| 234 | #@244 Refresh some buffers belonging to the current repository. | |
| 235 | ||
| 236 | Refresh the current buffer if its major mode derives from | |
| 237 | `magit-mode', and refresh the corresponding status buffer. | |
| 238 | ||
| 239 | Run hooks `magit-pre-refresh-hook' and `magit-post-refresh-hook'. | |
| 240 | (defalias 'magit-refresh #[0 "?\205\220 \306\216\307 \206 \310\211BC\n\203 \311\312!\210\313\314!\210\315\316!\203' \317 \210 \2055 \315\320!?\2055 \321\320!\211\203A r\211q\210\317 \210)\210\322 \210\f\204W >\203W \313\323!\210\202p \f>\203e \313\324!\210\202p \f >\203p \313\325!\210\313\326!\210\n\205\214 \311\327\330\331\307 \"! @@ @@ @A\\$)\262)\207" [inhibit-magit-refresh magit--refresh-cache magit-refresh-verbose magit-refresh-status-buffer this-command last-command #[0 "\300\301!\207" [run-hooks magit-unwind-refresh-hook] 2] current-time 0 message "Refreshing magit..." magit-run-hook-with-benchmark magit-pre-refresh-hook derived-mode-p magit-mode magit-refresh-buffer magit-status-mode magit-mode-get-buffer magit-auto-revert-buffers magit-post-commit-hook magit-post-stage-hook magit-post-unstage-hook magit-post-refresh-hook "Refreshing magit...done (%.3fs, cached %s/%s)" float-time time-subtract magit-post-commit-hook-commands magit-post-stage-hook-commands magit-post-unstage-hook-commands] 7 (#$ . 38526) nil]) | |
| 241 | #@264 Refresh all buffers belonging to the current repository. | |
| 242 | ||
| 243 | Refresh all Magit buffers belonging to the current repository, | |
| 244 | and revert buffers that visit files located inside the current | |
| 245 | repository. | |
| 246 | ||
| 247 | Run hooks `magit-pre-refresh-hook' and `magit-post-refresh-hook'. | |
| 248 | (defalias 'magit-refresh-all #[0 "\300\301!\210\302 \211\203 \211@r\211q\210\303 \210)A\266\202\202 \210\304 \210\300\305!\207" [magit-run-hook-with-benchmark magit-pre-refresh-hook magit-mode-get-buffers magit-refresh-buffer magit-auto-revert-buffers magit-post-refresh-hook] 3 (#$ . 39822) nil]) | |
| 249 | (defvar magit-refresh-start-time nil nil) | |
| 250 | (make-variable-buffer-local 'magit-refresh-start-time) | |
| 251 | #@35 Refresh the current Magit buffer. | |
| 252 | (defalias 'magit-refresh-buffer #[0 "\306 \307\310\311\312 !\313\314O\"!\n\206 \313\211BC\315!\205\261 \203' \316\317\320 \"\210p\321\322\323\324\325\326\327\330!\331\"\332\333%\334\335\336#\206C \337 C\"\"\340 \210\335\211\335\21112\341 \210\336 3\342 \210\212\3214\"\210*\211\211\203\224 \211@\343@!r\324\313\344\327\330!\345\"\346$\216\347@\350\"\210rq\210\321\351A\"\210+\210A\266\202\202d \210\352\353!\210\354 \210\355\335!\266 \205\261 \316\356\320 \357\360\306 \"!#)\207" [magit-refresh-start-time major-mode magit--refresh-cache magit-refresh-verbose magit-section-highlight-overlays magit-section-highlighted-section current-time intern format "%s-refresh-buffer" symbol-name 0 -5 functionp message "Refreshing buffer `%s'..." buffer-name apply append mapcar make-byte-code 257 "\301!r\302\303\304\305\306!\307\"\310$\216\311@\312\"\210r\300q\210\313 \211\205' D\314 \244C\262+\207" vconcat vector [internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord magit-current-section magit-refresh-get-relative-position] 8 "\n\n(fn IT)" get-buffer-window-list nil t selected-window deactivate-mark magit-process-unset-mode-line-error-status erase-buffer internal--before-with-selected-window "\301\300!\207" [internal--after-with-selected-window] 2 select-window norecord magit-section-goto-successor run-hooks magit-refresh-buffer-hook magit-section-update-highlight set-buffer-modified-p "Refreshing buffer `%s'...done (%.3fs)" float-time time-subtract magit-section-highlighted-sections magit-section-unhighlight-sections inhibit-read-only magit-refresh-args] 13 (#$ . 40489)]) | |
| 253 | (defalias 'magit-refresh-get-relative-position #[0 "\300 \211\205k \301\302\"\303`\"`\304 Z\305!\205h \306 \205h \304 b\210\307\310!\203* \311y\210\307\312!\2036 \311y\210\202* `\307\310!\203e \311y\210\307\310!\203L \311y\210\202@ \307\313!\203X \311y\210\202L \314y\210\315\316\317 \"!\202f \320\262E\262\207" [magit-current-section eieio-oref start count-lines line-beginning-position magit-hunk-section-p region-active-p looking-at "^[-+]" nil "^[ @]" "^ " -1 regexp-quote buffer-substring-no-properties line-end-position t] 9]) | |
| 254 | (defvar disable-magit-save-buffers nil) | |
| 255 | (defalias 'magit-pre-command-hook #[0 "\301\211\207" [disable-magit-save-buffers nil] 2]) | |
| 256 | (add-hook 'pre-command-hook 'magit-pre-command-hook) | |
| 257 | (defvar magit-after-save-refresh-buffers nil) | |
| 258 | (defalias 'magit-after-save-refresh-buffers #[0 "\211\203 \211@\301!\203 r\211q\210\302 \210)A\266\202\202 \210\303\304\305\300\"\207" [magit-after-save-refresh-buffers buffer-live-p magit-refresh-buffer nil remove-hook post-command-hook] 4]) | |
| 259 | #@505 Refresh the status buffer of the current repository. | |
| 260 | ||
| 261 | This function is intended to be added to `after-save-hook'. | |
| 262 | ||
| 263 | If the status buffer does not exist or the file being visited in | |
| 264 | the current buffer isn't inside the working tree of a repository, | |
| 265 | then do nothing. | |
| 266 | ||
| 267 | Note that refreshing a Magit buffer is done by re-creating its | |
| 268 | contents from scratch, which can be slow in large repositories. | |
| 269 | If you are not satisfied with Magit's performance, then you | |
| 270 | should obviously not add this function to that hook. | |
| 271 | (defalias 'magit-after-save-refresh-status #[0 "?\205' \301\302!\205' \3031 \304\305!0\202 \210\306\211\205% \307\310\"\210\311\312\310\"\262\207" [disable-magit-save-buffers magit-inside-worktree-p t (error) magit-mode-get-buffer magit-status-mode nil add-to-list magit-after-save-refresh-buffers add-hook post-command-hook] 4 (#$ . 43255)]) | |
| 272 | #@219 Maybe save file-visiting buffers belonging to the current repository. | |
| 273 | Do so if `magit-save-repository-buffers' is non-nil. You should | |
| 274 | not remove this from any hooks, instead set that variable to nil | |
| 275 | if you so desire. | |
| 276 | (defalias 'magit-maybe-save-repository-buffers #[0 "\205* ?\205* \302\303 \300\304=!\210\211\205( \303 \205( \211\303 \232?\205( \305\306\"\262\207" [magit-save-repository-buffers disable-magit-save-buffers t current-message dontask message "%s"] 4 (#$ . 44114)]) | |
| 277 | (byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\207" [add-hook magit-pre-refresh-hook magit-maybe-save-repository-buffers magit-pre-call-git-hook magit-pre-start-git-hook] 3) | |
| 278 | (defvar magit-inhibit-refresh-save nil nil) | |
| 279 | (make-variable-buffer-local 'magit-inhibit-refresh-save) | |
| 280 | #@338 Save file-visiting buffers belonging to the current repository. | |
| 281 | After any buffer where `buffer-save-without-query' is non-nil | |
| 282 | is saved without asking, the user is asked about each modified | |
| 283 | buffer which visits a file in the current repository. Optional | |
| 284 | argument (the prefix) non-nil means save all with no questions. | |
| 285 | ||
| 286 | (fn &optional ARG) | |
| 287 | (defalias 'magit-save-repository-buffers #[256 "\301\302!\211\205$ \303!\304\305BB\306\307\310\311\312\313\"\314\"\315$\")\262\207" [save-some-buffers-action-alist magit-rev-parse-safe "--show-toplevel" file-remote-p (89 (lambda (buffer) (with-current-buffer buffer (setq buffer-save-without-query t) (save-buffer))) "to save the current buffer and remember choice") (78 (lambda (buffer) (with-current-buffer buffer (setq magit-inhibit-refresh-save t))) "to skip the current buffer and remember choice") save-some-buffers make-byte-code 0 "\n?\205' \205' \304\305 !!\205' \306 !\301\232\205' \307\300\310 !\"\205' \311\312!\300\232\207" vconcat vector [magit-inhibit-refresh-save buffer-file-name file-exists-p file-name-directory file-remote-p string-prefix-p file-truename magit-rev-parse-safe "--show-toplevel"] 4] 12 (#$ . 44900) "P"]) | |
| 288 | (defvar magit-inhibit-save-previous-winconf nil) | |
| 289 | (defvar magit-previous-window-configuration nil nil) | |
| 290 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local magit-previous-window-configuration put permanent-local t] 4) | |
| 291 | #@135 Save the current window configuration. | |
| 292 | ||
| 293 | Later, when the buffer is buried, it may be restored by | |
| 294 | `magit-restore-window-configuration'. | |
| 295 | (defalias 'magit-save-window-configuration #[0 "\203 \302=\205 \303\211\207\304p\305 \"?\205 \306 \211\207" [magit-inhibit-save-previous-winconf magit-previous-window-configuration unset nil get-buffer-window selected-frame current-window-configuration] 3 (#$ . 46334)]) | |
| 296 | #@104 Bury or kill the current buffer and restore previous window configuration. | |
| 297 | ||
| 298 | (fn &optional KILL-BUFFER) | |
| 299 | (defalias 'magit-restore-window-configuration #[256 "p\301 \302\303 \"\210\205( \211\304!\232\205( \305!\210\306!\205( rq\210\307\211)\207" [magit-previous-window-configuration selected-frame quit-window selected-window window-configuration-frame set-window-configuration buffer-live-p nil] 7 (#$ . 46753)]) | |
| 300 | #@44 Move backward in current buffer's history. | |
| 301 | (defalias 'magit-go-backward #[0 "\203 \301p!\207\302\303!\207" [help-xref-stack help-xref-go-back user-error "No previous entry in buffer's history"] 2 (#$ . 47178) nil]) | |
| 302 | #@43 Move forward in current buffer's history. | |
| 303 | (defalias 'magit-go-forward #[0 "\203 \301p!\207\302\303!\207" [help-xref-forward-stack help-xref-go-forward user-error "No next entry in buffer's history"] 2 (#$ . 47401) nil]) | |
| 304 | #@40 Insert xref buttons. | |
| 305 | ||
| 306 | (fn &optional _) | |
| 307 | (defalias 'magit-insert-xref-buttons #[256 "\204 \205 \203 \304\n\305\"\210 \205 \203 \306c\210\304 \307\"\207" [help-xref-stack help-xref-forward-stack help-back-label help-forward-label magit-xref-insert-button magit-xref-backward " " magit-xref-forward] 4 (#$ . 47629)]) | |
| 308 | #@19 | |
| 309 | ||
| 310 | (fn LABEL TYPE) | |
| 311 | (defalias 'magit-xref-insert-button #[514 "\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 \3332@\334\335\336pC%\210\337\340!\210\341!\210\342\330\343\"\344\"\210\321\345\317 #\346\347\"\350\351\352\330\335\"\"!\350\351\353\330\335\"\"!\203\321 J\206\344 \354!\203\334 J\206\344 \354!\205\344 \211J\212\330\343\"b\210`W\203\355`\310\"\206\372 \356`\310\"\204\357`\310\n$\210\203\357`\347$\210\211b\266\202\354 )\266\211\f=\203.\360 4\361!)\202?\321\330\362\"\363\330\211\362\"\363\"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 button 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 insert-text-button type help-args 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" "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property nil magit-section-show parent children magit-section-cache-visibility] 15 (#$ . 47957)]) | |
| 312 | (byte-code "\300\301\302\303\304\305\306\307\310!&\210\300\311\302\312\304\305\306\307\313!&\207" [define-button-type magit-xref-backward :supertype help-back mouse-face magit-section-highlight help-echo purecopy "mouse-2, RET: go back to previous history entry" magit-xref-forward help-forward "mouse-2, RET: go back to next history entry"] 9) | |
| 313 | #@169 Insert backward/forward buttons if the major-mode supports it. | |
| 314 | Currently `magit-log-mode', `magit-reflog-mode', | |
| 315 | `magit-diff-mode', and `magit-revision-mode' support it | |
| 316 | (defalias 'magit-xref-setup #[0 "\306>\205+ \203 ` B\nB\307\310\311!\203$ \312\n\233\211\203# \211\307\241\210\210\313\f BB\211\207" [major-mode help-xref-stack-item help-xref-stack help-xref-forward-stack default-directory magit-refresh-args (magit-log-mode magit-reflog-mode magit-diff-mode magit-revision-mode) nil called-interactively-p interactive 10 magit-xref-restore] 3 (#$ . 49996)]) | |
| 317 | #@19 | |
| 318 | ||
| 319 | (fn &rest ARGS) | |
| 320 | (defalias 'magit-xref-restore #[128 "\302 \210\211@\211A\303 \207" [default-directory magit-refresh-args magit-xref-setup magit-refresh-buffer] 2 (#$ . 50569)]) | |
| 321 | #@68 Alist mapping `magit-toplevel' paths to alists of key/value pairs. | |
| 322 | (defvar magit-repository-local-cache nil (#$ . 50756)) | |
| 323 | #@44 Return the key for the current repository. | |
| 324 | (defalias 'magit-repository-local-repository #[0 "\301\300!\203\n \206\f \302 \207" [magit--default-directory boundp magit-toplevel] 2 (#$ . 50884)]) | |
| 325 | #@257 Set the repository-local VALUE for KEY. | |
| 326 | ||
| 327 | Unless specified, REPOSITORY is the current buffer's repository. | |
| 328 | ||
| 329 | If REPOSITORY is nil (meaning there is no current repository), | |
| 330 | then the value is not cached, and we return nil. | |
| 331 | ||
| 332 | (fn KEY VALUE &optional REPOSITORY) | |
| 333 | (defalias 'magit-repository-local-set #[770 "\211\206 \301 \302\"\205< \211\2032 \302A\"\211\203! \211\241\202- B\211AB\241\266\202\262\202< BCBB\211\207" [magit-repository-local-cache magit-repository-local-repository assoc] 11 (#$ . 51085)]) | |
| 334 | #@223 Non-nil when a repository-local value exists for KEY. | |
| 335 | ||
| 336 | Returns a (KEY . value) cons cell. | |
| 337 | ||
| 338 | The KEY is matched using `equal'. | |
| 339 | ||
| 340 | Unless specified, REPOSITORY is the current buffer's repository. | |
| 341 | ||
| 342 | (fn KEY &optional REPOSITORY) | |
| 343 | (defalias 'magit-repository-local-exists-p #[513 "\211\206 \301 \302\"\211\205 \302A\"\207" [magit-repository-local-cache magit-repository-local-repository assoc] 7 (#$ . 51610)]) | |
| 344 | #@228 Return the repository-local value for KEY. | |
| 345 | ||
| 346 | Return DEFAULT if no value for KEY exists. | |
| 347 | ||
| 348 | The KEY is matched using `equal'. | |
| 349 | ||
| 350 | Unless specified, REPOSITORY is the current buffer's repository. | |
| 351 | ||
| 352 | (fn KEY &optional DEFAULT REPOSITORY) | |
| 353 | (defalias 'magit-repository-local-get #[769 "\300\"\211\203 \211A\202 \207" [magit-repository-local-exists-p] 6 (#$ . 52025)]) | |
| 354 | #@141 Delete the repository-local value for KEY. | |
| 355 | ||
| 356 | Unless specified, REPOSITORY is the current buffer's repository. | |
| 357 | ||
| 358 | (fn KEY &optional REPOSITORY) | |
| 359 | (defalias 'magit-repository-local-delete #[513 "\211\206 \301 \302\"\211\205 \211\211\303A\304\305\306\307&\241\262\207" [magit-repository-local-cache magit-repository-local-repository assoc cl-delete :key car :test equal] 13 (#$ . 52391)]) | |
| 360 | #@196 Zap caches for the current repository. | |
| 361 | Remove the repository's entry from `magit-repository-local-cache' | |
| 362 | and set `magit-section-visibility-cache' to nil in all of the | |
| 363 | repository's Magit buffers. | |
| 364 | (defalias 'magit-zap-caches #[0 "\303 \211\203 \211\304 \305\306\307\310&)\202 \311 \210\210\312 \211\2050 \211@r\211q\210\313)A\266\202\202 \207" [default-directory magit-repository-local-cache magit-section-visibility-cache magit-toplevel cl-delete :key car :test equal magit--not-inside-repository-error magit-mode-get-buffers nil] 8 (#$ . 52788) nil]) | |
| 365 | #@13 | |
| 366 | ||
| 367 | (fn HOOK) | |
| 368 | (defalias 'magit-run-hook-with-benchmark #[257 "\211\205# \203 \301 \302\303\"\210\304!\210\302\305\306\307\301 \"!#\207\304!\207" [magit-refresh-verbose current-time message "Running %s..." run-hooks "Running %s...done (%.3fs)" float-time time-subtract] 9 (#$ . 53354)]) | |
| 369 | (provide 'magit-mode) | |
