[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog vc-rcs.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog vc-rcs.el |
Date: |
Fri, 04 Sep 2009 02:49:10 +0000 |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog vc-rcs.el,
Glenn Morris <=