;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; 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\"&\210\335\336\337\340\314\341%\210\335\342\343\344\314\341%\210\335\345\346\347\314\341%\210\335\350\351\352\314\341%\210\335\353\354\355\314\341%\210\335\356\357\360\314\341%\210\335\361\362\363\314\341%\210\335\364\365\366\314\341%\210\335\367\370\371\314\341%\207" [magit-log-margin--custom-type require magit-core magit-log custom-declare-variable magit-reflog-limit funcall function #[0 "\300\207" [256] 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] "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 custom-declare-face magit-reflog-commit ((t :foreground "green")) "Face for commit commands in reflogs." magit-faces magit-reflog-amend ((t :foreground "magenta")) "Face for amend commands in reflogs." magit-reflog-merge ((t :foreground "green")) "Face for merge, checkout and branch commands in reflogs." magit-reflog-checkout ((t :foreground "blue")) "Face for checkout commands in reflogs." magit-reflog-reset ((t :foreground "red")) "Face for reset commands in reflogs." magit-reflog-rebase ((t :foreground "magenta")) "Face for rebase commands in reflogs." magit-reflog-cherry-pick ((t :foreground "green")) "Face for cherry-pick commands in reflogs." magit-reflog-remote ((t :foreground "cyan")) "Face for pull and clone commands in reflogs." magit-reflog-other ((t :foreground "cyan")) "Face for other commands in reflogs."] 20) #@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 (#$ . 2872) 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 (#$ . 3125) (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 (#$ . 3363) nil]) #@33 Keymap for `magit-reflog-mode'. (defvar magit-reflog-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\207" [magit-log-mode-map make-sparse-keymap set-keymap-parent define-key "" undefined "L" magit-margin-settings] 5) (#$ . 3500)) (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\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-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 (lambda (def-tmp-var) (defvar magit-reflog-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `magit-reflog-mode'." (lambda (def-tmp-var) (defvar magit-reflog-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "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!\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 hack-dir-local-variables-non-file-buffer run-mode-hooks magit-reflog-mode-hook local-abbrev-table] 5 (#$ . 5063) nil]) #@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 (#$ . 6447)]) (defalias 'magit-reflog-refresh-buffer #[0 "\306\307P!\210\310\311!\203\311\202\311 \236A\206\312\313\310\311!\203'\314\311 \"@\206(\311\315\316\317\320 \321\n&\322\323\324\325\"\211\203B\211\326=\202t \205M\327\330! \"\211\203X\331\323\"\202r\332\f\"\211\205p\333!\203m\211!\262\211\326=\262\262\262#\210\211 \206\206\n?\205\206 ;\3342D\335\336\337\340\"\341\342\343\344<\345&\210\346\347!\210\350!\210\351\331\352\"\353\"\210\322\354\320 #\355\356\"\357\360\361\331\362\"\"!\357\360\363\331\362\"\"!\203\325J\206\350\364!\203\340J\206\350\364!\205\350\211J\212\331\352\"b\210`W\203\365`\312\"\206\376\366`\312\"\204\367`\312\n$\210\203\367`\356$\210\211b\266\202\360)\266\211 =\2032\316=\370!)\202C\322\331\371\"\372\331\211\371\"\372\"C\244#0\210+\207" [magit-buffer-refname magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-set-header-line-format "Reflog for " class-p reflogbuf magit-section :type rassq :value nil :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 magit-git-wash apply-partially magit-log-wash-log reflog "reflog" "show" "--format=%h%x00%aN%x00%gd%x00%gs" "--date=raw" "--" 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" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children magit-insert-section--current magit-buffer-log-args magit-section-cache-visibility] 12]) (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) ("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\202C\310\311\312\313E\"\314#\315\316\317\320 \"A\206Q\321\"\"\207" [magit-reflog-subject-re magit-reflog-labels string-match match-string 1 2 3 "commit" mapconcat identity delq nil " " format "%-16s " magit--propertize-face assoc magit-reflog-other] 14 (#$ . 9164)]) (provide 'magit-reflog)