aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuri Linkov2010-03-03 21:23:20 +0200
committerJuri Linkov2010-03-03 21:23:20 +0200
commit3bc71084dd6371bb4a0e76a72fb5627e9476e7a5 (patch)
tree727bb39ccfe0ed275bff6edc2fcb50e85b367408
parent233f0c9f8786570011d784056a65c5195fb6020f (diff)
downloademacs-3bc71084dd6371bb4a0e76a72fb5627e9476e7a5.tar.gz
emacs-3bc71084dd6371bb4a0e76a72fb5627e9476e7a5.zip
Add a comment for the previous commit.
-rw-r--r--lisp/info.el2
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))))