diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-06-29 18:34:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-06-29 18:34:24 +0000 |
| commit | e99452648333d412a1b4dfb8b159e540cfb47e04 (patch) | |
| tree | 086eb087e5bd77e01ee20eb6ad86355a96f46668 | |
| parent | 5bc3ed3e8f69f8e38b0d7c736b7eb290fcc0f6c8 (diff) | |
| download | emacs-e99452648333d412a1b4dfb8b159e540cfb47e04.tar.gz | |
(Info-find-node): Use byte-to-position.
| -rw-r--r-- | lisp/info.el | 4 |
1 files changed, 3 insertions, 1 deletions
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-mode-map>\\[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-mode-map>\\[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. |
