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 + + * info.el (Info-index-next): Decrement line number by 2. (Bug#5652) + 2010-03-02 Michael Albinus * 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)))