diff options
| -rw-r--r-- | lisp/info.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/info.el b/lisp/info.el index 4a7eea2bca1..94c71c2f841 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -527,8 +527,13 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself." | |||
| 527 | (goto-char (setq anchorpos guesspos)) | 527 | (goto-char (setq anchorpos guesspos)) |
| 528 | 528 | ||
| 529 | ;; Else we may have a node, which we search for: | 529 | ;; Else we may have a node, which we search for: |
| 530 | (goto-char (max (point-min) | 530 | (let ((guesschar |
| 531 | (- (byte-to-position guesspos) 1000))) | 531 | (or (byte-to-position guesspos) |
| 532 | (if (< (position-bytes (point-max)) guesspos) | ||
| 533 | (point-max) | ||
| 534 | (point-min))))) | ||
| 535 | (goto-char (max (point-min) | ||
| 536 | (- guesschar 1000)))) | ||
| 532 | ;; Now search from our advised position | 537 | ;; Now search from our advised position |
| 533 | ;; (or from beg of buffer) | 538 | ;; (or from beg of buffer) |
| 534 | ;; to find the actual node. | 539 | ;; to find the actual node. |