From e99452648333d412a1b4dfb8b159e540cfb47e04 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 29 Jun 1998 18:34:24 +0000 Subject: [PATCH] (Info-find-node): Use byte-to-position. --- lisp/info.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/info.el b/lisp/info.el index a73780a16c4..8657186dd4e 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -463,7 +463,7 @@ In standalone mode, \\\\[Info-exit] exits Emacs itself." ;; above. (setq guesspos (Info-read-subfile guesspos)))) (error "No such node: %s" nodename))))) - (goto-char (max (point-min) (- guesspos 1000))) + (goto-char (max (point-min) (- (byte-to-position guesspos) 1000))) ;; Now search from our advised position (or from beg of buffer) ;; to find the actual node. (catch 'foo @@ -637,6 +637,8 @@ In standalone mode, \\\\[Info-exit] exits Emacs itself." ;; Note that on entry to this function the current-buffer must be the ;; *info* buffer; not the info tags buffer. +;; nodepos should be a byte-position such as is found in +;; the Info file tags table. (defun Info-read-subfile (nodepos) ;; NODEPOS is either a position (in the Info file as a whole, ;; not relative to a subfile) or the name of a subfile. -- 2.39.5