* 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 f7aa1d48fa00c1b7beef3cad6fa85e8719aaa9ca..77c6f0b450a35a1c001ee513a88897862da28699 100644 (file)
--- 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 58ebf0b17dae8924ed79920c74a655a1c4d7f9b5..f67dc9ab987765ed26a9908bd4b18c5bbb28f191 100644 (file)
--- 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."