comparison lisp/info.el @ 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.

34623:0a6636fdd569

    (cond ((and (not not-down)
		(save-excursion (search-forward "\n* menu:" nil t))
		(not (string-match "\\<index\\>" Info-current-node)))
	   (Info-goto-node (Info-extract-menu-counting 1))
	   t)
	  ((save-excursion (search-backward "next:" nil t))
	   (Info-next)
	   t)
	  ((and (save-excursion (search-backward "up:" nil t))
		;; Use string-equal, not equal, to ignore text props.
		(not (string-equal (downcase (Info-extract-pointer "up"))
				   "top")))
	   (let ((old-node Info-current-node))
	     (Info-up)

34624:1012790a4a9c

    (cond ((and (not not-down)
		(save-excursion (search-forward "\n* menu:" nil t))
		(not (string-match "\\<index\\>" Info-current-node)))
	   (Info-goto-node (Info-extract-menu-counting 1))
	   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
		  (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")))
	   (let ((old-node Info-current-node))
	     (Info-up)