(Info-find-node): Cope better if guesspos is too large.

diff --git a/lisp/info.el b/lisp/info.el
index 4a7eea2bca1d0020f8d0c10b8ec4dd221559df93..94c71c2f841f067e10d95073eb02e58e22677dcf 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -527,8 +527,13 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
                      (goto-char (setq anchorpos guesspos))
 
                     ;; Else we may have a node, which we search for:
-                   (goto-char (max (point-min)
-                                   (- (byte-to-position guesspos) 1000)))
+                   (let ((guesschar
+                          (or (byte-to-position guesspos)
+                              (if (< (position-bytes (point-max)) guesspos)
+                                  (point-max)
+                                (point-min)))))
+                     (goto-char (max (point-min)
+                                     (- guesschar 1000))))
                     ;; Now search from our advised position
                     ;; (or from beg of buffer)
                     ;; to find the actual node.