Mercurial > emacs

comparison lisp/vc.el @ 51764:3c3b6501b4f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-annotate-offset): Move defvar up.
author John Paul Wallington <jpw@pobox.com>
date Sun, 06 Jul 2003 19:08:13 +0000
parents 11d614bbf7e3
children 695cf19ef79e
comparison
equal deleted inserted replaced
51763:9bed85715c41 51764:3c3b6501b4f1
5 5
6 ;; Author: FSF (see below for full credits) 6 ;; Author: FSF (see below for full credits)
7 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> 7 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
8 ;; Keywords: tools 8 ;; Keywords: tools
9 9
10 ;; $Id: vc.el,v 1.357 2003/06/30 10:34:26 rms Exp $ 10 ;; $Id: vc.el,v 1.358 2003/07/06 17:28:12 monnier Exp $
11 11
12 ;; This file is part of GNU Emacs. 12 ;; This file is part of GNU Emacs.
13 13
14 ;; GNU Emacs is free software; you can redistribute it and/or modify 14 ;; GNU Emacs is free software; you can redistribute it and/or modify
15 ;; it under the terms of the GNU General Public License as published by 15 ;; it under the terms of the GNU General Public License as published by
3027 3027
3028 (defun vc-default-annotate-current-time (backend) 3028 (defun vc-default-annotate-current-time (backend)
3029 "Return the current time, encoded as fractional days." 3029 "Return the current time, encoded as fractional days."
3030 (vc-annotate-convert-time (current-time))) 3030 (vc-annotate-convert-time (current-time)))
3031 3031
3032 (defvar vc-annotate-offset nil)
3033
3032 (defun vc-annotate-display (&optional color-map offset) 3034 (defun vc-annotate-display (&optional color-map offset)
3033 "Highlight `vc-annotate' output in the current buffer. 3035 "Highlight `vc-annotate' output in the current buffer.
3034 COLOR-MAP, if present, overrides `vc-annotate-color-map'. 3036 COLOR-MAP, if present, overrides `vc-annotate-color-map'.
3035 The annotations are relative to the current time, unless overridden by OFFSET." 3037 The annotations are relative to the current time, unless overridden by OFFSET."
3036 (if (and color-map (not (eq color-map vc-annotate-color-map))) 3038 (if (and color-map (not (eq color-map vc-annotate-color-map)))
3037 (set (make-local-variable 'vc-annotate-color-map) color-map)) 3039 (set (make-local-variable 'vc-annotate-color-map) color-map))
3038 (set (make-local-variable 'vc-annotate-offset) offset) 3040 (set (make-local-variable 'vc-annotate-offset) offset)
3039 (font-lock-mode 1)) 3041 (font-lock-mode 1))
3040
3041 (defvar vc-annotate-offset nil)
3042 3042
3043 (defun vc-annotate-lines (limit) 3043 (defun vc-annotate-lines (limit)
3044 (let (difference) 3044 (let (difference)
3045 (while (and (< (point) limit) 3045 (while (and (< (point) limit)
3046 (setq difference (vc-annotate-difference vc-annotate-offset))) 3046 (setq difference (vc-annotate-difference vc-annotate-offset)))