;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312DD\313\314\315\316\317\320\321\322\323& \210\306\324\310\311\325DD\326\314\327\316\317\320\321\322\330& \210\306\331\310\311\332DD\333\314\334\316\335\320\321\322\336& \210\306\337\310\311\340DD\341\314\342\316\335\320\321& \210\306\343\310\311\344DD\345\314\346\316\347\320\350& \210\306\351\310\311\352DD\353\314\354\316\347\320\321\355\356\322\357& \210\306\360\310\311\361DD\362\314\363\316\347\320\321\355\356\322\364& \210\306\365\310\311\366DD\367\314\370\316\347\320\371& \210\306\372\310\311\373DD\374\314\375\316\347\320\376& \210\306\377\310\311\201@DD\201A\314\201B\316\347\320\201C& \210\306\201D\310\311\201EDD\201F\314\201G\316\347\320\201H& \210\306\201I\310\311\201JDD\201K\314\201L\316\347\316\201M\316\201N\316\201O\320\201P&\210\306\201Q\310\311\201RDD\201S\314\201T\316\347\316\201M\316\201N\316\201O\320\201U&\210\306\201V\310\311\201WDD\201X\314\201Y\316\335\320\321\322\201Z& \210\306\201[\310\311\201\\DD\201]\314\201^\316\335\320\321& \210\306\201_\310\311\201`DD\201a\314\201b\316\335\320\321& \210\306\201c\310\311\201dDD\201e\314\201f\316\335\316\201g\320\201C& \210\306\201h\310\311\201iDD\201j\314\201k\316\335\320\201C& \210\306\201l\310\311\201mDD\201n\316\201o\316\347\320\201p& \207" [require magit-section magit-git format-spec help-mode transient custom-declare-variable magit-mode-hook funcall function #[0 "\300\207" [(magit-load-config-extensions)] 1] "Hook run when entering a mode derived from Magit mode." :package-version (magit . "3.0.0") :group magit-modes :type hook :options (magit-load-config-extensions bug-reference-mode) magit-setup-buffer-hook #[0 "\300\207" [(magit-maybe-save-repository-buffers magit-set-buffer-margin)] 1] "Hook run by `magit-setup-buffer'.\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." (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-prefix-use-buffer-arguments #[0 "\300\207" [selected] 1] "Whether certain prefix commands reuse arguments active in relevant buffer.\n\nThis affects the transient prefix commands `magit-diff',\n`magit-log' and `magit-show-refs'.\n\nValid values are:\n\n`always': Always use the set of arguments that is currently\n active in the respective buffer, provided that buffer exists\n of course.\n`selected': Use the set of arguments from the respective\n buffer, but only if it is displayed in a window of the current\n frame. This is the default.\n`current': Use the set of arguments from the respective buffer,\n but only if it is the current buffer.\n`never': Never use the set of arguments from the respective\n buffer.\n\nFor more information see info node `(magit)Transient Arguments\nand Buffer Arguments'." (magit . "3.0.0") magit-commands magit-diff magit-log (choice (const :tag "always use args from buffer" always) (const :tag "use args from buffer if displayed in frame" selected) (const :tag "use args from buffer if it is current" current) (const :tag "never use args from buffer" never)) magit-direct-use-buffer-arguments #[0 "\300\207" [selected] 1] "Whether certain commands reuse arguments active in relevant buffer.\n\nThis affects certain commands such as `magit-show-commit' that\nare suffixes of the diff or log transient prefix commands, but\nonly if they are invoked directly, i.e. *not* as a suffix.\n\nValid values are:\n\n`always': Always use the set of arguments that is currently\n active in the respective buffer, provided that buffer exists\n of course.\n`selected': Use the set of arguments from the respective\n buffer, but only if it is displayed in a window of the current\n frame. This is the default.\n`current': Use the set of arguments from the respective buffer,\n but only if it is the current buffer.\n`never': Never use the set of arguments from the respective\n buffer.\n\nFor more information see info node `(magit)Transient Arguments\nand Buffer Arguments'." (magit . "3.0.0") (choice (const :tag "always use args from buffer" always) (const :tag "use args from buffer if displayed in frame" selected) (const :tag "use args from buffer if it is current" current) (const :tag "never use args from buffer" never)) magit-region-highlight-hook #[0 "\300\207" [(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-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))] 16) #@67 Parent keymap for all keymaps of modes derived from `magit-mode'. (defvar magit-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\305#\210\303\307\310#\210\303\311\312#\210\303\313\314#\210\303\315\316#\210\303\317\320#\210\303\321\322#\210\303\323\322#\210\303\324\325#\210\303\326\327#\210\303\330\327#\210\303\331\332#\210\303\333\334#\210\303\335\336#\210\303\337\340#\210\303\341\342#\210\303\343\344#\210\303\345\346#\210\303\347\350#\210\303\351\352#\210\303\353\354#\210\303\355\356#\210\303\357\360#\210\303\361\362#\210\303\363\364#\210\303\365\366#\210\303\367\370#\210\303\371\372#\210\303\373\374#\210\303\375\376#\210\303\377\201@#\210\303\201A\201@#\210\303\201B\201C#\210\303\201D\201E#\210\303\201F\201G#\210\303\201H\201I#\210\303\201J\201K#\210\303\201L\201M#\210\303\201N\201O#\210\303\201P\201Q#\210\303\201R\201S#\210\303\201T\201U#\210\303\201V\201W#\210\303\201X\201Y#\210\303\201Z\201[#\210\303\201\\\201]#\210\303\201^\201_#\210\303\201`\201a#\210\303\201b\201c#\210\303\201d\201e#\210\303\201f\201g#\210\303\201h\201i#\210\303\201j\201k#\210\303\201l\201m#\210\303\201n\201o#\210\303\201p\201q#\210\303\201r\201q#\210\303\201s\201t#\210\303\201u\201v#\210\303\201w\201@#\210\303\201x\201y#\210\303\201z\201{#\210\303\201|\201{#\210\303\201}\201~#\210\303\201\201\200#\210\303\201\201\201\202#\210\303\201\203\201\204#\210\303\201\205\201\206#\210\303\201\207\201\210#\210\207" [magit-section-mode-map make-sparse-keymap set-keymap-parent define-key [C-return] magit-visit-thing " " [134217737] magit-dired-jump [M-tab] magit-section-cycle-diffs "P" magit-push "k" magit-delete-thing "K" magit-file-untrack "i" magit-gitignore "I" " " magit-diff-show-or-scroll-up [33554464] magit-diff-show-or-scroll-down "" "+" magit-diff-more-context "-" magit-diff-less-context "0" magit-diff-default-context "$" magit-process-buffer "%" magit-worktree "a" magit-cherry-apply "A" magit-cherry-pick "b" magit-branch "B" magit-bisect "c" magit-commit "C" magit-clone "d" magit-diff "D" magit-diff-refresh "e" magit-ediff-dwim "E" magit-ediff "f" magit-fetch "F" magit-pull "g" magit-refresh "G" magit-refresh-all "h" magit-dispatch "?" "l" magit-log "L" magit-log-refresh "m" magit-merge "M" magit-remote "o" magit-submodule "O" magit-subtree "q" magit-mode-bury-buffer "r" magit-rebase "R" magit-file-rename "s" magit-stage-file "S" magit-stage-modified "t" magit-tag "T" magit-notes "u" magit-unstage-file "U" magit-unstage-all "v" magit-revert-no-commit "V" magit-revert "w" magit-am "W" magit-patch "x" magit-reset-quickly "X" magit-reset "y" magit-show-refs "Y" magit-cherry "z" magit-stash "Z" ":" magit-git-command "!" magit-run "" "" magit-edit-thing "" magit-browse-thing "" "" 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) (#$ . 10502)) #@130 This is a placeholder command. Where applicable, section-specific keymaps bind another command which deletes the thing at point. (defalias 'magit-delete-thing #[0 "\300\301!\207" [user-error "There is no thing at point that could be deleted"] 2 (#$ . 13635) nil]) #@129 This is a placeholder command. Where applicable, section-specific keymaps bind another command which visits the thing at point. (defalias 'magit-visit-thing #[0 "\301=\203 \302\303\304 !!\207\305\306!\207" [transient-current-command magit-dispatch call-interactively key-binding this-command-keys user-error "There is no thing at point that could be visited"] 3 (#$ . 13906) nil]) #@162 This is a placeholder command. Where applicable, section-specific keymaps bind another command which lets you edit the thing at point, likely in another buffer. (defalias 'magit-edit-thing #[0 "\301=\203 \302\303\304 !!\207\305\306!\207" [transient-current-command magit-dispatch call-interactively key-binding this-command-keys user-error "There is no thing at point that could be edited"] 3 (#$ . 14296) nil]) #@148 This is a placeholder command. Where applicable, section-specific keymaps bind another command which visits the thing at point using `browse-url'. (defalias 'magit-browse-thing #[0 "\300\301!\207" [user-error "There is no thing at point that could be browsed"] 2 (#$ . 14717) nil]) (eval-after-load 'bug-reference #[0 "\301\302\303#\207" [bug-reference-map define-key [remap magit-visit-thing] bug-reference-push-button] 4]) #@12 Magit menu (defvar magit-mode-menu nil (#$ . 15149)) (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 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 t]) "---" ["Cherry pick" magit-cherry-pick t] ["Revert commit" magit-revert t] "---" ["Ignore at toplevel" magit-gitignore-in-topdir t] ["Ignore in subdirectory" magit-gitignore-in-subdir 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 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])) #@65 Load Magit extensions that are defined at the Git config layer. (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 (#$ . 16608)]) (defvar magit-mode-hook nil) (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) (defvar magit-mode-map (make-sparse-keymap)) (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 (def-tmp-var) (defvar magit-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `magit-mode'." (lambda (def-tmp-var) (defvar magit-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "Abbrev table for `magit-mode'." derived-mode-parent magit-section-mode custom-mode-group magit] 5) #@299 Parent major mode from which Magit major modes inherit. Magit is documented in info node `(magit)'. In addition to any hooks its parent mode `magit-section-mode' might have run, this mode runs the hook `magit-mode-hook', as the final or penultimate step during initialization. \{magit-mode-map} (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 %=\204R\326 \325%C#\210\327 !\210\330\f!\210 %\331 \210\332\333\334\"\210\335\336!\306\337!\210\340\306\341!\210\342!)\343\344!\207" [delay-mode-hooks major-mode mode-name magit-mode-map magit-mode-syntax-table magit-mode-abbrev-table make-local-variable t magit-section-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 hack-dir-local-variables-non-file-buffer face-remap-add-relative header-line magit-header-line magit-repository-local-get mode-line-process bookmark-make-record-function magit--make-bookmark isearch-filter-predicate magit-section--open-temporarily run-mode-hooks magit-mode-hook local-abbrev-table] 5 (#$ . 18102) nil]) (defvar magit-buffer-arguments nil nil) (make-variable-buffer-local 'magit-buffer-arguments) (defvar magit-buffer-diff-args nil nil) (make-variable-buffer-local 'magit-buffer-diff-args) (defvar magit-buffer-diff-files nil nil) (make-variable-buffer-local 'magit-buffer-diff-files) (defvar magit-buffer-diff-files-suspended nil nil) (make-variable-buffer-local 'magit-buffer-diff-files-suspended) (defvar magit-buffer-file-name nil nil) (make-variable-buffer-local 'magit-buffer-file-name) (defvar magit-buffer-files nil nil) (make-variable-buffer-local 'magit-buffer-files) (defvar magit-buffer-log-args nil nil) (make-variable-buffer-local 'magit-buffer-log-args) (defvar magit-buffer-log-files nil nil) (make-variable-buffer-local 'magit-buffer-log-files) (defvar magit-buffer-range nil nil) (make-variable-buffer-local 'magit-buffer-range) (defvar magit-buffer-range-hashed nil nil) (make-variable-buffer-local 'magit-buffer-range-hashed) (defvar magit-buffer-refname nil nil) (make-variable-buffer-local 'magit-buffer-refname) (defvar magit-buffer-revision nil nil) (make-variable-buffer-local 'magit-buffer-revision) (defvar magit-buffer-revision-hash nil nil) (make-variable-buffer-local 'magit-buffer-revision-hash) (defvar magit-buffer-revisions nil nil) (make-variable-buffer-local 'magit-buffer-revisions) (defvar magit-buffer-typearg nil nil) (make-variable-buffer-local 'magit-buffer-typearg) (defvar magit-buffer-upstream nil nil) (byte-code "\300\301!\210\302\303\304\305#\210\302\306\304\305#\210\302\307\304\305#\210\302\310\304\305#\210\302\311\304\305#\207" [make-variable-buffer-local magit-buffer-upstream put magit-buffer-file-name permanent-local t magit-buffer-refname magit-buffer-revision magit-buffer-revision-hash magit-buffer-diff-files-suspended] 4) #@139 Obsolete. Possibly the arguments used to refresh the current buffer. Some third-party packages might still use this, but Magit does not. (defvar magit-refresh-args nil (#$ . 21229)) (byte-code "\300\301!\210\302\301\303\304#\210\305\301\306\307#\207" [make-variable-buffer-local magit-refresh-args put permanent-local t make-obsolete-variable nil "Magit 3.0.0"] 4) #@167 Obsolete buffer-locking support for third-party modes. Implement the generic function `magit-buffer-value' for your mode instead of adding an entry to this variable. (defvar magit-buffer-lock-functions nil (#$ . 21602)) (byte-code "\300\301\302\303#\210\304\305\306\305\302\211#\307#\210\310\305\302\211\211\311%\207" [make-obsolete-variable magit-buffer-lock-functions nil "Magit 3.0.0" defalias magit-buffer-value cl-generic-define "\n\n(fn)" cl-generic-define-method #[0 " \236A\211\205 \211\n!\207" [major-mode magit-buffer-lock-functions magit-refresh-args] 3]] 6) (defvar magit-previous-section nil nil) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local magit-previous-section put permanent-local t] 4) #@45 (fn MODE &optional LOCKED &rest BINDINGS) (defalias 'magit-setup-buffer '(macro . #[641 "\300\301\302\303\"BF\207" [magit-setup-buffer-internal list mapcar #[257 "\211\242\243\211\242\243\300\301DE\207" [list quote] 10 "\n\n(fn ARG0)"]] 10 (#$ . 22345)])) (byte-code "\300\301\302\303#\300\207" [function-put magit-setup-buffer lisp-indent-function 2] 4) #@29 (fn MODE LOCKED BINDINGS) (defalias 'magit-setup-buffer-internal #[771 "\2058\303\304\305\"r\211q\210\306\307\"\216\211\2030\211@\211\242\243\211\242\243\310!L\266A\266\202\202\210\311 +\262\312\"\211\205B\313 ?\204`\314 \211\203Z\211\315\")\202\\\316 \262\262rq\210 \210\317\320\"\210\211\203\217\211@\211\242\243\211\242\243\310!L\266A\266\202\202q\210\211\203\233\321 \210\322\323!\210)\324!\210rq\210\322\325!\210\326 \210)\207" [major-mode default-directory magit-previous-section generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] make-local-variable magit-buffer-value magit-get-mode-buffer magit-current-section magit-toplevel magit-generate-new-buffer magit--not-inside-repository-error magit-xref-setup magit-setup-buffer-internal magit-status-goto-initial-section run-hooks magit-create-buffer-hook magit-display-buffer magit-setup-buffer-hook magit-refresh-buffer] 17 (#$ . 22718)]) #@82 Setup up a MODE buffer using ARGS to generate its content. (fn MODE &rest ARGS) (defalias 'magit-mode-setup #[385 "\300\"\207" [magit-mode-setup-internal] 5 (#$ . 23737)]) (make-obsolete 'magit-mode-setup 'magit-setup-buffer "Magit 3.0.0") #@213 Setup up a MODE buffer using ARGS to generate its content. When optional LOCKED is non-nil, then create a buffer that is locked to its value, which is derived from MODE and ARGS. (fn MODE ARGS &optional LOCKED) (defalias 'magit-mode-setup-internal #[770 "\211\205\304\305\306\"r\211q\210\307\310\"\216\311 +\262\312\"\211\205$\313 ?\204B\314 \211\203<\211\315\")\202>\316 \262\262rq\210 \210\317\320\"\210\211\203_\321 \210\322\323!\210)\324!\210rq\210\322\325!\210\326 )\207" [magit-refresh-args major-mode default-directory magit-previous-section generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] magit-buffer-value magit-get-mode-buffer magit-current-section magit-toplevel magit-generate-new-buffer magit--not-inside-repository-error magit-xref-setup magit-mode-setup-internal magit-status-goto-initial-section run-hooks magit-create-buffer-hook magit-display-buffer magit-mode-setup-hook magit-refresh-buffer] 11 (#$ . 23987)]) (make-obsolete 'magit-mode-setup-internal 'magit-setup-buffer "Magit 3.0.0") #@71 If non-nil, then `magit-display-buffer' doesn't call `select-window'. (defvar magit-display-buffer-noselect nil (#$ . 25101)) #@449 Display BUFFER in some window and maybe select it. If optional DISPLAY-FUNCTION is non-nil, then use that to display the buffer. Otherwise use `magit-display-buffer-function', which is the normal case. Then, unless `magit-display-buffer-noselect' is non-nil, select the window which was used to display the buffer. Also run the hooks `magit-pre-display-buffer-hook' and `magit-post-display-buffer-hook'. (fn BUFFER &optional DISPLAY-FUNCTION) (defalias 'magit-display-buffer #[513 "rq\210\302\303!\210)\211\206! \204)\304 \305!\306!\210=\204'\307!\210\266\210rq\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] 7 (#$ . 25234)]) #@71 Display BUFFER the way this has traditionally been done. (fn BUFFER) (defalias 'magit-display-buffer-traditional #[257 "\301\302\303!\205rq\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 (#$ . 26061)]) #@239 Display BUFFER in the selected window except for some modes. If a buffer's `major-mode' derives from `magit-diff-mode' or `magit-process-mode', display it in another window. Display all other buffers in the selected window. (fn BUFFER) (defalias 'magit-display-buffer-same-window-except-diff-v1 #[257 "\300rq\210\301\302\303\")\203\304\202\305\"\207" [display-buffer derived-mode-p magit-diff-mode magit-process-mode (nil (inhibit-same-window . t)) (display-buffer-same-window)] 6 (#$ . 26434)]) #@21 (fn BUFFER ALIST) (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 (#$ . 26944)]) #@140 Display BUFFER, filling entire frame if BUFFER is a status buffer. Otherwise, behave like `magit-display-buffer-traditional'. (fn BUFFER) (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 (#$ . 27257)]) #@21 (fn BUFFER ALIST) (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 (#$ . 27641)]) #@407 Display BUFFER, filling entire frame if BUFFER is a status buffer. When BUFFER derives from `magit-diff-mode' or `magit-process-mode', try to display BUFFER to the top or left of the current buffer rather than to the bottom or right, as `magit-display-buffer-fullframe-status-v1' would. Whether the split is made vertically or horizontally is determined by `split-window-preferred-function'. (fn BUFFER) (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 (#$ . 28227)]) #@21 (fn BUFFER ALIST) (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 (#$ . 29001)]) #@532 Display BUFFER using the full column except in some cases. For most cases where BUFFER's `major-mode' derives from `magit-mode', display it in the selected window and grow that window to the full height of the frame, deleting other windows in that column as necessary. However, display BUFFER in another window if 1) BUFFER's mode derives from `magit-process-mode', or 2) BUFFER's mode derives from `magit-diff-mode', provided that the mode of the current buffer derives from `magit-log-mode' or `magit-cherry-mode'. (fn BUFFER) (defalias 'magit-display-buffer-fullcolumn-most-v1 #[257 "\301\204\302\303\304\305#\203rq\210\302\306!)\203\307\202-rq\210\302\310!)\203,\307\202-\311\"\207" [git-commit-mode display-buffer derived-mode-p magit-log-mode magit-cherry-mode magit-reflog-mode magit-diff-mode nil magit-process-mode (magit--display-buffer-fullcolumn)] 7 (#$ . 29281)]) #@275 Mark the selected window as dedicated if appropriate. If a new window was created to display the buffer, then remember that fact. That information is used by `magit-mode-quit-window', to determine whether the window should be deleted when its last Magit buffer is buried. (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 (#$ . 30180)]) #@235 Value of `default-directory' when buffer is generated. This exists to prevent a let-bound `default-directory' from tricking `magit-get-mode-buffer' or `magit-mode-get-buffers' into thinking a buffer belongs to a repo that it doesn't. (defvar magit--default-directory nil (#$ . 30664)) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local magit--default-directory put permanent-local t] 4) (defalias 'magit-mode-get-buffers #[0 "\301 \302\303 \304\302\211\2035\211A\262\242\262\262T\262rq\210\305\306!\205)\232)\203B\262\202\266\211\237\207" [magit--default-directory magit-toplevel nil buffer-list 0 derived-mode-p magit-mode] 8]) (defvar magit-buffer-locked-p nil nil) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local magit-buffer-locked-p put permanent-local t] 4) #@821 Return buffer belonging to the current repository whose major-mode is MODE. If no such buffer exists then return nil. Multiple buffers with the same major-mode may exist for a repository but only one can exist that hasn't been looked to its value. Return that buffer (or nil if there is no such buffer) unless VALUE is non-nil, in which case return the buffer that has been looked to that value. If FRAME is nil or omitted, then consider all buffers. Otherwise only consider buffers that are displayed in some live window on some frame. If `all', then consider all buffers on all frames. If `visible', then only consider buffers on all visible frames. If `selected' or t, then only consider buffers on the selected frame. If a frame, then only consider buffers on that frame. (fn MODE &optional VALUE FRAME) (defalias 'magit-get-mode-buffer #[769 "\300 \211\203L\301\302$\301\303\"\301\304\"\204\305\306 \"\207\307\267\2028\305\310 \"\207\305\311 \"\207\305\312\313 !\"\207\314!\203F\305\312!\"\207\315\316\"\207\317 \207" [magit-toplevel make-closure #[257 "r\211q\210 \300=\205%\f\302\232\205%\301\203 \205%\306 \301\232\202! ?\205%\211)\207" [V0 V1 V2 major-mode magit--default-directory magit-buffer-locked-p magit-buffer-value] 3 "\n\n(fn BUFFER)"] #[257 "\300\301!!\207" [V0 window-buffer] 4 "\n\n(fn WINDOW)"] #[257 "\301\300\302\303\"\"\207" [V0 seq-some window-list no-minibuf] 6 "\n\n(fn FRAME)"] seq-some buffer-list #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (all 36 visible 42 t 48 selected 48)) frame-list visible-frame-list window-list selected-frame framep error "No clause matching `%S'" magit--not-inside-repository-error] 11 (#$ . 31510)]) #@42 (fn MODE &optional CREATE FRAME VALUE) (defalias 'magit-mode-get-buffer #[1025 "\203\303\304!\210\305 \211\203\201\306\203%\307\310\311\312=?\205 !\"\202'\313 \314\306\211\211\203~\211A\262\242\262\262\211\262\203~rq\210 =\205f \232\205f\203d\n\205f\315 \232\202f\n?)\203q\306\262\203~\262\262T\262\202+\266\207\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-value magit--not-inside-repository-error] 13 (#$ . 33260)]) (make-obsolete 'magit-mode-get-buffer 'magit-get-mode-buffer "Magit 3.0.0") #@29 (fn MODE &optional VALUE) (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 (#$ . 33975)]) #@228 Generate buffer name for a MODE buffer in the current repository. The returned name is based on `magit-buffer-name-format' and takes `magit-uniquify-buffer-names' and VALUE, if non-nil, into account. (fn MODE &optional VALUE) (defalias 'magit-generate-buffer-name-default-function #[513 "\303!\304\305O\205\306\307<\203\202C\"\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 (#$ . 34648)]) #@663 Lock the current buffer to its value or unlock it. Locking a buffer to its value prevents it from being reused to display another value. The name of a locked buffer contains its value, which allows telling it apart from other locked buffers and the unlocked buffer. Not all Magit buffers can be locked to their values, for example it wouldn't make sense to lock a status buffer. There can only be a single unlocked buffer using a certain major-mode per repository. So when a buffer is being unlocked and another unlocked buffer already exists for that mode and repository, then the former buffer is instead deleted and the latter is displayed in its place. (defalias 'magit-toggle-buffer-lock #[0 "\203\303 !\211\203p\304\305\306#\210\307!\207\305\310\n !!\207\311 \211\203@\303 \"\211\2037p\304\305\306#\210\307!\207\306\310\n \"!\207\312\313!\207" [magit-buffer-locked-p major-mode magit-generate-buffer-name-function magit-get-mode-buffer switch-to-buffer nil t kill-buffer rename-buffer magit-buffer-value user-error "Buffer has no value it could be locked to"] 7 (#$ . 35443) nil]) #@240 Bury the current buffer. With a prefix argument, kill the buffer instead. With two prefix arguments, also kill all Magit buffers associated with this repository. This is done using `magit-bury-buffer-function'. (fn &optional KILL-BUFFER) (defalias 'magit-mode-bury-buffer #[256 "\301!\302Y\203$p\303 \211\203\"\211@\211=\204\304!\210A\266\202\202 \266!\207" [magit-bury-buffer-function prefix-numeric-value 16 magit-mode-get-buffers kill-buffer] 6 (#$ . 36557) "P"]) #@305 Quit the selected window and bury its buffer. This behaves similar to `quit-window', but when the window was originally created to display a Magit buffer and the current buffer is the last remaining Magit buffer that was ever displayed in the selected window, then delete that window. (fn KILL-BUFFER) (defalias 'magit-mode-quit-window #[257 "\300 \204c\301\302 \303\301\211\211\203[\211A\262\242\262\262\211\262\203[@\211p=?\205B\304!\205B\305\301\306\"?\206Br\211q\210\307\310\311\")\262\203N\301\262\203[\262\262T\262\202\f\266\211\262\203g\312!\207\313 \312!\210\314!\205v\315!\207" [one-window-p nil window-prev-buffers 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] 11 (#$ . 37044)]) (defvar magit-inhibit-refresh nil) #@244 Refresh some buffers belonging to the current repository. Refresh the current buffer if its major mode derives from `magit-mode', and refresh the corresponding status buffer. Run hooks `magit-pre-refresh-hook' and `magit-post-refresh-hook'. (defalias 'magit-refresh #[0 "?\205\250\306\216\307 \206\310\211BC\n\203\311\312!\210\313\314!\210\315\316!\203*\317 \210\2023\315\320!\2033\321 \210 \205A\315\322!?\205A\323\322!\211\203Mr\211q\210\317 \210)\210\324 \210\f\204c >\203c\313\325!\210\202|\f>\203q\313\326!\210\202|\f >\203|\313\327!\210\313\330!\210\n\205\244 @@\211 @A\\\311\331\332\333\307 \"!\334_\245\335_%\266\202)\262)\207" [magit-inhibit-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 tabulated-list-mode revert-buffer magit-status-mode magit-get-mode-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 (%.0f%%))" float-time time-subtract 1.0 100 magit-post-commit-hook-commands magit-post-stage-hook-commands magit-post-unstage-hook-commands] 11 (#$ . 37918) nil]) #@264 Refresh all buffers belonging to the current repository. Refresh all Magit buffers belonging to the current repository, and revert buffers that visit files located inside the current repository. Run hooks `magit-pre-refresh-hook' and `magit-post-refresh-hook'. (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 (#$ . 39326) nil]) (defvar magit-refresh-start-time nil nil) (make-variable-buffer-local 'magit-refresh-start-time) #@35 Refresh the current Magit buffer. (defalias 'magit-refresh-buffer #[0 "\306 \307\310\311\312 !\313\314O\"!\n\206\313\211BC\315!\205\274 \203'\316\317\320 \"\210p\321\322\323\"\324\325\326#\237\2069\327 C\"\330 \210\325\211\325\211)*\331 \210\326+\332 \210\212\333,\"\210*\211\211\203\237\211@\211\242\243\334!=\203\210\335!r\322\336\"\216\337@\340\"\210\333\341\"\210*\266\202\230rq\210\325-\333\341\"\210*\266A\266\202\202Y\210\342\343!\210\344 \210\345\325!\266 \205\274\316\346\320 \347\350\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 cl-mapcan make-closure #[257 "\301!r\302\303\"\216\304@\305\"\210r\300q\210\306 \211\205 \307 BBC\262+\207" [V0 internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord magit-current-section magit-refresh-get-relative-position] 6 "\n\n(fn WINDOW)"] get-buffer-window-list nil t selected-window deactivate-mark magit-process-unset-mode-line-error-status erase-buffer apply window-buffer internal--before-with-selected-window #[0 "\301\300!\207" [V0 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 magit-section-movement-hook] 14 (#$ . 39993)]) (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]) (defvar disable-magit-save-buffers nil) (defalias 'magit-pre-command-hook #[0 "\301\211\207" [disable-magit-save-buffers nil] 2]) (add-hook 'pre-command-hook 'magit-pre-command-hook) (defvar magit-after-save-refresh-buffers nil) (defalias 'magit-after-save-refresh-buffers #[0 "\211\203\211@\301!\203r\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]) #@505 Refresh the status buffer of the current repository. This function is intended to be added to `after-save-hook'. If the status buffer does not exist or the file being visited in the current buffer isn't inside the working tree of a repository, then do nothing. Note that refreshing a Magit buffer is done by re-creating its contents from scratch, which can be slow in large repositories. If you are not satisfied with Magit's performance, then you should obviously not add this function to that hook. (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-get-mode-buffer magit-status-mode nil add-to-list magit-after-save-refresh-buffers add-hook post-command-hook] 4 (#$ . 42776)]) #@219 Maybe save file-visiting buffers belonging to the current repository. Do so if `magit-save-repository-buffers' is non-nil. You should not remove this from any hooks, instead set that variable to nil if you so desire. (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 (#$ . 43635)]) (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) (defvar magit-inhibit-refresh-save nil nil) (make-variable-buffer-local 'magit-inhibit-refresh-save) #@338 Save file-visiting buffers belonging to the current repository. After any buffer where `buffer-save-without-query' is non-nil is saved without asking, the user is asked about each modified buffer which visits a file in the current repository. Optional argument (the prefix) non-nil means save all with no questions. (fn &optional ARG) (defalias 'magit-save-repository-buffers #[256 "\301\302!\211\205\303!\304\305BB\306\307\310#\")\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-closure #[0 "\n?\205' \205'\304 !\301\232\205'\305\306 !!\205'\307\300\310 !\"\205'\311\312!\300\232\207" [V0 V1 magit-inhibit-refresh-save buffer-file-name file-remote-p file-exists-p file-name-directory string-prefix-p file-truename magit-rev-parse-safe "--show-toplevel"] 4]] 9 (#$ . 44421) "P"]) (defvar magit-inhibit-save-previous-winconf nil) (defvar magit-previous-window-configuration nil nil) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local magit-previous-window-configuration put permanent-local t] 4) #@135 Save the current window configuration. Later, when the buffer is buried, it may be restored by `magit-restore-window-configuration'. (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 (#$ . 45820)]) #@104 Bury or kill the current buffer and restore previous window configuration. (fn &optional KILL-BUFFER) (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 (#$ . 46239)]) #@44 Move backward in current buffer's history. (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 (#$ . 46664) nil]) #@43 Move forward in current buffer's history. (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 (#$ . 46887) nil]) #@22 Insert xref buttons. (defalias 'magit-insert-xref-buttons #[0 "?\205% \204 \n\205% \203\305 \306\"\210\n\205% \203!\307c\210\305\f\310\"\207" [magit-buffer-locked-p help-xref-stack help-xref-forward-stack help-back-label help-forward-label magit-xref-insert-button magit-xref-backward " " magit-xref-forward] 3 (#$ . 47115)]) #@19 (fn LABEL TYPE) (defalias 'magit-xref-insert-button #[514 "\306\307!\203\n\307\202\307\236A\206\310\311\306\307!\203!\312\307\"@\206\"\307\313\314\315 \316 &\317\320\321\322\"\211\203<\211\323=\202n\n\205G\324\325!\n\"\211\203R\326\320\"\202l\327 \"\211\205j\330!\203g\211!\262\211\323=\262\262\262#\210\211\n\206\200 ?\205\200\f\33126\332\333\334pC%\210\335\336!\210\337!\210\340\326\341\"\342\"\210\317\343\315 #\344\345\"\346\347\350\326\333\"\"!\346\347\351\326\333\"\"!\203\307J\206\332\352!\203\322J\206\332\352!\205\332\211J\212\326\341\"b\210`W\203\353`\310\"\206\360\354`\310\"\204\n\355`\310\n$\210\203\n\355`\345$\210\211b\266\202\342)\266\211\f=\203$\3562\357!)\2025\317\326\360\"\361\326\211\360\"\361\"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 class-p button magit-section :type rassq :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] 14 (#$ . 47455)]) (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) #@55 List of modes for which to insert navigation buttons. (defvar magit-xref-modes '(magit-log-mode magit-reflog-mode magit-diff-mode magit-revision-mode) (#$ . 49448)) #@16 (fn FN ARGS) (defalias 'magit-xref-setup #[514 " >\205+\n\203`\nB B\306\307\310!\203$\311 \233\211\203#\211\306\241\210\210\312 F\211\207" [major-mode magit-xref-modes help-xref-stack-item help-xref-stack help-xref-forward-stack default-directory nil called-interactively-p interactive 10 magit-xref-restore] 6 (#$ . 49619)]) #@20 (fn FN DIR ARGS) (defalias 'magit-xref-restore #[771 " \302#\210\303 \207" [default-directory major-mode nil magit-refresh-buffer] 7 (#$ . 49964)]) #@68 Alist mapping `magit-toplevel' paths to alists of key/value pairs. (defvar magit-repository-local-cache nil (#$ . 50124)) #@44 Return the key for the current repository. (defalias 'magit-repository-local-repository #[0 "\301\300!\203\n\206\f\302 \207" [magit--default-directory boundp magit-toplevel] 2 (#$ . 50252)]) #@257 Set the repository-local VALUE for KEY. Unless specified, REPOSITORY is the current buffer's repository. If REPOSITORY is nil (meaning there is no current repository), then the value is not cached, and we return nil. (fn KEY VALUE &optional REPOSITORY) (defalias 'magit-repository-local-set #[770 "\211\206\301 \302\"\2054\211\203*\302A\"\211\203\211\241\207B\211AB\241\207BCBB\211\207" [magit-repository-local-cache magit-repository-local-repository assoc] 11 (#$ . 50453)]) #@222 Non-nil when a repository-local value exists for KEY. Return a (KEY . VALUE) cons cell. The KEY is matched using `equal'. Unless specified, REPOSITORY is the current buffer's repository. (fn KEY &optional REPOSITORY) (defalias 'magit-repository-local-exists-p #[513 "\301\206\302 \"\211\205\301A\"\207" [magit-repository-local-cache assoc magit-repository-local-repository] 6 (#$ . 50961)]) #@228 Return the repository-local value for KEY. Return DEFAULT if no value for KEY exists. The KEY is matched using `equal'. Unless specified, REPOSITORY is the current buffer's repository. (fn KEY &optional DEFAULT REPOSITORY) (defalias 'magit-repository-local-get #[769 "\300\"\211\203 \211A\207\207" [magit-repository-local-exists-p] 6 (#$ . 51371)]) #@141 Delete the repository-local value for KEY. Unless specified, REPOSITORY is the current buffer's repository. (fn KEY &optional REPOSITORY) (defalias 'magit-repository-local-delete #[513 "\301\206\302 \"\211\205\211\211\303A\304\305\306\307&\241\262\207" [magit-repository-local-cache assoc magit-repository-local-repository cl-delete :key car :test equal] 12 (#$ . 51735)]) #@23 (fn KEY &rest BODY) (defalias 'magit--with-repository-local-cache '(macro . #[385 "\300 \301DC\302\303\304DDC\305\301\306\307 !DC\310\311BB\312BBBFE\207" [cl-gensym let if-let kv magit-repository-local-exists-p (cdr kv) v macroexp-progn magit-repository-local-set (v) (v)] 13 (#$ . 52126)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put magit--with-repository-local-cache lisp-indent-function 1 put edebug-form-spec (form body)] 5) (defalias 'magit-preserve-section-visibility-cache #[0 "\302\303\304\"\205 \305\301B \"\207" [major-mode magit-section-visibility-cache derived-mode-p magit-status-mode magit-refs-mode magit-repository-local-set] 3]) #@13 (fn MODE) (defalias 'magit-restore-section-visibility-cache #[257 "\301\300B!\211\207" [magit-section-visibility-cache magit-repository-local-get] 4 (#$ . 52812)]) #@196 Zap caches for the current repository. Remove the repository's entry from `magit-repository-local-cache' and set `magit-section-visibility-cache' to nil in all of the repository's Magit buffers. (defalias 'magit-zap-caches #[0 "\304 \211\203\211\305 \306\307\310\311&)\210\202\312 \266\313 \211\2031\211@r\211q\210\314)A\266\202\202\210\315\211\207" [default-directory magit-repository-local-cache magit-section-visibility-cache magit--libgit-available-p magit-toplevel cl-delete :key car :test equal magit--not-inside-repository-error magit-mode-get-buffers nil unknown] 8 (#$ . 52987) nil]) #@177 Toggle whether Magit refreshes buffers verbosely. Enabling this helps figuring out which sections are bottlenecks. The additional output can be found in the *Messages* buffer. (defalias 'magit-toggle-verbose-refresh #[0 "?\301\302\203 \303\202\304\"\207" [magit-refresh-verbose message "%s verbose refreshing" "Enabled" "Disabled"] 3 (#$ . 53602) nil]) #@13 (fn HOOK) (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 (#$ . 53967)]) (provide 'magit-mode)