Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
373377ed
Commit
373377ed
authored
May 31, 1993
by
Richard M. Stallman
Browse files
(Info-get-token): Check that thesecond search succeeded.
parent
e8544af2
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
13 deletions
+14
-13
lisp/info.el
lisp/info.el
+14
-13
No files found.
lisp/info.el
View file @
373377ed
...
...
@@ -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.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment