diff options
| -rw-r--r-- | lisp/info.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/info.el b/lisp/info.el index 690fa4ff8e0..a1ce05d6292 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -3062,6 +3062,8 @@ 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 2 lines less because `Info-find-node-2' initially | ||
| 3066 | ;; puts point to the 2nd line. | ||
| 3065 | (forward-line (- (nth 3 (car Info-index-alternatives)) 2)) | 3067 | (forward-line (- (nth 3 (car Info-index-alternatives)) 2)) |
| 3066 | (forward-line 3) ; don't search in headers | 3068 | (forward-line 3) ; don't search in headers |
| 3067 | (let ((name (car (car Info-index-alternatives)))) | 3069 | (let ((name (car (car Info-index-alternatives)))) |