From c1699282747164d60c10b5284fd8c70f8a50b725 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 28 Sep 2000 14:33:56 +0000 Subject: [PATCH] (Info-extract-pointer): Undo last change. Instead, fix the position of the `bound' arg to re-search-backward. --- lisp/info.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index 661087236ab..34e3a92bd28 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -1144,13 +1144,11 @@ Bind this in case the user sets it to nil." (goto-char (point-min)) (when Info-header-line ;; expose the header line in the buffer - (let ((end (point-max))) - (widen) - (forward-line -1) - (narrow-to-region (point) end))) + (widen) + (forward-line -1)) (let ((bound (point))) (forward-line 1) - (cond ((re-search-backward (concat name ":") nil bound) + (cond ((re-search-backward (concat name ":") bound t) (goto-char (match-end 0)) (Info-following-node-name)) ((not (eq errorname t)) -- 2.39.5