2 files changed, 9 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2b78da7f92e..45e1b41765a 100644
--- 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 95ed4ac2f64..7e01709ccb4 100644
--- 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))