From d44014cb5dc85973be34d1d3392b3f6441ef945f Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 5 May 2013 11:48:44 +0300 Subject: [PATCH] * 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 --- lisp/ChangeLog | 6 ++++++ lisp/info.el | 5 ++++- 2 files changed, 10 insertions(+), 1 deletion(-) 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 + + * 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 * 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." -- 2.39.2