From f76a97563cede4e840084ee5b5f7e344c610011a Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 4 Sep 2009 02:49:07 +0000 Subject: [PATCH] (vc-rcs-annotate-command): Use forward-line rather than goto-line. --- lisp/ChangeLog | 5 +++++ lisp/vc-rcs.el | 6 ++++-- 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 + + * vc-rcs.el (vc-rcs-annotate-command): Use forward-line rather than + goto-line. + 2009-09-03 Glenn Morris * 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)) -- 2.39.5