* info.el (Info-index-next): Decrement line number by 2. (Bug#5652)

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7beebd130b1..607154f9c3c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/info.el b/lisp/info.el
index 93001496b5c..690fa4ff8e0 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3062,7 +3062,7 @@ Give an empty topic name to go to the Index node itself."
           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)))