mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(Info-forward-node): If the node has an

Browse source 
Info-header-line, widen the buffer before searching for "next:"
and "up:" pointers, and set the search limit to stay in the
current node.
This commit is contained in:
Eli Zaretskii 2000-12-15 22:03:05 +00:00
parent e87b880972
commit b24e84ab41
2 changed files with 27 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
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.

22
lisp/info.el
View file

@ -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")))