(vc-rcs-annotate-command): Use forward-line rather than goto-line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2b78da7f92ea3cfa9e61bb932c7fe764d6e93f47..45e1b41765af9c3f79f6b76242611b64c61f9690 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-09-04  Glenn Morris  <rgm@gnu.org>
+
+       * vc-rcs.el (vc-rcs-annotate-command): Use forward-line rather than
+       goto-line.
+
 2009-09-03  Glenn Morris  <rgm@gnu.org>
 
        * arc-mode.el (archive-mode):

diff --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el
index 95ed4ac2f644eb7e4c694491e29d9b51e646f542..7e01709ccb495874af908201f949364870defcb5 100644 (file)
--- a/lisp/vc-rcs.el
+++ b/lisp/vc-rcs.el
@@ -686,7 +686,8 @@ Optional arg REVISION is a revision to annotate from."
         ;; property of this approach is ability to push instructions
         ;; onto `path' directly, w/o need to maintain rev boundaries.
         (dolist (insn (cdr (assq :insn meta)))
-          (goto-line (pop insn))
+          (goto-char (point-min))
+          (forward-line (1- (pop insn)))
           (setq p (point))
           (case (pop insn)
             (k (setq s (buffer-substring-no-properties
@@ -718,7 +719,8 @@ Optional arg REVISION is a revision to annotate from."
                  (setq meta (cdr (assoc pre revisions))
                        prda nil)
                  (dolist (insn (cdr (assq :insn meta)))
-                   (goto-line (pop insn))
+                   (goto-char (point-min))
+                   (forward-line (1- (pop insn)))
                    (case (pop insn)
                      (k (delete-region
                          (point) (progn (forward-line (car insn))