* 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

2 files changed, 10 insertions, 1 deletions

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."