Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 10:57:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(Info-get-token): Check that thesecond search succeeded.

Browse source
This commit is contained in:
Richard M. Stallman 1993-05-31 17:56:14 +00:00
parent e8544af27e
commit 373377edfd
1 changed files with 14 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
lisp/info.el
View file

@ -1052,19 +1052,20 @@ SIG optional fourth argument, controls action on no match
(save-excursion
(goto-char pos)
(re-search-backward start (max (point-min) (- pos 200)) 'yes)
(while (and (re-search-forward all (min (point-max) (+ pos 200)) 'yes)
(not (and (<= (match-beginning 0) pos)
(> (match-end 0) pos)))))
(if (and (<= (match-beginning 0) pos)
(> (match-end 0) pos))
(buffer-substring (match-beginning 1) (match-end 1))
(cond ((null errorstring)
nil)
((eq errorstring t)
(beep)
nil)
(t
(error "No %s around position %d" errorstring pos))))))
(let (found)
(while (and (re-search-forward all (min (point-max) (+ pos 200)) 'yes)
(not (setq found (and (<= (match-beginning 0) pos)
(> (match-end 0) pos))))))
(if (and found (<= (match-beginning 0) pos)
(> (match-end 0) pos))
(buffer-substring (match-beginning 1) (match-end 1))
(cond ((null errorstring)
nil)
((eq errorstring t)
(beep)
nil)
(t
(error "No %s around position %d" errorstring pos)))))))
(defun Info-follow-nearest-node (click)
"\\<Info-mode-map>Follow a node reference near point.