[elpa] 253/352: Add \< and \> to regexps in "email" language example

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 36f532cfd10bd60163720b7e1736c6ab572a2a80
Author: Teemu Likonen <address@hidden>
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 . \"address@hidden")
-     (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)