aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1998-06-29 18:34:24 +0000
committerRichard M. Stallman1998-06-29 18:34:24 +0000
commite99452648333d412a1b4dfb8b159e540cfb47e04 (patch)
tree086eb087e5bd77e01ee20eb6ad86355a96f46668
parent5bc3ed3e8f69f8e38b0d7c736b7eb290fcc0f6c8 (diff)
downloademacs-e99452648333d412a1b4dfb8b159e540cfb47e04.tar.gz
emacs-e99452648333d412a1b4dfb8b159e540cfb47e04.zip
(Info-find-node): Use byte-to-position.
-rw-r--r--lisp/info.el4
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."
463 ;; above. 463 ;; above.
464 (setq guesspos (Info-read-subfile guesspos)))) 464 (setq guesspos (Info-read-subfile guesspos))))
465 (error "No such node: %s" nodename))))) 465 (error "No such node: %s" nodename)))))
466 (goto-char (max (point-min) (- guesspos 1000))) 466 (goto-char (max (point-min) (- (byte-to-position guesspos) 1000)))
467 ;; Now search from our advised position (or from beg of buffer) 467 ;; Now search from our advised position (or from beg of buffer)
468 ;; to find the actual node. 468 ;; to find the actual node.
469 (catch 'foo 469 (catch 'foo
@@ -637,6 +637,8 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
637 637
638;; Note that on entry to this function the current-buffer must be the 638;; Note that on entry to this function the current-buffer must be the
639;; *info* buffer; not the info tags buffer. 639;; *info* buffer; not the info tags buffer.
640;; nodepos should be a byte-position such as is found in
641;; the Info file tags table.
640(defun Info-read-subfile (nodepos) 642(defun Info-read-subfile (nodepos)
641 ;; NODEPOS is either a position (in the Info file as a whole, 643 ;; NODEPOS is either a position (in the Info file as a whole,
642 ;; not relative to a subfile) or the name of a subfile. 644 ;; not relative to a subfile) or the name of a subfile.