# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 850030675 0
# Node ID ee85ec2c420382727a98821cc3cc3ad226b7ae2a
# Parent  960c425726cbbd0a773a451f5689fb5c53b304c2
(Info-get-token): Find tokens where START matches

diff -r 960c425726cb -r ee85ec2c4203 lisp/info.el
--- a/lisp/info.el	Sat Dec 07 22:47:59 1996 +0000
+++ b/lisp/info.el	Sun Dec 08 07:37:55 1996 +0000
@@ -1471,7 +1471,16 @@
     a string: signal an error, using that string."
   (save-excursion
     (goto-char pos)
-    (re-search-backward start (max (point-min) (- pos 200)) 'yes)
+    ;; First look for a match for START that goes across POS.
+    (while (and (not (bobp)) (> (point) (- pos (length start)))
+		(not (looking-at start)))
+      (forward-char -1))
+    ;; If we did not find one, search back for START
+    ;; (this finds only matches that end at or before POS).
+    (or (looking-at start)
+	(progn
+	  (goto-char pos)
+	  (re-search-backward start (max (point-min) (- pos 200)) 'yes)))
     (let (found)
       (while (and (re-search-forward all (min (point-max) (+ pos 200)) 'yes)
 		  (not (setq found (and (<= (match-beginning 0) pos)