# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1184039454 0
# Node ID f1d802f344137bcaf161952935cd557391b7b657
# Parent  f5f311fab8e43ccacd32a95756be3078788e940d
(looking-at-p, string-match-p): New functions.

diff -r f5f311fab8e4 -r f1d802f34413 lisp/subr.el
--- a/lisp/subr.el	Tue Jul 10 03:49:44 2007 +0000
+++ b/lisp/subr.el	Tue Jul 10 03:50:54 2007 +0000
@@ -2668,6 +2668,18 @@
 	    (looking-at (concat "\\(?:"  regexp "\\)\\'")))))
     (not (null pos))))
 
+(defsubst looking-at-p (regexp)
+  "\
+Same as `looking-at' except this function does not change the match data."
+  (let ((inhibit-changing-match-data t))
+    (looking-at regexp)))
+
+(defsubst string-match-p (regexp string &optional start)
+  "\
+Same as `string-match' except this function does not change the match data."
+  (let ((inhibit-changing-match-data t))
+    (string-match regexp string start)))
+
 (defun subregexp-context-p (regexp pos &optional start)
   "Return non-nil if POS is in a normal subregexp context in REGEXP.
 A subregexp context is one where a sub-regexp can appear.