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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7beebd130b11a1fc08854558328d21afa06ad3d5..607154f9c3c5807959bd311d33417b0bb79bee8b 100644 (file)
--- 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 93001496b5c024a056405ecf292233b686fc2fcb..690fa4ff8e05e8f5e0c993c36892ee5a2e671511 100644 (file)
--- 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)))