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
ceb19436
Commit
ceb19436
authored
Jul 20, 2007
by
Stefan Monnier
Browse files
(vera-re-search-forward, vera-re-search-backward):
Remove use of store-match-data.
parent
8ebbfc80
Changes
2
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
13 additions
and
12 deletions
+13
-12
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/progmodes/vera-mode.el
lisp/progmodes/vera-mode.el
+10
-12
No files found.
lisp/ChangeLog
View file @
ceb19436
2007-07-20 Stefan Monnier <monnier@iro.umontreal.ca>
2007-07-20 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/vera-mode.el (vera-re-search-forward)
(vera-re-search-backward): Remove use of store-match-data.
* progmodes/flymake.el (flymake-buildfile-dirs): Remove.
* progmodes/flymake.el (flymake-buildfile-dirs): Remove.
(flymake-find-buildfile): Use locate-dominating-file.
(flymake-find-buildfile): Use locate-dominating-file.
...
...
lisp/progmodes/vera-mode.el
View file @
ceb19436
...
@@ -844,21 +844,19 @@ This function does not modify point or mark."
...
@@ -844,21 +844,19 @@ This function does not modify point or mark."
(
defsubst
vera-re-search-forward
(
regexp
&optional
bound
noerror
)
(
defsubst
vera-re-search-forward
(
regexp
&optional
bound
noerror
)
"Like `re-search-forward', but skips over matches in literals."
"Like `re-search-forward', but skips over matches in literals."
(
store-match-data
'
(
nil
nil
)
)
(
let
(
ret
)
(
while
(
and
(
re-search-forward
regexp
bound
noerror
)
(
while
(
and
(
setq
ret
(
re-search-forward
regexp
bound
noerror
)
)
(
vera-skip-forward-literal
)
(
vera-skip-forward-literal
)
(
progn
(
store-match-data
'
(
nil
nil
))
(
if
bound
(
<
(
point
)
bound
)
t
)))
(
if
bound
(
<
(
point
)
bound
)
t
))))
ret
))
(
match-end
0
))
(
defsubst
vera-re-search-backward
(
regexp
&optional
bound
noerror
)
(
defsubst
vera-re-search-backward
(
regexp
&optional
bound
noerror
)
"Like `re-search-backward', but skips over matches in literals."
"Like `re-search-backward', but skips over matches in literals."
(
store-match-data
'
(
nil
nil
)
)
(
let
(
ret
)
(
while
(
and
(
re-search-backward
regexp
bound
noerror
)
(
while
(
and
(
setq
ret
(
re-search-backward
regexp
bound
noerror
)
)
(
vera-skip-backward-literal
)
(
vera-skip-backward-literal
)
(
progn
(
store-match-data
'
(
nil
nil
))
(
if
bound
(
>
(
point
)
bound
)
t
)))
(
if
bound
(
>
(
point
)
bound
)
t
))))
ret
))
(
match-end
0
))
(
defun
vera-forward-syntactic-ws
(
&optional
lim
skip-directive
)
(
defun
vera-forward-syntactic-ws
(
&optional
lim
skip-directive
)
"Forward skip of syntactic whitespace."
"Forward skip of syntactic whitespace."
...
...
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