monnier pushed a commit to branch master
in repository elpa.
commit 328c6eb9df74a00172ca9e19a455850d3e5c698d
Author: Teemu Likonen <[email protected]>
Date: Wed Jul 6 16:32:28 2011 +0300
Put case-fold in language options rather than email parser function
Now that language option "case-fold" is effective with checker function
(and all) change the email example in README.org so that the option is
set in language options rather than in the email checker function.
---
README.org | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/README.org b/README.org
index 80437d7..68e0ded 100644
--- a/README.org
+++ b/README.org
@@ -287,6 +287,7 @@ start composing mail to that address. Here's the language
configuration:
("email"
(program . email-address-detect)
(face . highlight)
+ (case-fold . t)
(regexp-start . "\\<")
(regexp-body . "\\S-+@\\S-+")
(regexp-end . "\\>")
@@ -299,8 +300,7 @@ Then the needed functions:
#+BEGIN_SRC emacs-lisp
(defun email-address-detect (strings)
- (let ((case-fold-search t)
- addresses)
+ (let (addresses)
(dolist (string strings addresses)
(when (string-match "\\<[a-z.-]+\\>@\\<[a-z.-]+\\>" string)
(push (match-string-no-properties 0 string) addresses)))))
