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 "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\307\310\311\312\313\314\315\316&\210\317\320\321\322\323DD\324\315\310\325\326&\210\317\327\321\322\330DD\331\332\333\315\334\315\310\325\335&\210\317\336\321\322\337DD\340\332\341\315\310\325\342\343\344&\210\317\345\321\322\346DD\347\332\350\315\310\325\351& \210\317\352\321\322\353DD\354\315\310\325\355&\210\317\356\321\322\357DD\360\332\361\315\310\315\362\325\363\364\365\366\367\370\"&\210\317\371\321\322\372DD\373\332\374\315\310\325\355& \210\317\375\321\322\376DD\377\332\201@ \315\310\325\355& \210\317\201A \321\322\201B DD\201C \332\201D \315\310\325\201E & \210\317\201F \321\322\201G DD\201H \332\201I \315\310\325\201J & \210\201K \201L \201M \201N \315\201O %\210\201K \201P \201Q \201R \315\201O %\210\201K \201S \201T \201U \315\201O %\210\201K \201V \201W \201X \315\201O %\210\317\201Y \321\322\201Z DD\201[ \332\201\\ \315\201] \315\310\325\355&\210\317\201^ \321\322\201_ DD\201` \332\201a \315\310\325\201b & \210\317\201c \321\322\201d DD\201e \332\201f \315\310\325\201g & \210\317\201h \321\322\201i DD\201j \332\201k \315\310\315\362\325\363\364\201l \201m \365\366\367\201n \"&\210\317\201o \321\322\201p DD\201q \332\201r \315\310\325\326& \210\317\201s \321\322\201t DD\201u \332\201v \315\310\315\362\325\363\364\201l \201w \365\366\367\201x \"&\210\317\201y \321\322\201z DD\201{ \332\201| \315\334\325\201} & \210\317\201~ \321\322\201 DD\201\200 \332\201\201 \315\310\315\362\325\363\364\201l \201\202 \365\366\367\201\203 \"&\210\201K \201\204 \201\205 \201\206 \315\201O %\210\201K \201\207 \201\210 \201\211 \315\201O %\210\201K \201\212 \201\213 \201\214 \315\201O %\210\201K \201\215 \201\216 \201\217 \315\201O %\210\201K \201\220 \201\221 \201\222 \315\201O %\210\201K \201\223 \201\224 \201\225 \315\201O %\210\201K \201\226 \201\227 \201\230 \315\201O %\210\201K \201\231 \201\232 \201\233 \315\201O %\210\201K \201\234 \201\235 \201\236 \315\201O %\210\317\201\237 \321\322\201\240 DD\201\241 \332\201\242 \315\201\243 \325\201\244 & \210\317\201\245 \321\322\201\246 DD\201\247 \332\201\250 \315\334\315\310\315\201\243 \325\201\251 &
\207" [magit-log-margin--custom-type require magit-core magit-diff ansi-color crm which-func custom-declare-group magit-log nil "Inspect and manipulate Git history." :link (info-link "(magit)Logging") :group magit-modes custom-declare-variable magit-log-mode-hook funcall function #[0 "\300\207" [nil] 1] "Hook run after entering Magit-Log mode." :type hook magit-log-arguments #[0 "\300\207" [("-n256" "--graph" "--decorate")] 1] "The log arguments used in `magit-log-mode' buffers." :package-version (magit . "2.3.0") magit-git-arguments (repeat (string :tag "Argument")) magit-log-remove-graph-args #[0 "\300\207" [("--follow" "--grep" "-G" "-S" "-L")] 1] "The log arguments that cause the `--graph' argument to be dropped." (magit . "2.3.0") (repeat (string :tag "Argument")) :options ("--follow" "--grep" "-G" "-S" "-L") magit-log-revision-headers-format #[0 "\300\207" [#1="%+b\nAuthor: %aN <%aE>\nCommitter: %cN <%cE>"] 1 #1#] "Additional format string used with the `++header' argument." (magit . "2.3.0") string magit-log-auto-more #[0 "\300\207" [nil] 1] "Insert more log entries automatically when moving past the last entry.\nOnly considered when moving past the last entry with\n`magit-goto-*-section' commands." boolean magit-log-margin #[0 "\300\207" [(t age magit-log-margin-width t 18)] 1] "Format of the margin in `magit-log-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 committer date. It can be one\n of `age' (to show the age of the commit), `age-abbreviated' (to\n abbreviate the time unit to a character), or a string (suitable\n for `format-time-string') to show the actual date.\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 apply-partially magit-margin-set-variable magit-log-mode magit-log-show-refname-after-summary #[0 "\300\207" [nil] 1] "Whether to show refnames after commit summaries.\nThis is useful if you use really long branch names." (magit . "2.2.0") magit-log-highlight-keywords #[0 "\300\207" [t] 1] "Whether to highlight bracketed keywords in commit summaries." (magit . "2.12.0") magit-log-header-line-function #[0 "\300\207" [magit-log-header-line-sentence] 1] "Function used to generate text shown in header line of log buffers." (magit . "2.12.0") (choice (function-item magit-log-header-line-arguments) (function-item magit-log-header-line-sentence) function) magit-log-trace-definition-function #[0 "\300\207" [which-function] 1] "Function used to determine the function at point.\nThis is used by the command `magit-log-trace-definition'." (magit . "2.90.0") (choice (function-item which-function) function) custom-declare-face magit-log-graph ((((class color) (background light)) :foreground "grey30") (((class color) (background dark)) :foreground "grey80")) "Face for the graph part of the log output." magit-faces magit-log-author ((((class color) (background light)) :foreground "firebrick") (((class color) (background dark)) :foreground "tomato")) "Face for the author part of the log output." magit-log-date ((((class color) (background light)) :foreground "grey30") (((class color) (background dark)) :foreground "grey80")) "Face for the date part of the log output." magit-header-line-log-select ((t :inherit bold)) "Face for the `header-line' in `magit-log-select-mode'." magit-log-buffer-file-locked #[0 "\300\207" [t] 1] "Whether `magit-log-buffer-file' uses a dedicated buffer." (magit . "2.7.0") magit-commands magit-log-select-arguments #[0 "\300\207" [("-n256" "--graph" "--decorate")] 1] "The log arguments used in `magit-log-select-mode' buffers." (magit . "2.3.0") (repeat (string :tag "Argument")) magit-log-select-show-usage #[0 "\300\207" [both] 1] "Whether to show usage information when selecting a commit from a log.\nThe message can be shown in the `echo-area' or the `header-line', or in\n`both' places. If the value isn't one of these symbols, then it should\nbe nil, in which case no usage information is shown." (magit . "2.1.0") (choice (const :tag "in echo-area" echo-area) (const :tag "in header-line" header-line) (const :tag "in both places" both) (const :tag "nowhere")) magit-log-select-margin #[0 "@A@\301\302\3038\257\207" [magit-log-margin magit-log-margin-width t 4] 6] "Format of the margin in `magit-log-select-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 committer date. It can be one\n of `age' (to show the age of the commit), `age-abbreviated' (to\n abbreviate the time unit to a character), or a string (suitable\n for `format-time-string') to show the actual date.\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") :set-after (magit-log-margin) magit-log-select-mode magit-cherry-sections-hook #[0 "\300\207" [(magit-insert-cherry-headers magit-insert-cherry-commits)] 1] "Hook run to insert sections into the cherry buffer." (magit . "2.1.0") magit-cherry-margin #[0 "@A@\301\302\3038\257\207" [magit-log-margin magit-log-margin-width t 4] 6] "Format of the margin in `magit-cherry-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 committer date. It can be one\n of `age' (to show the age of the commit), `age-abbreviated' (to\n abbreviate the time unit to a character), or a string (suitable\n for `format-time-string') to show the actual date.\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-log-margin) magit-cherry-mode magit-reflog-arguments #[0 "\300\207" [("-n256")] 1] "The log arguments used in `magit-reflog-mode' buffers." (magit . "2.3.0") (repeat (string :tag "Argument")) 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 committer date. It can be one\n of `age' (to show the age of the commit), `age-abbreviated' (to\n abbreviate the time unit to a character), or a string (suitable\n for `format-time-string') to show the actual date.\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-log-margin) magit-reflog-mode magit-reflog-commit ((t :foreground "green")) "Face for commit commands in reflogs." 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." magit-log-section-commit-count #[0 "\300\207" [10] 1] "How many recent commits to show in certain log sections.\nHow many recent commits `magit-insert-recent-commits' and\n`magit-insert-unpulled-from-upstream-or-recent' (provided\nthe upstream isn't ahead of the current branch) show." (magit . "2.1.0") magit-status number magit-log-section-arguments #[0 "\300\207" [("-n256" "--decorate")] 1] "The log arguments used in buffers that show other things besides logs." (magit . "2.4.0") (repeat (string :tag "Argument"))] 20) |
|
16 |
(defvar magit-log-popup '(:variable magit-log-arguments :man-page "git-log" :switches ((103 "Show graph" "--graph") (99 "Show graph in color" "--color") (100 "Show refnames" "--decorate") (83 "Show signatures" "--show-signature") (117 "Show diffs" "--patch") (115 "Show diffstats" "--stat") (104 "Show header" "++header" magit-log++header) (114 "Show in reverse order" "--reverse") (68 "Simplify by decoration" "--simplify-by-decoration") (102 "Follow renames when showing single-file log" "--follow")) :options ((110 "Limit number of commits" "-n") (102 "Limit to files" "-- " magit-read-files) (97 "Limit to author" "--author=") (111 "Order commits by" "++order=" magit-log-select-order) (103 "Search messages" "--grep=") (71 "Search changes" "-G") (83 "Search occurrences" "-S") (76 "Trace line evolution" "-L" magit-read-file-trace)) :actions ((108 "Log current" magit-log-current) (76 "Log local branches" magit-log-branches) (114 "Reflog current" magit-reflog-current) (111 "Log other" magit-log-other) (98 "Log all branches" magit-log-all-branches) (79 "Reflog other" magit-reflog-other) (104 "Log HEAD" magit-log-head) (97 "Log all references" magit-log-all) (72 "Reflog HEAD" magit-reflog-head)) :default-action magit-log-current :max-action-columns 3)) |
|
17 |
(defvar magit-log-mode-refresh-popup '(:variable magit-log-arguments :man-page "git-log" :switches ((103 "Show graph" "--graph") (99 "Show graph in color" "--color") (100 "Show refnames" "--decorate") (83 "Show signatures" "--show-signature") (117 "Show diffs" "--patch") (115 "Show diffstats" "--stat") (114 "Show in reverse order" "--reverse") (68 "Simplify by decoration" "--simplify-by-decoration") (102 "Follow renames when showing single-file log" "--follow")) :options ((110 "Limit number of commits" "-n") (102 "Limit to files" "-- " magit-read-files) (97 "Limit to author" "--author=") (111 "Order commits by" "++order=" magit-log-select-order) (103 "Search messages" "--grep=") (71 "Search changes" "-G") (83 "Search occurrences" "-S") (76 "Trace line evolution" "-L" magit-read-file-trace)) :actions ((103 "Refresh" magit-log-refresh) (76 "Toggle margin" magit-toggle-margin) (115 "Set defaults" magit-log-set-default-arguments) nil (119 "Save defaults" magit-log-save-default-arguments)) :max-action-columns 2)) |
|
18 |
(defvar magit-reflog-mode-refresh-popup '(:variable magit-reflog-arguments :man-page "git-reflog" :options ((110 "Limit number of commits" "-n")))) |
|
19 |
(defvar magit-log-refresh-popup '(:variable magit-log-arguments :man-page "git-log" :switches ((103 "Show graph" "--graph") (99 "Show graph in color" "--color") (100 "Show refnames" "--decorate")) :options ((110 "Limit number of commits" "-n") (111 "Order commits by" "++order=" magit-log-select-order)) :actions ("Refresh" (103 "buffer" magit-log-refresh) (115 "buffer and set defaults" magit-log-set-default-arguments) (119 "buffer and save defaults" magit-log-save-default-arguments) "Margin" (76 "toggle visibility" magit-toggle-margin) (108 "cycle style" magit-cycle-margin-style) (100 "toggle details" magit-toggle-margin-details)) :max-action-columns 1)) |
|
20 |
(byte-code "\300\301!\210\300\302!\210\300\303!\207" [magit-define-popup-keys-deferred magit-log-popup magit-log-mode-refresh-popup magit-log-refresh-popup] 2) |
|
21 |
#@154 Set one `--<value>-order' option in Git log. |
|
22 |
This encompasses the options `--author-date-order', |
|
23 |
`--date-order', and `--topo-order'. |
|
24 |
|
|
25 |
(fn &rest IGNORED) |
|
26 |
(defalias 'magit-log-select-order #[128 "\300\301\302\"\211\303\267\202 \304\202 \305\202 \306\202 \307\207" [read-char-choice "Order commits by [t]opography, [a]uthor date, [c]ommitter date, or [C-g] to abort " (116 97 99) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (116 10 97 14 99 18)) "topo" "author-date" "date" nil] 4 (#$ . 14884)]) |
|
27 |
#@126 Insert a header after each revision summary in Git log. |
|
28 |
Customize `magit-log-revision-headers-format' to change this |
|
29 |
header. |
|
30 |
(defalias 'magit-log++header #[0 "\300\207" [nil] 1 (#$ . 15429)]) |
|
31 |
(defalias 'magit-log-get-buffer-args #[0 "\203 \302\303!\203 A@\304 8D\207\305=\2030 \306\303!\211\205+ r\211q\210 A@\304 8)D\262\2065 \307\310!\311D\207" [magit-use-sticky-arguments magit-refresh-args derived-mode-p magit-log-mode 2 t magit-mode-get-buffer default-value magit-log-arguments nil] 4]) |
|
32 |
#@26 |
|
33 |
|
|
34 |
(fn &optional REFRESH) |
|
35 |
(defalias 'magit-log-arguments #[256 "\303>\203\n \304 !\207\211\203 \305\306!\204 \n\307D\207\310 \207" [magit-current-popup magit-current-popup-args magit-log-section-arguments (magit-log-popup magit-log-refresh-popup) magit-popup-export-file-args derived-mode-p magit-log-mode nil magit-log-get-buffer-args] 3 (#$ . 15934)]) |
|
36 |
#@43 Popup console for log commands. |
|
37 |
|
|
38 |
(fn ARG) |
|
39 |
(defalias 'magit-log-popup #[257 "\304=\203\n \202 \n\305\306\307 \"\310\311\312#*\207" [major-mode magit-log-mode-refresh-popup magit-log-refresh-popup magit-log-arguments magit-log-mode apply magit-popup-import-file-args magit-log-get-buffer-args magit-invoke-popup magit-log-popup nil] 5 (#$ . 16296) "P"]) |
|
40 |
#@174 Popup console for log commands. |
|
41 |
|
|
42 |
This is a variant of `magit-log-popup' which shows the same popup |
|
43 |
but which limits the log to the file being visited in the current |
|
44 |
buffer. |
|
45 |
(defalias 'magit-log-buffer-file-popup #[0 "\302 \211\203+ \303\304\305!\211\203 r\211q\210\3068)\202 \307\301!\262C\"\310\311\312\211#)\202. \313\314!\207" [magit-refresh-args magit-log-arguments magit-file-relative-name magit-popup-import-file-args magit-mode-get-buffer magit-log-mode 2 default-value magit-invoke-popup magit-log-popup nil user-error "Buffer isn't visiting a file"] 5 (#$ . 16661) nil]) |
|
46 |
#@75 Popup console for changing log arguments in the current buffer. |
|
47 |
|
|
48 |
(fn ARG) |
|
49 |
(defalias 'magit-log-refresh-popup #[257 "\305 \210\306\307!\203
\202/ \306\310!\203. \311!\312\313\314 \313\"#\210\312\315\314 \315\"#\210\211\262\202/ \306\307!\203; \nA@\202M \306\310!\203L \316\nA@\317\n8\"\202M \320\300\321#*\207" [magit-log-refresh-popup magit-log-popup magit-refresh-args magit-log-section-arguments magit-log-arguments magit-log-refresh-assert derived-mode-p magit-log-select-mode magit-log-mode copy-sequence plist-put :switches plist-get :options magit-popup-import-file-args 2 magit-invoke-popup nil] 8 (#$ . 17253) "P"]) |
|
50 |
#@22 |
|
51 |
|
|
52 |
(fn &rest IGNORED) |
|
53 |
(defalias 'magit-read-file-trace #[128 "\300\301\302\"\303\304!\211\305\306\"\206 \307Q\207" [magit-read-file-from-rev "HEAD" "File" magit-read-string "Trace" match-string 2 ":"] 7 (#$ . 17894)]) |
|
54 |
#@70 Set the local log arguments for the current buffer. |
|
55 |
|
|
56 |
(fn ARGS FILES) |
|
57 |
(defalias 'magit-log-refresh #[514 "\302 \210\303\304!\203 A\240\210\202& |