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
e59a8453
Commit
e59a8453
authored
Jul 22, 1992
by
Richard M. Stallman
Browse files
entered into RCS
parent
58142744
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
19 additions
and
0 deletions
+19
-0
src/search.c
src/search.c
+19
-0
No files found.
src/search.c
View file @
e59a8453
...
...
@@ -227,6 +227,25 @@ matched by parenthesis constructs in the pattern.")
if
(
val
<
0
)
return
Qnil
;
return
make_number
(
val
);
}
/* Match REGEXP against STRING, searching all of STRING,
and return the index of the match, or negative on failure.
This does not clobber the match data. */
int
fast_string_match
(
regexp
,
string
)
Lisp_Object
regexp
,
string
;
{
int
val
;
compile_pattern
(
regexp
,
&
searchbuf
,
0
,
0
);
immediate_quit
=
1
;
val
=
re_search
(
&
searchbuf
,
(
char
*
)
XSTRING
(
string
)
->
data
,
XSTRING
(
string
)
->
size
,
0
,
XSTRING
(
string
)
->
size
,
0
);
immediate_quit
=
0
;
return
val
;
}
/* Search for COUNT instances of the character TARGET, starting at START.
If COUNT is negative, search backwards.
...
...
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