# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1252032547 0
# Node ID 6c293959210016f3b45e673c4c2745bf554ad1f0
# Parent  629a32caa79ee5ce98c92e5ef1279cec90516085
(vc-rcs-annotate-command): Use forward-line rather than goto-line.

diff -r 629a32caa79e -r 6c2939592100 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Sep 04 02:47:26 2009 +0000
+++ b/lisp/ChangeLog	Fri Sep 04 02:49:07 2009 +0000
@@ -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 -r 629a32caa79e -r 6c2939592100 lisp/vc-rcs.el
--- a/lisp/vc-rcs.el	Fri Sep 04 02:47:26 2009 +0000
+++ b/lisp/vc-rcs.el	Fri Sep 04 02:49:07 2009 +0000
@@ -686,7 +686,8 @@
         ;; 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 @@
                  (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))