* 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

1 files changed, 4 insertions, 1 deletions

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