diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/info.el | 2 |
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 @@ | |||
| 1 | 2010-03-02 Juri Linkov <juri@jurta.org> | ||
| 2 | |||
| 3 | * info.el (Info-index-next): Decrement line number by 2. (Bug#5652) | ||
| 4 | |||
| 1 | 2010-03-02 Michael Albinus <michael.albinus@gmx.de> | 5 | 2010-03-02 Michael Albinus <michael.albinus@gmx.de> |
| 2 | 6 | ||
| 3 | * net/tramp.el (tramp-do-copy-or-rename-file-out-of-band): Fix an | 7 | * 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." | |||
| 3062 | num (1- num))) | 3062 | num (1- num))) |
| 3063 | (Info-goto-node (nth 1 (car Info-index-alternatives))) | 3063 | (Info-goto-node (nth 1 (car Info-index-alternatives))) |
| 3064 | (if (> (nth 3 (car Info-index-alternatives)) 0) | 3064 | (if (> (nth 3 (car Info-index-alternatives)) 0) |
| 3065 | (forward-line (1- (nth 3 (car Info-index-alternatives)))) | 3065 | (forward-line (- (nth 3 (car Info-index-alternatives)) 2)) |
| 3066 | (forward-line 3) ; don't search in headers | 3066 | (forward-line 3) ; don't search in headers |
| 3067 | (let ((name (car (car Info-index-alternatives)))) | 3067 | (let ((name (car (car Info-index-alternatives)))) |
| 3068 | (Info-find-index-name name))) | 3068 | (Info-find-index-name name))) |