diff options
author | Stefan Monnier <[email protected]> | 2000-09-28 14:33:56 +0000 |
---|---|---|
committer | Stefan Monnier <[email protected]> | 2000-09-28 14:33:56 +0000 |
commit | c1699282747164d60c10b5284fd8c70f8a50b725 (patch) | |
tree | e9804b1989f6021cc575629ead8dcbff4039ddf9 /lisp/info.el | |
parent | a3de91cd404f33885c3a24ffca55a182bd067f05 (diff) |
(Info-extract-pointer): Undo last change.
Instead, fix the position of the `bound' arg to re-search-backward.
Diffstat (limited to 'lisp/info.el')
-rw-r--r-- | lisp/info.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/info.el b/lisp/info.el index 661087236a..34e3a92bd2 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)) |