Mercurial > emacs
diff lisp/vc-rcs.el @ 104837:6c2939592100
(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 | adeed914a5fb |
children | b3c2589ed19e |
line wrap: on
line diff
--- 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))