mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

(looking-back): New function to check for regular expression before point.

Browse Source
This commit is contained in:
Juanma Barranquero 2003-05-30 23:11:35 +00:00
parent a44c6ff342
commit 498535fbfc
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/subr.el
View File

@ -1820,6 +1820,19 @@ STRING should be given if the last search was by `string-match' on STRING."
(buffer-substring-no-properties (match-beginning num)
(match-end num)))))
(defun looking-back (regexp)
"Return t if text before point matches regular expression REGEXP.
This function modifies the match data that `match-beginning',
`match-end' and `match-data' access; save and restore the match
data if you want to preserve them."
(save-excursion
(let ((beg (point)))
(if (re-search-backward regexp nil t)
(if (= (match-end 0) beg)
t
nil)
nil))))
(defconst split-string-default-separators "[ \f\t\n\r\v]+"
"The default value of separators for `split-string'.