monnier pushed a commit to branch master
in repository elpa.
commit 36f532cfd10bd60163720b7e1736c6ab572a2a80
Author: Teemu Likonen <[email protected]>
Date: Sat Jun 25 08:58:02 2011 +0300
Add \< and \> to regexps in "email" language example
---
wcheck-mode.el | 7 +++----
1 files changed, 3 insertions(+), 4 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index 5986b0f..ecef905 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -694,9 +694,9 @@ language configuration:
(\"email\"
(program . email-address-detect)
(face . highlight)
- (regexp-start . \"\")
+ (regexp-start . \"\\\\=\\<\")
(regexp-body . \"\\\\S-+@\\\\S-+\")
- (regexp-end . \"\")
+ (regexp-end . \"\\\\=\\>\")
(action-program . email-action-menu)
(read-or-skip-faces
(nil)))
@@ -707,8 +707,7 @@ Then the needed functions:
(let (addresses)
(dolist (string strings addresses)
(when (string-match \"\
-\\\\=\\<[a-z.-]+\\\\=\\>@\\\\=\\<[a-z.-]+\\\\=\\>\"
- string)
+\\\\=\\<[a-z.-]+\\\\=\\>@\\\\=\\<[a-z.-]+\\\\=\\>\" string)
(push (match-string-no-properties 0 string) addresses)))))
(defun email-action-menu (marked-text)
