Mercurial > emacs

changeset 104837:6c2939592100

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-rcs-annotate-command): Use forward-line rather than goto-line.
author Glenn Morris <rgm@gnu.org>
date Fri, 04 Sep 2009 02:49:07 +0000
parents 629a32caa79e
children 27450b6f6cf7
files lisp/ChangeLog lisp/vc-rcs.el
diffstat 2 files changed, 9 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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):
--- 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))