[Emacs-diffs] /srv/bzr/emacs/trunk r112458: * lisp/info.el (Info-read-subfile): Use (point-min) instead of (point)

[Juri Linkov]

------------------------------------------------------------
revno: 112458
fixes bug: http://debbugs.gnu.org/14125
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Sun 2013-05-05 11:48:44 +0300
message:
  * 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.
modified:
  lisp/ChangeLog
  lisp/info.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-05 04:49:27 +0000
+++ b/lisp/ChangeLog    2013-05-05 08:48:44 +0000
@@ -1,3 +1,9 @@
+2013-05-05  Juri Linkov  <address@hidden>
+
+       * 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  <address@hidden>
 
        * progmodes/octave.el (inferior-octave-strip-ctrl-g)

=== modified file 'lisp/info.el'
--- a/lisp/info.el      2013-04-12 13:56:03 +0000
+++ b/lisp/info.el      2013-05-05 08:48:44 +0000
@@ -1530,11 +1530,14 @@
     ;; 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."