diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-01-05 05:19:00 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-01-05 05:19:00 +0000 |
| commit | d58107b04c1bbc16817d2c15a4771d361d74efe7 (patch) | |
| tree | 79cdd28be196d806d69090a023a644fb94e6c5ab /lisp/vc-cvs.el | |
| parent | b06a075ac53d3b1cf000ddcd2be2ef3e19ac9f26 (diff) | |
| download | emacs-d58107b04c1bbc16817d2c15a4771d361d74efe7.tar.gz emacs-d58107b04c1bbc16817d2c15a4771d361d74efe7.tar.bz2 emacs-d58107b04c1bbc16817d2c15a4771d361d74efe7.zip | |
(vc-cvs-annotate-time): Don't move backward when text
gets inserted out-of-order.
Diffstat (limited to 'lisp/vc-cvs.el')
| -rw-r--r-- | lisp/vc-cvs.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index a0eb2609ade..47507e503ce 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -1,7 +1,7 @@ ;;; vc-cvs.el --- non-resident support for CVS version-control ;; Copyright (C) 1995, 1998, 1999, 2000, 2001, 2002, 2003, -;; 2004, 2005, 2006, 2007 Free Software Foundation, Inc. +;; 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> @@ -629,11 +629,14 @@ systime, or nil if there is none." bol (1+ bol) 'vc-cvs-annotate-time (setq cache (cons ;; Position at end makes for nicer overlay result. - (match-end 0) + ;; Don't put actual buffer pos here, but only relative + ;; distance, so we don't ever move backward in the + ;; goto-char below, even if the text is moved. + (- (match-end 0) (match-beginning 0)) (vc-annotate-convert-time (encode-time 0 0 0 day month year)))))))) (when cache - (goto-char (car cache)) ; fontify from here to eol + (goto-char (+ bol (car cache))) ; Fontify from here to eol. (cdr cache)))) ; days (float) (defun vc-cvs-annotate-extract-revision-at-line () |