mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(vera-re-search-forward, vera-re-search-backward):

Browse source 
Remove use of store-match-data.
This commit is contained in:
Stefan Monnier 2007-07-20 04:11:14 +00:00
parent 8ebbfc80ba
commit ceb19436aa
2 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
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.
(flymake-find-buildfile): Use locate-dominating-file.

22
lisp/progmodes/vera-mode.el
View file

@ -844,21 +844,19 @@ This function does not modify point or mark."
(defsubst vera-re-search-forward (regexp &optional bound noerror)
"Like `re-search-forward', but skips over matches in literals."
(store-match-data '(nil nil))
(while (and (re-search-forward regexp bound noerror)
(vera-skip-forward-literal)
(progn (store-match-data '(nil nil))
(if bound (< (point) bound) t))))
(match-end 0))
(let (ret)
(while (and (setq ret (re-search-forward regexp bound noerror))
(vera-skip-forward-literal)
(if bound (< (point) bound) t)))
ret))
(defsubst vera-re-search-backward (regexp &optional bound noerror)
"Like `re-search-backward', but skips over matches in literals."
(store-match-data '(nil nil))
(while (and (re-search-backward regexp bound noerror)
(vera-skip-backward-literal)
(progn (store-match-data '(nil nil))
(if bound (> (point) bound) t))))
(match-end 0))
(let (ret)
(while (and (setq ret (re-search-backward regexp bound noerror))
(vera-skip-backward-literal)
(if bound (> (point) bound) t)))
ret))
(defun vera-forward-syntactic-ws (&optional lim skip-directive)
"Forward skip of syntactic whitespace."