| Current Path : /usr/share/emacs/24.3/lisp/vc/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/vc/vc-annotate.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:54 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/vc/vc-annotate.el
;;; in Emacs version 24.3.1
;;; 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\307\310\311\302&\210\303\312\313\314\307\315\311\302&\210\303\316\317\320\307\321\311\302&\210\303\322\323\324\307\325\311\302&\210\303\326\327\330\307\331\311\302&\207" [require vc-hooks vc custom-declare-variable vc-annotate-display-mode 'fullscale "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-color-map (if (and (tty-display-color-p) (<= (display-color-cells) 8)) (let* ((colors (sort (delq nil (mapcar (lambda (x) (if (not (or (string-equal (car x) "white") (string-equal (car x) "black"))) (car x))) (tty-color-alist))) (lambda (a b) (cond ((or (string-equal a "red") (string-equal b "blue")) t) ((or (string-equal b "red") (string-equal a "blue")) nil) ((string-equal a "yellow") t) ((string-equal b "yellow") nil) ((string-equal a "cyan") t) ((string-equal b "cyan") nil) ((string-equal a "green") t) ((string-equal b "green") nil) ((string-equal a "magenta") t) ((string-equal b "magenta") nil) (t (string< a b)))))) (date 20) (delta (/ (- 360 date) (1- (length colors))))) (mapcar (lambda (x) (prog1 (cons date x) (setq date (+ date delta)))) colors)) '((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"))) "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 "#3F3FFF" "Color for lines older than the current color range in \\[vc-annotate]." string vc-annotate-background "black" "Background color for \\[vc-annotate].\nDefault color is used if nil." (choice (const :tag "Default background" nil) (color)) vc-annotate-menu-elements '(2 0.5 0.1 0.01) "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)] 8)
#@41 Local keymap used for VC-Annotate mode.
(defvar vc-annotate-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\313#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210\302\322\323#\210\302\324\325#\210\302\326\327#\210\302\326\327#\210\302\330\331#\210)\207" [m 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] 4) (#$ . 3043))
#@18 Global variable.
(defvar vc-annotate-ratio nil (#$ . 3847))
(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)))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [vc-annotate-mode-hook variable-documentation put purecopy "Hook run when 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] 5)
(defvar vc-annotate-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [vc-annotate-mode-map variable-documentation put purecopy "Keymap for `vc-annotate-mode'." boundp vc-annotate-mode-syntax-table definition-name vc-annotate-mode] 5)
(defvar vc-annotate-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [vc-annotate-mode-syntax-table variable-documentation put purecopy "Syntax table for `vc-annotate-mode'." vc-annotate-mode-abbrev-table definition-name vc-annotate-mode] 5)
(defvar vc-annotate-mode-abbrev-table (progn (define-abbrev-table 'vc-annotate-mode-abbrev-table nil) vc-annotate-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [vc-annotate-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `vc-annotate-mode'." vc-annotate-mode derived-mode-parent special-mode] 5)
#@402 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 step
during initialization.
\{vc-annotate-mode-map}
(defalias 'vc-annotate-mode #[nil "\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 \2036
\321 =\203< \322\f\323 \"\210)\324\"\325\"\204V \"#=\204V \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 parent 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 vc-annotate-mode-abbrev-table local-abbrev-table] 6 (#$ . 5513) nil])
#@50 Toggle whether or not the annotation is visible.
(defalias 'vc-annotate-toggle-annotation-visibility #[nil "\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 (#$ . 6925) nil])
#@179 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.
(defalias 'vc-annotate-display-default #[(ratio) "\301\302!\210\303!\210\301\304!\207" [ratio message "Redisplaying annotation..." vc-annotate-display "Redisplaying annotation...done"] 2 (#$ . 7233) (byte-code "\300\301!\210\302\207" [kill-local-variable vc-annotate-color-map (1.0)] 2)])
#@42 Return the oldest time in the COLOR-MAP.
(defalias 'vc-annotate-oldest-in-map #[(color-map) "\302!\211@@)\207" [color-map x last] 3 (#$ . 7707)])
(defalias 'vc-annotate-get-time-set-line-props #[nil "`\304\305\"\306` Y\204 \307\310\311C\"\210\312 `\313\314$\210\n+\207" [vc-annotate-backend inhibit-read-only date bol vc-call-backend annotate-time t signal cl-assertion-failed (>= (point) bol) put-text-property invisible vc-annotate-annotation] 5])
#@266 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.
(defalias 'vc-annotate-display-autoscale #[(&optional full) "\306\307\310\311 !\312\313\314!\210\212eb\210m\2044 \315 \211\203. V\203& \nW\203. \316y\210\202 )\317\f\203> \202? \nZ\320
!\245\f\205J \"\210\313\321\f\203^ \322\323 \nZ Z#\202d \322\324 \nZ\"\",\207" [date current oldest newest full vc-annotate-color-map 0.0 999999 vc-annotate-convert-time current-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"] 7 (#$ . 8171) "P"])
#@26 VC Annotate Display Menu
(defvar vc-annotate-mode-menu nil (#$ . 9082))
(byte-code "\305\306\307\310\311\312\313 !\314\315 \")\316\317\320\321\317\322\323\324\325\326\327\317\330\331\332\333\334\335\336\337\340\341\f\342BBE\343BBBB\"\344BBBBBBBBBBBBBBB\"BB$\207" [vc-annotate-mode-map vc-annotate-color-map oldest-in-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 #[(element) " _\303\304\305\n\"\306\307\nE\310\311\312\313\314\nE&)\207" [element oldest-in-map days vector format "Span %.1f days" vc-annotate-display-select nil :style toggle :selected eql vc-annotate-display-mode] 9] ["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 vector "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)
#@243 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.
(defalias 'vc-annotate-display-select #[(&optional buffer mode) "\203 \305\n\206\f p!\210 \204 \306\304!\210\307 \206 \310!\207 \311=\203( \312\313!\207 \314=\2032 \312\315!\207 \247\203? \307 \316\f!\245!\207\317\320 \"\207" [mode vc-annotate-display-mode buffer vc-annotate-ratio vc-annotate-color-map pop-to-buffer kill-local-variable vc-annotate-display-default 1.0 scale vc-exec-after (vc-annotate-display-autoscale) fullscale (vc-annotate-display-autoscale t) vc-annotate-oldest-in-map error "No such display mode: %s"] 4 (#$ . 12021) nil])
#@1348 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.
(defalias 'vc-annotate #[(file rev &optional display-mode buf move-point-to vc-bk) "\306 \210\307\310\311 \n#\312
\206 '?\205 \214~\210\313 ) (\314\315!\210'\2037 r'q\210\316 \317\"\210\311 )) *r\320 !q\210p\321 \210*)\322\211+,\317\211-\317 . /\323 \210\324\325!\210+\211 0 12\206n \3263!4 5 6\3276\3303\331 !\n%\210r q\2107\332\232\204\216 \332 \210\333\334!\2106 \333\335!\2103 \333\336!\210\n \333\337!\210 +\3400!\210+r q\210\341\342\343(\344(D\345BBB\346BB!,\207" [display-mode vc-annotate-display-mode rev temp-buffer-name temp-buffer-show-function move-point-to 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 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 progn when goto-line ((setq vc-sentinel-movepoint (point))) ((unless (active-minibuffer-window) (message "Annotating... done"))) buf current-line default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output vc-bk file buffer-file-coding-system coding-system-for-read backend major-mode] 7 (#$ . 12824) (byte-code "r\304 \210\305!\n\204 \202 \306\307\310 \"C\311 $)\n\204$ \202. \312\313\314\315\311\211\316$!!E)\207" [buffer-file-name def 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)])
#@145 Visit the annotation of the revision previous to this one.
With a numeric prefix argument, annotate the revision that many
revisions previous.
(defalias 'vc-annotate-prev-revision #[(prefix) "\301[!\207" [prefix vc-annotate-warp-revision] 2 (#$ . 16033) "p"])
#@136 Visit the annotation of the revision after this one.
With a numeric prefix argument, annotate the revision that many
revisions after.
(defalias 'vc-annotate-next-revision #[(prefix) "\301!\207" [prefix vc-annotate-warp-revision] 2 (#$ . 16302) "p"])
#@60 Visit the annotation of the working revision of this file.
(defalias 'vc-annotate-working-revision #[nil "\304\232\204\n \305\306!\207\307 !\211 \232\203 \305\310\n\"\202 \311\n!)\207" [major-mode vc-annotate-parent-file warp-rev 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 (#$ . 16560) nil])
#@82 Extract the revision number of the current line.
Return a cons (REV . FILENAME).
(defalias 'vc-annotate-extract-revision-at-line #[nil "\303\304\"\211\203 :\203 \202 \nB)\207" [vc-annotate-backend rev vc-annotate-parent-file vc-call-backend annotate-extract-revision-at-line] 4 (#$ . 16993)])
#@70 Visit the annotation of the revision identified in the current line.
(defalias 'vc-annotate-revision-at-line #[nil "\304\232\204\n \305\306!\207\307 \211\204 \305\310!\2022 @\n\232\203, A \230\203, \305\311 \"\2022 \312 @ A\")\207" [major-mode rev-at-line 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 (#$ . 17300) nil])
#@52 Visit the revision identified in the current line.
(defalias 'vc-annotate-find-revision-at-line #[nil "\303\232\204\n \304\305!\207\306 \211\204 \304\307!\202 \310\311 A @\n#!)\207" [major-mode rev-at-line 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 (#$ . 17856) nil])
#@67 Visit the annotation of the revision before the revision at line.
(defalias 'vc-annotate-revision-previous-to-line #[nil "\306\232\204\n \307\310!\207\311 \312 @ A \204 \307\313!\202* \314
\315\f $\316\n\f\",\207" [major-mode rev-at-line prev-rev rev fname 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 vc-annotate-warp-revision] 5 (#$ . 18330) 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 #[nil "\306\232\204\n \307\310!\207\311 \211\204 \307\312!\202b \n\313\314!\315 \f\203W r\fq\210
=\205J A?\205J @ A\230\205J \316
\317 @#\205J `\211)\203W \320\f!\210 b\202a \321\n AC @\322\323%+)\207" [major-mode rev-at-line vc-annotate-backend pos log-buf 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" get-buffer "*vc-change-log*" nil vc-call-backend show-log-entry pop-to-buffer vc-print-log-internal t 1 log-view-vc-backend log-view-vc-fileset] 7 (#$ . 18876) nil])
(defalias 'vc-annotate-show-diff-revision-at-line-internal #[(filediff) "\306\307!\204\n \310\311!\207\312 \313@A\204 \310\314!\202B \315\f\316
\205' \n$\211\2045 \310\317\n\"\202B \320\321\f
\205> CD \n$,\207" [rev-at-line prev-rev rev fname vc-annotate-backend filediff 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 "Cannot diff from any revision prior to %s" vc-diff-internal t] 6])
#@68 Visit the diff of the revision at line from its previous revision.
(defalias 'vc-annotate-show-diff-revision-at-line #[nil "\300\301!\207" [vc-annotate-show-diff-revision-at-line-internal t] 2 (#$ . 20364) 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 #[nil "\301\302\"\303=\203 \304\305\"\210\306\307!\207" [vc-annotate-backend vc-call-backend revision-granularity file error "The %s backend does not support changeset diffs" vc-annotate-show-diff-revision-at-line-internal nil] 3 (#$ . 20582) nil])
#@366 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.
(defalias 'vc-annotate-warp-revision #[(revspec &optional file) "\306\232\204\n \307\310!\207p\311 \312 \250\203N \313V\203N \313V\203@
\203@ \314\315\2066
$ S\211\202\"
\204\230 \307\316\f#\210\202\230 \250\203\212 \313W\203\212 \313W\203{
\203{ \314\317\206q
$ T\211\202]
\204\230 \307\320\f[#\210\202\230 ;\203\224 \202\230 \321\322!\210
\205\266 \323\206\244
\ndb\210\324y\210\311 ^&,\207" [major-mode buf oldline revspec revspeccopy newrev 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 vc-annotate-parent-rev vc-annotate-backend file vc-annotate-parent-file vc-annotate-parent-display-mode] 8 (#$ . 20999)])
#@156 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.
(defalias 'vc-annotate-compcar #[(threshold a-list) "\304@ \203 @ W\203 \n\233@\nT\202 *\207" [a-list tmp-cons i threshold 1] 2 (#$ . 22312)])
#@191 Convert a time value to a floating-point number of days.
The argument TIME is a list as returned by `current-time' or
`encode-time', only the first two elements of that list are considered.
(defalias 'vc-annotate-convert-time #[(time) "\302@!\303\304\305\"_\211A@)\\\306\245\207" [time x float lsh 1 16 86400] 5 (#$ . 22628)])
#@206 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.
(defalias 'vc-annotate-difference #[(&optional offset) "\303 \211\205 \206 \304\n\305\"Z)\207" [next-time offset vc-annotate-backend vc-annotate-get-time-set-line-props vc-call-backend annotate-current-time] 4 (#$ . 22965)])
#@54 Return the current time, encoded as fractional days.
(defalias 'vc-default-annotate-current-time #[(backend) "\300\301 !\207" [vc-annotate-convert-time current-time] 2 (#$ . 23406)])
(defvar vc-annotate-offset nil)
#@208 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.
(defalias 'vc-annotate-display #[(ratio &optional offset) "\304U\204 \305\301!\210\306\307 \"\305\303!\210\n\310\311!\207" [ratio vc-annotate-color-map offset vc-annotate-offset 1.0 make-local-variable mapcar #[(elem) "@ _AB\207" [elem ratio] 2] font-lock-mode 1] 3 (#$ . 23628)])
(defalias 'vc-annotate-lines #[(limit) "`W\203r \306 !`\307y\210`\211 \203n \310\f
\"\206 \311B \312A\313\307O\314\230\2037 A\307\311O\202: AP \315!\206c \316\317!! \320A\"\210\203` \321\"\210) \322 \n\323$\210++\202 \311\207" [limit vc-annotate-offset end start difference vc-annotate-color-map vc-annotate-difference 1 vc-annotate-compcar nil "vc-annotate-face-" 0 "#" intern-soft make-face intern set-face-foreground set-face-background put-text-property face vc-annotate-very-old-color color face-name tmp-face vc-annotate-background] 6])
#@63 Go to the line corresponding to the current VC Annotate line.
(defalias 'vc-annotate-goto-line #[nil "\306=\204\n \307\310!\210\214~\210\311 ) \312\313\f!\203 \f\206. \314
!\203* \315
!\206. \307\316
\"!\210\214~\210eb\210 Sy\210\317 \210)\320 \203I \321\322!\202f \323!\324=\204X \321\325!\202f \n\326!\232?\205f \321\327\n\"*\207" [major-mode vc-annotate-parent-rev rev line vc-parent-buffer vc-annotate-parent-file 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" buffer-file-name] 4 (#$ . 24706) nil])
(provide 'vc-annotate)