;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\301\302!\210\301\303!\210\304\305\306\307\310DD\311\312\313\314\315\316\317& \210\304\320\306\307\321DD\322\312\323\314\303\314\324\316\325\326\327\330\331\332\333\334\"&\207" [magit-log-margin--custom-type require magit-core magit-log custom-declare-variable magit-reflog-limit funcall function #[0 "\300\207" [256] 1 #1=""] "Maximal number of entries initially shown in reflog buffers.\nThe limit in the current buffer can be changed using \"+\"\nand \"-\"." :package-version (magit . "3.0.0") :group magit-commands :type number magit-reflog-margin #[0 "@A@\301\302\3038\257\207" [magit-log-margin magit-log-margin-width nil 4] 6 #1#] "Format of the margin in `magit-reflog-mode' buffers.\n\nThe value has the form (INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH).\n\nIf INIT is non-nil, then the margin is shown initially.\nSTYLE controls how to format the author or committer date.\n It can be one of `age' (to show the age of the commit),\n `age-abbreviated' (to abbreviate the time unit to a character),\n or a string (suitable for `format-time-string') to show the\n actual date. Option `magit-log-margin-show-committer-date'\n controls which date is being displayed.\nWIDTH controls the width of the margin. This exists for forward\n compatibility and currently the value should not be changed.\nAUTHOR controls whether the name of the author is also shown by\n default.\nAUTHOR-WIDTH has to be an integer. When the name of the author\n is shown, then this specifies how much space is used to do so." (magit . "2.9.0") magit-margin :initialize magit-custom-initialize-reset :set-after (magit-log-margin) :set apply-partially magit-margin-set-variable magit-reflog-mode] 20) (custom-declare-face 'magit-reflog-commit '((t :foreground "green")) "Face for commit commands in reflogs." :group 'magit-faces) (custom-declare-face 'magit-reflog-amend '((t :foreground "magenta")) "Face for amend commands in reflogs." :group 'magit-faces) (custom-declare-face 'magit-reflog-merge '((t :foreground "green")) "Face for merge, checkout and branch commands in reflogs." :group 'magit-faces) (custom-declare-face 'magit-reflog-checkout '((t :foreground "blue")) "Face for checkout commands in reflogs." :group 'magit-faces) (custom-declare-face 'magit-reflog-reset '((t :foreground "red")) "Face for reset commands in reflogs." :group 'magit-faces) (custom-declare-face 'magit-reflog-rebase '((t :foreground "magenta")) "Face for rebase commands in reflogs." :group 'magit-faces) (custom-declare-face 'magit-reflog-cherry-pick '((t :foreground "green")) "Face for cherry-pick commands in reflogs." :group 'magit-faces) (custom-declare-face 'magit-reflog-remote '((t :foreground "cyan")) "Face for pull and clone commands in reflogs." :group 'magit-faces) (custom-declare-face 'magit-reflog-other '((t :foreground "cyan")) "Face for other commands in reflogs." :group 'magit-faces)#@105 Display the reflog of the current branch. If `HEAD' is detached, then show the reflog for that instead. (defalias 'magit-reflog-current #[0 "\300\301 \206\302!\207" [magit-reflog-setup-buffer magit-get-current-branch "HEAD"] 2 (#$ . 2981) nil])#@58 Display the reflog of a branch or another ref. (fn REF) (defalias 'magit-reflog-other #[257 "\300!\207" [magit-reflog-setup-buffer] 3 (#$ . 3233) (byte-code "\300\301!C\207" [magit-read-local-branch-or-ref "Show reflog for"] 2)])#@28 Display the `HEAD' reflog. (defalias 'magit-reflog-head #[0 "\300\301!\207" [magit-reflog-setup-buffer "HEAD"] 2 (#$ . 3470) nil])#@33 Keymap for `magit-reflog-mode'. (defvar magit-reflog-mode-map (define-keymap :parent magit-log-mode-map "C-c C-n" 'undefined "L" 'magit-margin-settings) (#$ . 3606)) (defvar magit-reflog-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-reflog-mode-hook variable-documentation put "Hook run after entering Magit Reflog 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-reflog-mode-map definition-name magit-reflog-mode] 4) (defvar magit-reflog-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\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\303\311\320\321#\210\303\311\322\323#\207" [magit-reflog-mode-abbrev-table magit-reflog-mode-map variable-documentation put purecopy "Keymap for `magit-reflog-mode'." boundp magit-reflog-mode-syntax-table definition-name magit-reflog-mode defvar-1 nil make-syntax-table "Syntax table for `magit-reflog-mode'." define-abbrev-table "Abbrev table for `magit-reflog-mode'." derived-mode-parent magit-mode custom-mode-group magit-log] 5)#@570 Mode for looking at Git reflog. This mode is documented in info node `(magit)Reflog'. \Type \[magit-refresh] to refresh the current buffer. Type \[magit-visit-thing] or \[magit-diff-show-or-scroll-up] to visit the commit at point. Type \[magit-cherry-pick] to apply the commit at point. Type \[magit-reset] to reset `HEAD' to the commit at point. \{magit-reflog-mode-map} In addition to any hooks its parent mode `magit-mode' might have run, this mode runs the hook `magit-reflog-mode-hook', as the final or penultimate step during initialization. (defalias 'magit-reflog-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 \325C#\210\327 !\210\330\f!\210 \331 \210\332)\333\334!\207" [delay-mode-hooks major-mode mode-name magit-reflog-mode-map magit-reflog-mode-syntax-table magit-reflog-mode-abbrev-table make-local-variable t magit-mode magit-reflog-mode "Magit Reflog" 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 magit-hack-dir-local-variables commit run-mode-hooks magit-reflog-mode-hook local-abbrev-table magit--imenu-item-types] 5 (#$ . 4994)])#@12 (fn REF) (defalias 'magit-reflog-setup-buffer #[257 "\301\302!\210\303\304\305\306D\307\310\311\"CDD#\207" [magit-reflog-limit require magit magit-setup-buffer-internal magit-reflog-mode nil magit-buffer-refname magit-buffer-log-args format "-n%s"] 9 (#$ . 6400)]) (defalias 'magit-reflog-refresh-buffer #[0 "\306\307P!\210\310\311\312\211#\211\n\206 ?\205\f\211\31323\314\315\316\317\"\320\321\322\323 \324&\210\325!0+\210\207" [magit-buffer-refname magit-insert-section--current magit-insert-section--oldroot magit-insert-section--parent magit-root-section magit-buffer-log-args magit-set-header-line-format "Reflog for " magit-insert-section--create reflogbuf nil cancel-section magit-git-wash apply-partially magit-log-wash-log reflog "reflog" "show" "--format=%h%x00%aN%x00%gd%x00%gs" "--date=raw" "--" magit-insert-section--finish] 10]) (cl-generic-define-method 'magit-buffer-value nil '(&context (major-mode magit-reflog-mode)) nil #[0 "\207" [magit-buffer-refname] 1]) (defvar magit-reflog-labels '(("commit" . magit-reflog-commit) ("amend" . magit-reflog-amend) ("merge" . magit-reflog-merge) ("checkout" . magit-reflog-checkout) ("branch" . magit-reflog-checkout) ("reset" . magit-reflog-reset) ("rebase" . magit-reflog-rebase) ("rewritten" . magit-reflog-rebase) ("cherry-pick" . magit-reflog-cherry-pick) ("initial" . magit-reflog-commit) ("pull" . magit-reflog-remote) ("clone" . magit-reflog-remote) ("autosave" . magit-reflog-commit) ("restart" . magit-reflog-reset)))#@16 (fn SUBJECT) (defalias 'magit-reflog-format-subject #[257 "\302\"\211\205\f\303\304\"\205\303\305\"\205\303\306\"\307\230\203*\211\206+\202+\307\230\2035\211\202D\310\311E\"\312\313\314#\266\202\315\316\317\320 \"A\206R\321\"\"\207" [magit-reflog-subject-re magit-reflog-labels string-match match-string-no-properties 1 2 3 "commit" delq nil " " mapconcat identity format "%-16s " magit--propertize-face assoc magit-reflog-other] 14 (#$ . 7909)]) (provide 'magit-reflog)