diff options
| author | Juri Linkov | 2010-03-03 21:23:20 +0200 |
|---|---|---|
| committer | Juri Linkov | 2010-03-03 21:23:20 +0200 |
| commit | 3bc71084dd6371bb4a0e76a72fb5627e9476e7a5 (patch) | |
| tree | 727bb39ccfe0ed275bff6edc2fcb50e85b367408 | |
| parent | 233f0c9f8786570011d784056a65c5195fb6020f (diff) | |
| download | emacs-3bc71084dd6371bb4a0e76a72fb5627e9476e7a5.tar.gz emacs-3bc71084dd6371bb4a0e76a72fb5627e9476e7a5.zip | |
Add a comment for the previous commit.
| -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)))) |