changeset 107322:f220632d1439

* info.el (Info-index-next): Decrement line number by 2. (Bug#5652)
author Juri Linkov <juri@jurta.org>
date Tue, 02 Mar 2010 23:15:46 +0200
parents 9b814b3ee348
children ebc10ed88b5c
files lisp/ChangeLog lisp/info.el
diffstat 2 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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)))