From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 10 Jul 2007 03:54:30 +0000 (+0000)
Subject: (looking-at-p, string-match-p): New functions.
X-Git-Tag: emacs-pretest-23.0.90~11983
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=45595a4fae2dd3c322bd8991dcc2bdc42dcb00bc;p=emacs.git

(looking-at-p, string-match-p): New functions.
---

diff --git a/etc/NEWS b/etc/NEWS
index 290fe0f6c7b..4323f6ff1cf 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -131,6 +131,9 @@ but obeys file handlers.  The file handler is chosen based on
 With this paramter passed non-nil, it is checked whether a remote
 connection has been established already.
 
+** The two new functions `looking-at-p' and `string-match-p' can do
+the same matching as `looking-at' and `string-match' without changing
+the match data.
 
 * New Packages for Lisp Programming in Emacs 23.1
 
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 58cfca107cb..4a95fd8d96d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,13 +1,6 @@
-2007-07-08  Katsumi Yamaoka  <yamaoka@jpl.org>
-
-	* cus-start.el (file-coding-system-alist): Fix custom type.
-
-2007-07-08  Chong Yidong  <cyd@stupidchicken.com>
+2007-07-10  Guanpeng Xu  <herberteuler@hotmail.com>
 
-	* longlines.el (longlines-wrap-region): Avoid marking buffer as
-	modified.
-	(longlines-auto-wrap, longlines-window-change-function): Remove
-	unnecessary calls to set-buffer-modified-p.
+	* subr.el (looking-at-p, string-match-p): New functions.
 
 2007-07-09  Reiner Steib  <Reiner.Steib@gmx.de>
 
@@ -31,6 +24,17 @@
 
 	* cus-start.el (file-coding-system-alist): Fix custom type.
 
+2007-07-08  Chong Yidong  <cyd@stupidchicken.com>
+
+	* longlines.el (longlines-wrap-region): Avoid marking buffer as
+	modified.
+	(longlines-auto-wrap, longlines-window-change-function): Remove
+	unnecessary calls to set-buffer-modified-p.
+
+2007-07-08  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* cus-start.el (file-coding-system-alist): Fix custom type.
+
 2007-07-08  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* vc-cvs.el (vc-cvs-revert): Use vc-default-revert.
diff --git a/lisp/subr.el b/lisp/subr.el
index f890caf66e4..3804624b0b9 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2668,6 +2668,18 @@ of a match for REGEXP."
 	    (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.