# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 970151636 0
# Node ID bd3d00aa97bf58e527f7e7550d0da19f9c2423b6
# Parent  6fc3061bed75ca496ea59c00ed7e2a62d4d2d08d
(Info-extract-pointer): Undo last change.
Instead, fix the position of the `bound' arg to re-search-backward.

diff -r 6fc3061bed75 -r bd3d00aa97bf lisp/info.el
--- a/lisp/info.el	Thu Sep 28 14:25:03 2000 +0000
+++ b/lisp/info.el	Thu Sep 28 14:33:56 2000 +0000
@@ -1144,13 +1144,11 @@
 	(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))