# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1267564546 -7200
# Node ID f220632d1439d3b427011e1dcf9f4b05cef35134
# Parent  9b814b3ee348e9b48cfa5bbe66f4245f91847854
* info.el (Info-index-next): Decrement line number by 2.  (Bug#5652)

diff -r 9b814b3ee348 -r f220632d1439 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Mar 02 22:35:44 2010 +0200
+++ b/lisp/ChangeLog	Tue Mar 02 23:15:46 2010 +0200
@@ -1,3 +1,7 @@
+2010-03-02  Juri Linkov  <juri@jurta.org>
+
+	* info.el (Info-index-next): Decrement line number by 2.  (Bug#5652)
+
 2010-03-02  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp.el (tramp-do-copy-or-rename-file-out-of-band): Fix an
diff -r 9b814b3ee348 -r f220632d1439 lisp/info.el
--- a/lisp/info.el	Tue Mar 02 22:35:44 2010 +0200
+++ b/lisp/info.el	Tue Mar 02 23:15:46 2010 +0200
@@ -3062,7 +3062,7 @@
 	  num (1- num)))
   (Info-goto-node (nth 1 (car Info-index-alternatives)))
   (if (> (nth 3 (car Info-index-alternatives)) 0)
-      (forward-line (1- (nth 3 (car Info-index-alternatives))))
+      (forward-line (- (nth 3 (car Info-index-alternatives)) 2))
     (forward-line 3)			; don't search in headers
     (let ((name (car (car Info-index-alternatives))))
       (Info-find-index-name name)))