From: Juri Linkov <juri@jurta.org>
Date: Sun, 5 May 2013 08:48:44 +0000 (+0300)
Subject: * lisp/info.el (Info-read-subfile): Use (point-min) instead of (point)
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~304
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d44014cb5dc85973be34d1d3392b3f6441ef945f;p=emacs.git

* lisp/info.el (Info-read-subfile): Use (point-min) instead of (point)
to not add the length of the summary segment to the return value.

Fixes: debbugs:14125
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f7aa1d48fa0..77c6f0b450a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-05-05  Juri Linkov  <juri@jurta.org>
+
+	* info.el (Info-read-subfile): Use (point-min) instead of (point)
+	to not add the length of the summary segment to the return value.
+	(Bug#14125)
+
 2013-05-05  Leo Liu  <sdl.web@gmail.com>
 
 	* progmodes/octave.el (inferior-octave-strip-ctrl-g)
diff --git a/lisp/info.el b/lisp/info.el
index 58ebf0b17da..f67dc9ab987 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1530,11 +1530,14 @@ a case-insensitive match is tried."
     ;; Widen in case we are in the same subfile as before.
     (widen)
     (goto-char (point-min))
+    ;; Skip the summary segment for `Info-search'.
     (if (looking-at "\^_")
 	(forward-char 1)
       (search-forward "\n\^_"))
+    ;; Don't add the length of the skipped summary segment to
+    ;; the value returned to `Info-find-node-2'.  (Bug#14125)
     (if (numberp nodepos)
-	(+ (- nodepos lastfilepos) (point)))))
+	(+ (- nodepos lastfilepos) (point-min)))))
 
 (defun Info-unescape-quotes (value)
   "Unescape double quotes and backslashes in VALUE."