Current File : //usr/local/share/emacs/27.2/lisp/vc/vc-annotate.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307DD\310\311\312\313\302&\210\303\314\305\306\315DD\316\311\317\320\321\322\323\313\302& \210\303\324\305\306\325DD\326\311\327\313\302&\210\303\330\305\306\331DD\332\311\333\313\302&\210\303\334\305\306\335DD\336\311\337\313\302&\210\303\340\305\306\341DD\342\311\343\313\302&\207" [require vc-hooks vc custom-declare-variable vc-annotate-display-mode funcall function #[0 "\300\207" [fullscale] 1] "Which mode to color the output of \\[vc-annotate] with by default." :type (choice (const :tag "By Color Map Range" nil) (const :tag "Scale to Oldest" scale) (const :tag "Scale Oldest->Newest" fullscale) (number :tag "Specify Fractional Number of Days" :value "20.5")) :group vc-annotate-background-mode #[0 "\206 \301\302\303\"\304=\206 \305 \205 \306 \307X?\207" [frame-background-mode frame-parameter nil background-mode dark tty-display-color-p display-color-cells 8] 3] "Non-nil means `vc-annotate-color-map' is applied to the background.\n\nWhen non-nil, the color range from `vc-annotate-color-map' is applied\nto the background, while the foreground remains default.\n\nWhen nil, the color range from `vc-annotate-color-map' is applied\nto the foreground, and the color from the option `vc-annotate-background'\nis applied to the background." boolean :set #[514 "\300\"\210\301\302!\205 \3031 \304\302!0\207\305\306\"\210\307\262\207" [set-default boundp vc-annotate-color-map (debug error) custom-reevaluate-setting message "Error: %S" nil] 6 "\n\n(fn SYMBOL VALUE)"] :version "25.1" vc-annotate-color-map #[0 "\301 \2034 \302 \303X\2034 \304\305\306\307\310\311 \"\"\312\"\313C\314\242ZGS\245\307\315\316\317\320\321\"\322\"\323\324%\"\207\203: \325\207\326\207" [vc-annotate-background-mode tty-display-color-p display-color-cells 8 sort delq nil mapcar #[257 "\211@\300\230\206 \211@\301\230?\205 \211@\207" ["white" "black"] 3 "\n\n(fn X)"] tty-color-alist #[514 "\300\230\204\f \211\301\230\203 \302\207\211\300\230\204 \301\230\203 \303\207\304\230\203$ \302\207\211\304\230\203, \303\207\305\230\2034 \302\207\211\305\230\203< \303\207\306\230\203D \302\207\211\306\230\203L \303\207\307\230\203T \302\207\211\307\230\203\\ \303\207\231\207" ["red" "blue" t nil "yellow" "cyan" "green" "magenta"] 4 "\n\n(fn A B)"] 20 360 make-byte-code 257 "\300\242B\300\211\242\301\\\240\210\207" vconcat vector [] 5 "\n\n(fn X)" ((20 . "#FFCCCC") (40 . "#FFD8CC") (60 . "#FFE4CC") (80 . "#FFF0CC") (100 . "#FFFCCC") (120 . "#F6FFCC") (140 . "#EAFFCC") (160 . "#DEFFCC") (180 . "#D2FFCC") (200 . "#CCFFD2") (220 . "#CCFFDE") (240 . "#CCFFEA") (260 . "#CCFFF6") (280 . "#CCFCFF") (300 . "#CCF0FF") (320 . "#CCE4FF") (340 . "#CCD8FF") (360 . "#CCCCFF")) ((20 . "#FF3F3F") (40 . "#FF6C3F") (60 . "#FF993F") (80 . "#FFC63F") (100 . "#FFF33F") (120 . "#DDFF3F") (140 . "#B0FF3F") (160 . "#83FF3F") (180 . "#56FF3F") (200 . "#3FFF56") (220 . "#3FFF83") (240 . "#3FFFB0") (260 . "#3FFFDD") (280 . "#3FF3FF") (300 . "#3FC6FF") (320 . "#3F99FF") (340 . "#3F6CFF") (360 . "#3F3FFF"))] 11] "Association list of age versus color, for \\[vc-annotate].\nAges are given in units of fractional days. Default is eighteen\nsteps using a twenty day increment, from red to blue. For TTY\ndisplays with 8 or fewer colors, the default is red to blue with\nall other colors between (excluding black and white)." alist vc-annotate-very-old-color #[0 "\203 \301\207\302\207" [vc-annotate-background-mode "#CCCCFF" "#3F3FFF"] 1] "Color for lines older than the current color range in \\[vc-annotate]." string vc-annotate-background #[0 "\300\207" [nil] 1] "Background color for \\[vc-annotate].\nDefault color is used if nil." (choice (const :tag "Default background" nil) (color)) vc-annotate-menu-elements #[0 "\300\207" [(2 0.5 0.1 0.01)] 1] "Menu elements for the mode-specific menu of VC-Annotate mode.\nList of factors, used to expand/compress the time scale. See `vc-annotate'." (repeat number)] 12)
#@41 Local keymap used for VC-Annotate mode.
(defvar vc-annotate-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\305#\210\301\307\310#\210\301\311\312#\210\301\313\314#\210\301\315\316#\210\301\317\320#\210\301\321\322#\210\301\323\324#\210\301\325\326#\210\301\327\330#\210\211\207" [make-sparse-keymap define-key "a" vc-annotate-revision-previous-to-line "d" vc-annotate-show-diff-revision-at-line "=" "D" vc-annotate-show-changeset-diff-revision-at-line "f" vc-annotate-find-revision-at-line "j" vc-annotate-revision-at-line "l" vc-annotate-show-log-revision-at-line "n" vc-annotate-next-revision "p" vc-annotate-prev-revision "w" vc-annotate-working-revision "v" vc-annotate-toggle-annotation-visibility "
" vc-annotate-goto-line] 5) (#$ . 4389))
#@18 Global variable.
(defvar vc-annotate-ratio nil (#$ . 5174))
(defvar vc-annotate-backend nil)
(defvar vc-annotate-parent-file nil)
(defvar vc-annotate-parent-rev nil)
(defvar vc-annotate-parent-display-mode nil)
(defconst vc-annotate-font-lock-keywords '((vc-annotate-lines)))
(defvar vc-annotate-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [vc-annotate-mode-hook variable-documentation put "Hook run after entering Annotate mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp vc-annotate-mode-map definition-name vc-annotate-mode] 4)
(defvar vc-annotate-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#\207" [vc-annotate-mode-abbrev-table vc-annotate-mode-map variable-documentation put purecopy "Keymap for `vc-annotate-mode'." boundp vc-annotate-mode-syntax-table definition-name vc-annotate-mode (lambda (#1=#:def-tmp-var) (defvar vc-annotate-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-annotate-mode'." (lambda (#1#) (defvar vc-annotate-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `vc-annotate-mode'." derived-mode-parent special-mode] 5)
#@417 Major mode for output buffers of the `vc-annotate' command.
You can use the mode-specific menu to alter the time-span of the used
colors. See variable `vc-annotate-menu-elements' for customizing the
menu items.
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `vc-annotate-mode-hook', as the final or penultimate step
during initialization.
\{vc-annotate-mode-map}
(defalias 'vc-annotate-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\332!\210\333\332!\210\306\334!\210\307 \306\335!\210\336 \337 \210)\340\341!\207" [delay-mode-hooks major-mode mode-name vc-annotate-mode-map vc-annotate-mode-syntax-table vc-annotate-mode-abbrev-table make-local-variable t special-mode vc-annotate-mode "Annotate" 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 add-to-invisibility-spec foo remove-from-invisibility-spec truncate-lines font-lock-defaults (vc-annotate-font-lock-keywords t) hack-dir-local-variables-non-file-buffer run-mode-hooks vc-annotate-mode-hook local-abbrev-table] 5 (#$ . 6670) nil])
#@50 Toggle whether or not the annotation is visible.
(defalias 'vc-annotate-toggle-annotation-visibility #[0 "\301>\203\n \302\202 \303\301!\210\304p!\207" [buffer-invisibility-spec vc-annotate-annotation remove-from-invisibility-spec add-to-invisibility-spec force-window-update] 2 (#$ . 8088) nil])
#@191 Display the output of \[vc-annotate] using the default color range.
The color range is given by `vc-annotate-color-map', scaled by RATIO.
The current time is used as the offset.
(fn RATIO)
(defalias 'vc-annotate-display-default #[257 "\300\301!\210\302!\210\300\303!\207" [message "Redisplaying annotation..." vc-annotate-display "Redisplaying annotation...done"] 3 (#$ . 8394) (byte-code "\300\301!\210\302\207" [kill-local-variable vc-annotate-color-map (1.0)] 2)])
#@58 Return the oldest time in the COLOR-MAP.
(fn COLOR-MAP)
(defalias 'vc-annotate-oldest-in-map #[257 "\300!@@\207" [last] 3 (#$ . 8870)])
(defalias 'vc-annotate-get-time-set-line-props #[0 "`\302\303\"\304`Y\204 \305\306!\210\307`\310\311$\210)\207" [vc-annotate-backend inhibit-read-only vc-call-backend annotate-time t cl--assertion-failed (>= (point) bol) put-text-property invisible vc-annotate-annotation] 7])
#@287 Highlight the output of \[vc-annotate] using an autoscaled color map.
Autoscaling means that the map is scaled from the current time to the
oldest annotation in the buffer, or, with prefix argument FULL, to
cover the range from the oldest annotation to the newest.
(fn &optional FULL)
(defalias 'vc-annotate-display-autoscale #[256 "\301\302\303 \304\305\306!\210\212eb\210m\2041 \307 \211\262\203+ \211V\203\" \211\262\211W\203+ \211\262\310y\210\202
)\311\203; \202< Z\312!\245\205H \"\210\305\313\203` \314\315Z Z#\202g \314\316Z\"\"\207" [vc-annotate-color-map 0.0 999999 vc-annotate-convert-time nil message "Redisplaying annotation..." vc-annotate-get-time-set-line-props 1 vc-annotate-display vc-annotate-oldest-in-map "Redisplaying annotation...done (%s)" format "Spanned from %.1f to %.1f days old" "Spanned to %.1f days old"] 12 (#$ . 9297) "P"])
#@26 VC Annotate Display Menu
(defvar vc-annotate-mode-menu nil (#$ . 10186))
(byte-code "\304\305\306\307\310\311\312 !\313\314\315\316\317\320!\321\"\322\323%\n\"\262\324\325\326\327\325\330\331\332\333\334\335\325\336\337\340\320\341\342\343\344\345\346 \347BBE\350BBBB\"\351BBBBBBBBBBBBBBB\"BB$\207" [vc-annotate-mode-map vc-annotate-color-map vc-annotate-menu-elements vc-annotate-backend easy-menu-do-define vc-annotate-mode-menu "VC Annotate Display Menu" "VC-Annotate" ["By Color Map Range" (unless (null vc-annotate-display-mode) (setq vc-annotate-display-mode nil) (vc-annotate-display-select)) :style toggle :selected (null vc-annotate-display-mode)] append vc-annotate-oldest-in-map mapcar make-byte-code 257 "\211\300_\301\302\303\"\304\305E\306\307\310\311\312E&\207" vconcat vector [vector format "Span %.1f days" vc-annotate-display-select nil :style toggle :selected eql vc-annotate-display-mode] 11 "\n\n(fn ELEMENT)" ["Span ..." (vc-annotate-display-select nil (float (string-to-number (read-string "Span how many days? "))))] "--" ["Span to Oldest" (unless (eq vc-annotate-display-mode 'scale) (vc-annotate-display-select nil 'scale)) :help "Use an autoscaled color map from the oldest annotation to the current time" :style toggle :selected (eq vc-annotate-display-mode 'scale)] ["Span Oldest->Newest" (unless (eq vc-annotate-display-mode 'fullscale) (vc-annotate-display-select nil 'fullscale)) :help "Use an autoscaled color map from the oldest to the newest annotation" :style toggle :selected (eq vc-annotate-display-mode 'fullscale)] ["Toggle annotation visibility" vc-annotate-toggle-annotation-visibility :help "Toggle whether the annotation is visible or not"] ["Annotate previous revision" vc-annotate-prev-revision :help "Visit the annotation of the revision previous to this one"] ["Annotate next revision" vc-annotate-next-revision :help "Visit the annotation of the revision after this one"] ["Annotate revision at line" vc-annotate-revision-at-line :help "Visit the annotation of the revision identified in the current line"] ["Annotate revision previous to line" vc-annotate-revision-previous-to-line :help "Visit the annotation of the revision before the revision at line"] ["Annotate latest revision" vc-annotate-working-revision :help "Visit the annotation of the working revision of this file"] ["Show log of revision at line" vc-annotate-show-log-revision-at-line :help "Visit the log of the revision at line"] ["Show diff of revision at line" vc-annotate-show-diff-revision-at-line :help "Visit the diff of the revision at line from its previous revision"] apply "Show changeset diff of revision at line" vc-annotate-show-changeset-diff-revision-at-line :enable eq 'repository vc-call-backend ('revision-granularity) (:help "Visit the diff of the revision at line from its previous revision") (["Visit revision at line" vc-annotate-find-revision-at-line :help "Visit the revision identified in the current line"])] 32)
#@271 Highlight the output of \[vc-annotate].
By default, the current buffer is highlighted, unless overridden by
BUFFER. `vc-annotate-display-mode' specifies the highlighting mode to
use; you may override this using the second optional arg MODE.
(fn &optional BUFFER MODE)
(defalias 'vc-annotate-display-select #[512 "\211\203 \211\303\206\f p!\210\204 \304\302!\210\305 \206 \306!\207\307\267\202, \310\311!\207\310\312!\207\247\2039 \305\313\n!\245!\207\314\315\"\207" [vc-annotate-display-mode vc-annotate-ratio vc-annotate-color-map pop-to-buffer kill-local-variable vc-annotate-display-default 1.0 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (scale 36 fullscale 40)) vc-exec-after #[0 "\300 \207" [vc-annotate-display-autoscale] 1] #[0 "\300\301!\207" [vc-annotate-display-autoscale t] 2] vc-annotate-oldest-in-map error "No such display mode: %s"] 6 (#$ . 13158) nil])
#@1530 Display the edit history of the current FILE using colors.
This command creates a buffer that shows, for each line of the current
file, when it was last edited and by whom. Additionally, colors are
used to show the age of each line--blue means oldest, red means
youngest, and intermediate colors indicate intermediate ages. By
default, the time scale stretches back one year into the past;
everything that is older than that is shown in blue.
With a prefix argument, this command asks two questions in the
minibuffer. First, you may enter a revision number REV; then the buffer
displays and annotates that revision instead of the working revision
(type RET in the minibuffer to leave that default unchanged). Then,
you are prompted for the time span in days which the color range
should cover. For example, a time span of 20 days means that changes
over the past 20 days are shown in red to blue, according to their
age, and everything that is older than that is shown in blue.
If MOVE-POINT-TO is given, move the point to that line.
If VC-BK is given used that VC backend.
Customization variables:
`vc-annotate-menu-elements' customizes the menu elements of the
mode-specific menu. `vc-annotate-color-map' and
`vc-annotate-very-old-color' define the mapping of time to colors.
`vc-annotate-background' specifies the background color.
`vc-annotate-background-mode' specifies whether the color map
should be applied to the background or to the foreground.
(fn FILE REV &optional DISPLAY-MODE BUF MOVE-POINT-TO VC-BK)
(defalias 'vc-annotate #[1538 "\306 \210\307\310\311 #\312\206 ?\205 \214~\210\313 )\314\315!\210\2033 rq\210\316\317\"\210\311 \262)\nr\320!q\210p\321 \210\322\211\317\211\317 , -\323 \210\324\325!\210+\211 .\206_ \326\n!/ 01\327>\203q \3300\331\"0\332\333
\334 !%\210rq\2102\335=\204\214 \335 \210\336\337!\210\211 \336\340!\210\n \336\341!\210 !\336\342!\210\"*\210\343!\210)\266rq\210\344\345\346\347\350\351!\352\"\353$!*\207" [vc-annotate-display-mode temp-buffer-show-function default-directory buffer-read-only buffer-file-name buffer-undo-list vc-ensure-vc-buffer format "*Annotate %s (rev %s)*" buffer-name vc-annotate-display-select line-number-at-pos message "Annotating..." rename-buffer t get-buffer-create kill-all-local-variables nil erase-buffer run-hooks temp-buffer-setup-hook vc-backend (windows-nt ms-dos) coding-system-change-eol-conversion dos vc-call-backend annotate-command get-buffer vc-annotate-mode make-local-variable vc-annotate-backend vc-annotate-parent-file vc-annotate-parent-rev vc-annotate-parent-display-mode internal-temp-output-buffer-show vc-exec-after make-byte-code 0 "\300\203
eb\210\300Sy\210`\302 ?\205 \303\304!\207" vconcat vector [vc-sentinel-movepoint active-minibuffer-window message "Annotating... done"] 2 inhibit-modification-hooks inhibit-read-only standard-output buffer-file-coding-system coding-system-for-read system-type major-mode] 18 (#$ . 14089) (byte-code "r\303 \210\304! \204 \211\202 \305\306\307\"C\310$\262 \204$ \n\202. \311\312\313\314\310\211\315$!!E)\207" [buffer-file-name current-prefix-arg vc-annotate-display-mode vc-ensure-vc-buffer vc-working-revision vc-read-revision format "Annotate from revision (default %s): " nil float string-to-number read-string "Annotate span days (default 20): " "20"] 9)])
#@158 Visit the annotation of the revision previous to this one.
With a numeric prefix argument, annotate the revision that many
revisions previous.
(fn PREFIX)
(defalias 'vc-annotate-prev-revision #[257 "\300\301Z!\207" [vc-annotate-warp-revision 0] 4 (#$ . 17462) "p"])
#@149 Visit the annotation of the revision after this one.
With a numeric prefix argument, annotate the revision that many
revisions after.
(fn PREFIX)
(defalias 'vc-annotate-next-revision #[257 "\300!\207" [vc-annotate-warp-revision] 3 (#$ . 17738) "p"])
#@60 Visit the annotation of the working revision of this file.
(defalias 'vc-annotate-working-revision #[0 "\303=\204\n \304\305!\207\306 !\211\n\232\203 \304\307\"\202 \310!\207" [major-mode vc-annotate-parent-file vc-annotate-parent-rev vc-annotate-mode message "Cannot be invoked outside of a vc annotate buffer" vc-working-revision "Already at revision %s" vc-annotate-warp-revision] 4 (#$ . 17997) nil])
#@82 Extract the revision number of the current line.
Return a cons (REV . FILENAME).
(defalias 'vc-annotate-extract-revision-at-line #[0 "\302\303\"\211\203
\211:\203 \211\202 \211 B\207" [vc-annotate-backend vc-annotate-parent-file vc-call-backend annotate-extract-revision-at-line] 3 (#$ . 18413)])
#@70 Visit the annotation of the revision identified in the current line.
(defalias 'vc-annotate-revision-at-line #[0 "\303=\204\n \304\305!\207\306 \211\204 \304\307!\2021 \211@ \232\203+ \211A\n\230\203+ \304\310\"\2021 \311@A\"\207" [major-mode vc-annotate-parent-rev vc-annotate-parent-file vc-annotate-mode message "Cannot be invoked outside of a vc annotate buffer" vc-annotate-extract-revision-at-line "Cannot extract revision number from the current line" "Already at revision %s" vc-annotate-warp-revision] 4 (#$ . 18720) nil])
#@52 Visit the revision identified in the current line.
(defalias 'vc-annotate-find-revision-at-line #[0 "\302=\204\n \303\304!\207\305 \211\204 \303\306!\202 \307\310A@ #!\207" [major-mode vc-annotate-backend vc-annotate-mode message "Cannot be invoked outside of a vc annotate buffer" vc-annotate-extract-revision-at-line "Cannot extract revision number from the current line" switch-to-buffer-other-window vc-find-revision] 6 (#$ . 19263) nil])
#@67 Visit the annotation of the revision before the revision at line.
(defalias 'vc-annotate-revision-previous-to-line #[0 "\302=\204\n \303\304!\207\305 \306@A\204 \303\307!\2021 \310 \311$\262\204- \303\312!\2021 \313\"\207" [major-mode vc-annotate-backend vc-annotate-mode message "Cannot be invoked outside of a vc annotate buffer" vc-annotate-extract-revision-at-line nil "Cannot extract revision number from the current line" vc-call-backend previous-revision "No previous revisions" vc-annotate-warp-revision] 9 (#$ . 19717) nil])
#@248 Visit the log of the revision at line.
If the VC backend supports it, only show the log entry for the revision.
If a *vc-change-log* buffer exists and already shows a log for
the file in question, search for the log entry required and move point.
(defalias 'vc-annotate-show-log-revision-at-line #[0 "\304=\204\n \305\306!\207\307 \211\204 \305\310!\202_ \311\312!\313\203R rq\210\n=\205E A?\205E @A\230\205E \314\315@#\205E `\211\262)\203R \316!\210\211b\202] \317 AC@\320\321%\266\203\207" [major-mode vc-annotate-backend log-view-vc-backend log-view-vc-fileset vc-annotate-mode message "Cannot be invoked outside of a vc annotate buffer" vc-annotate-extract-revision-at-line "Cannot extract revision number from the current line" get-buffer "*vc-change-log*" nil vc-call-backend show-log-entry pop-to-buffer vc-print-log-internal t 1] 10 (#$ . 20269) nil])
#@17
(fn FILEDIFF)
(defalias 'vc-annotate-show-diff-revision-at-line-internal #[257 "\301\302!\204\n \303\304!\207\305 \306@A\204 \303\307!\2026 \310\311\205$ $\262\312\313\2052 CD$\207" [vc-annotate-backend derived-mode-p vc-annotate-mode message "Cannot be invoked outside of a vc annotate buffer" vc-annotate-extract-revision-at-line nil "Cannot extract revision number from the current line" vc-call-backend previous-revision vc-diff-internal t] 10 (#$ . 21152)])
#@68 Visit the diff of the revision at line from its previous revision.
(defalias 'vc-annotate-show-diff-revision-at-line #[0 "\300\301!\207" [vc-annotate-show-diff-revision-at-line-internal t] 2 (#$ . 21639) nil])
#@99 Visit the diff of the revision at line from its previous revision for all files in the changeset.
(defalias 'vc-annotate-show-changeset-diff-revision-at-line #[0 "\302\303\"\304=\203 \305\306\"\210\302\307 #\310\311!)\207" [vc-annotate-backend default-directory vc-call-backend revision-granularity file error "The %s backend does not support changeset diffs" root vc-annotate-show-diff-revision-at-line-internal nil] 4 (#$ . 21855) nil])
#@395 Annotate the revision described by REVSPEC.
If REVSPEC is a positive integer, warp that many revisions forward,
if possible, otherwise echo a warning message. If REVSPEC is a
negative integer, warp that many revisions backward, if possible,
otherwise echo a warning message. If REVSPEC is a string, then it
describes a revision number, so warp to that revision.
(fn REVSPEC &optional FILE)
(defalias 'vc-annotate-warp-revision #[513 "\305=\204\n \306\307!\207p\310 \311\250\203H \312V\203H \262\312V\203; \211\203; \313\n\314\2060 $\262S\262\202 \211\204\222 \306\315 #\210\202\222 \250\203\203 \312W\203\203 \262\312W\203t \211\203t \313\n\316\206i $\262T\262\202V \211\204\222 \306\317\312Z #\210\202\222 ;\203\216 \262\202\222 \320\321!\210\211\205\256 \322\206\234 \fdb\210\323y\210\310 ^\n&\207" [major-mode vc-annotate-parent-rev vc-annotate-backend vc-annotate-parent-file vc-annotate-parent-display-mode vc-annotate-mode message "Cannot be invoked outside of a vc annotate buffer" line-number-at-pos nil 0 vc-call-backend next-revision "Cannot increment %d revisions from revision %s" previous-revision "Cannot decrement %d revisions from revision %s" error "Invalid argument to vc-annotate-warp-revision" vc-annotate -1] 13 (#$ . 22306)])
#@179 Test successive cons cells of A-LIST against THRESHOLD.
Return the first cons cell with a car that is not less than THRESHOLD,
nil if no such cell exists.
(fn THRESHOLD A-LIST)
(defalias 'vc-annotate-compcar #[514 "\300@\211\203 \211@W\203 \233@\262T\262\202 \207" [1] 6 (#$ . 23605)])
#@121 Convert optional value TIME to a floating-point number of days.
TIME defaults to the current time.
(fn &optional TIME)
(defalias 'vc-annotate-convert-time #[256 "\300!\301\245\207" [float-time 86400] 3 (#$ . 23909)])
#@229 Return the time span in days to the next annotation.
This calls the backend function annotate-time, and returns the
difference in days between the time returned and the current time,
or OFFSET if present.
(fn &optional OFFSET)
(defalias 'vc-annotate-difference #[256 "\301 \211\205 \206 \302\303\"Z\207" [vc-annotate-backend vc-annotate-get-time-set-line-props vc-call-backend annotate-current-time] 5 (#$ . 24135)])
#@68 Return the current time, encoded as fractional days.
(fn BACKEND)
(defalias 'vc-default-annotate-current-time #[257 "\300 \207" [vc-annotate-convert-time] 2 (#$ . 24564)])
(defvar vc-annotate-offset nil)
#@237 Highlight `vc-annotate' output in the current buffer.
RATIO is the expansion that should be applied to `vc-annotate-color-map'.
The annotations are relative to the current time, unless overridden by OFFSET.
(fn RATIO &optional OFFSET)
(defalias 'vc-annotate-display #[513 "\302U\204 \303\300!\210\304\305\306\307\310\311!\312\"\313\314%\"\303\301!\210\211\315\316!\207" [vc-annotate-color-map vc-annotate-offset 1.0 make-local-variable mapcar make-byte-code 257 "\211@\300_AB\207" vconcat vector [] 3 "\n\n(fn ELEM)" font-lock-mode 1] 9 (#$ . 24776)])
#@14
(fn LIMIT)
(defalias 'vc-annotate-lines #[257 "`W\203o \305!`\306y\210`\203j \307 \"\206 \310\nB\311\312A\313\306#\314\230\2030 \312A\306\"\2022 AP\315!\206b \316\317!!\320\321\"\210 \203P \322A\"\210\202_ \323A\"\210\f\203_ \322\f\"\210\211\262\324\325$\266\266\202 \310\207" [vc-annotate-offset vc-annotate-color-map vc-annotate-very-old-color vc-annotate-background-mode vc-annotate-background vc-annotate-difference 1 vc-annotate-compcar nil "vc-annotate-face-" substring 0 "#" intern-soft make-face intern set-face-extend t set-face-background set-face-foreground put-text-property face] 12 (#$ . 25343)])
#@63 Go to the line corresponding to the current VC Annotate line.
(defalias 'vc-annotate-goto-line #[0 "\305=\204\n \306\307!\210\214~\210\310 ) \311\312\n!\203 \n\206, \313 !\203( \314 !\206, \306\315 \"!\210\214~\210eb\210Sy\210\316 \210)\317 \203G \320\321!\202b \322\f!\323=\204U \320\324!\202b \211\325\f!\232?\205b \320\326\"\207" [major-mode vc-annotate-parent-rev vc-parent-buffer vc-annotate-parent-file buffer-file-name vc-annotate-mode error "Not in a VC-Annotate buffer" line-number-at-pos pop-to-buffer buffer-live-p file-exists-p find-file-noselect "File not found: %s" recenter buffer-modified-p message "Buffer modified; annotated line numbers may be incorrect" vc-state up-to-date "File is not up-to-date; annotated line numbers may be incorrect" vc-working-revision "Annotations were for revision %s; line numbers may be incorrect"] 6 (#$ . 25985) nil])
(provide 'vc-annotate)
Mini Shell