Commit b24e84ab authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(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.
parent e87b8809
2000-12-15 Eli Zaretskii <eliz@is.elta.co.il>
* info.el (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.
2000-12-16 Miles Bader <miles@gnu.org>
* simple.el (delete-trailing-whitespace): Remove extraneous let.
......
......@@ -1521,10 +1521,28 @@ N is the digit argument used to invoke this command."
(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")))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment