From: Juri Linkov <juri@jurta.org>
Date: Sun, 18 Sep 2011 19:49:13 +0000 (+0300)
Subject: * lisp/info.el (Info-file-supports-index-cookies): Increment
X-Git-Tag: emacs-pretest-24.0.90~96
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c9384295aa5f189930013c80955748604d10dd52;p=emacs.git

* lisp/info.el (Info-file-supports-index-cookies): Increment
line-beginning-position's arg from 3 to 4 because makeinfo outputs
one more line for long file names.

Fixes: debbugs:4142
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 459e360c8d7..62cdd4d61c9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-09-18  Juri Linkov  <juri@jurta.org>
+
+	* info.el (Info-file-supports-index-cookies): Increment
+	line-beginning-position's arg from 3 to 4 because makeinfo outputs
+	one more line for long file names (bug#4142).
+
 2011-09-18  Chong Yidong  <cyd@stupidchicken.com>
 
 	* newcomment.el (comment-normalize-vars): If prompting for
diff --git a/lisp/info.el b/lisp/info.el
index 40959885edb..42278621bbc 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -540,7 +540,7 @@ in `Info-file-supports-index-cookies-list'."
 	  (condition-case ()
 	      (if (and (re-search-forward
 			"makeinfo[ \n]version[ \n]\\([0-9]+.[0-9]+\\)"
-			(line-beginning-position 3) t)
+			(line-beginning-position 4) t)
 		       (not (version< (match-string 1) "4.7")))
 		  (setq found t))
 	    (error nil))