[Emacs-diffs] Changes to emacs/lisp/progmodes/vera-mode.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        07/07/20 04:11:16

Index: progmodes/vera-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/vera-mode.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- progmodes/vera-mode.el      8 Jul 2007 11:30:49 -0000       1.4
+++ progmodes/vera-mode.el      20 Jul 2007 04:11:14 -0000      1.5
@@ -844,21 +844,19 @@
 
 (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)
+  (let (ret)
+    (while (and (setq ret (re-search-forward regexp bound noerror))
              (vera-skip-forward-literal)
-             (progn (store-match-data '(nil nil))
-                    (if bound (< (point) bound) t))))
-  (match-end 0))
+                (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)
+  (let (ret)
+    (while (and (setq ret (re-search-backward regexp bound noerror))
              (vera-skip-backward-literal)
-             (progn (store-match-data '(nil nil))
-                    (if bound (> (point) bound) t))))
-  (match-end 0))
+                (if bound (> (point) bound) t)))
+    ret))
 
 (defun vera-forward-syntactic-ws (&optional lim skip-directive)
   "Forward skip of syntactic whitespace."