From 45595a4fae2dd3c322bd8991dcc2bdc42dcb00bc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 10 Jul 2007 03:54:30 +0000 Subject: (looking-at-p, string-match-p): New functions. --- lisp/subr.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'lisp/subr.el') diff --git a/lisp/subr.el b/lisp/subr.el index f890caf66e..3804624b0b 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. -- cgit v1.2.3