[Emacs-diffs] emacs/lisp ChangeLog vc-rcs.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/04 02:49:10

Modified files:
        lisp           : ChangeLog vc-rcs.el 

Log message:
        (vc-rcs-annotate-command): Use forward-line rather than goto-line.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16091&r2=1.16092
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-rcs.el?cvsroot=emacs&r1=1.90&r2=1.91

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16091
retrieving revision 1.16092
diff -u -b -r1.16091 -r1.16092
--- ChangeLog   3 Sep 2009 06:54:57 -0000       1.16091
+++ ChangeLog   4 Sep 2009 02:49:07 -0000       1.16092
@@ -1,3 +1,8 @@
+2009-09-04  Glenn Morris  <address@hidden>
+
+       * vc-rcs.el (vc-rcs-annotate-command): Use forward-line rather than
+       goto-line.
+
 2009-09-03  Glenn Morris  <address@hidden>
 
        * arc-mode.el (archive-mode):

Index: vc-rcs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-rcs.el,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -b -r1.90 -r1.91
--- vc-rcs.el   29 Aug 2009 18:56:15 -0000      1.90
+++ vc-rcs.el   4 Sep 2009 02:49:10 -0000       1.91
@@ -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))