Mercurial > emacs
changeset 22643:4f99ccb85f3a
(Info-find-node): Use byte-to-position.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 29 Jun 1998 18:34:24 +0000 |
parents | f392093d562d |
children | 5f67eacb5c04 |
files | lisp/info.el |
diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Mon Jun 29 17:29:15 1998 +0000 +++ b/lisp/info.el Mon Jun 29 18:34:24 1998 +0000 @@ -463,7 +463,7 @@ ;; 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 @@ ;; 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.