mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 07:01:11 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 2007-07-10 03:54:30 +00:00
parent ef8878109c
commit 45595a4fae
3 changed files with 28 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

3
etc/NEWS
View file

@ -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

22
lisp/ChangeLog
View file

@ -1,13 +1,6 @@
2007-07-08 Katsumi Yamaoka <yamaoka@jpl.org>
2007-07-10 Guanpeng Xu <herberteuler@hotmail.com>
* 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.
* 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.

12
lisp/subr.el
View file

@ -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.