From 7187cdaef8a35b0d1338953230fc25dda4c30bbb Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 2 Mar 2010 23:15:46 +0200 Subject: [PATCH] * info.el (Info-index-next): Decrement line number by 2. (Bug#5652) --- lisp/ChangeLog | 4 ++++ lisp/info.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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))) -- 2.39.2