[Emacs-diffs] emacs/lisp ChangeLog diff-mode.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/08/24 17:11:23

Modified files:
        lisp           : ChangeLog diff-mode.el 

Log message:
        (diff-find-source-location): Avoid goto-line.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16001&r2=1.16002
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/diff-mode.el?cvsroot=emacs&r1=1.159&r2=1.160

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16001
retrieving revision 1.16002
diff -u -b -r1.16001 -r1.16002
--- ChangeLog   24 Aug 2009 11:43:59 -0000      1.16001
+++ ChangeLog   24 Aug 2009 17:11:20 -0000      1.16002
@@ -1,3 +1,7 @@
+2009-08-24  Stefan Monnier  <address@hidden>
+
+       * diff-mode.el (diff-find-source-location): Avoid goto-line.
+
 2009-08-24  Kenichi Handa  <address@hidden>
 
        * language/ind-util.el (mapthread): Delete it.

Index: diff-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/diff-mode.el,v
retrieving revision 1.159
retrieving revision 1.160
diff -u -b -r1.159 -r1.160
--- diff-mode.el        21 Apr 2009 07:19:05 -0000      1.159
+++ diff-mode.el        24 Aug 2009 17:11:23 -0000      1.160
@@ -1598,7 +1598,7 @@
       (when (> (prefix-numeric-value other-file) 8)
        (setq diff-jump-to-old-file other))
       (with-current-buffer buf
-       (goto-line (string-to-number line))
+        (goto-char (point-min)) (forward-line (1- (string-to-number line)))
        (let* ((orig-pos (point))
               (switched nil)
               ;; FIXME: Check for case where both OLD and NEW are found.