Mercurial > emacs
changeset 34624:1012790a4a9c
(Info-forward-node): If the node has an
Info-header-line, widen the buffer before searching for "next:"
and "up:" pointers, and set the search limit to stay in the
current node.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 15 Dec 2000 22:00:28 +0000 |
| parents | 0a6636fdd569 |
| children | 5b401d1f68e7 |
| files | lisp/info.el |
| diffstat | 1 files changed, 20 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Fri Dec 15 17:14:56 2000 +0000 +++ b/lisp/info.el Fri Dec 15 22:00:28 2000 +0000 @@ -1521,10 +1521,28 @@ (not (string-match "\\<index\\>" Info-current-node))) (Info-goto-node (Info-extract-menu-counting 1)) t) - ((save-excursion (search-backward "next:" nil t)) + ((save-excursion + (save-restriction + (let (limit) + (when Info-header-line + (goto-char (point-min)) + (widen) + (forward-line -1) + (setq limit (point)) + (forward-line 1)) + (search-backward "next:" limit t)))) (Info-next) t) - ((and (save-excursion (search-backward "up:" nil t)) + ((and (save-excursion + (save-restriction + (let (limit) + (when Info-header-line + (goto-char (point-min)) + (widen) + (forward-line -1) + (setq limit (point)) + (forward-line 1)) + (search-backward "up:" limit t)))) ;; Use string-equal, not equal, to ignore text props. (not (string-equal (downcase (Info-extract-pointer "up")) "top")))