From: Eli Zaretskii <eliz@is.elta.co.il>
Date: Mon, 16 Feb 2004 12:12:02 +0000 (+0000)
Subject: (rx-not): Bind case-fold-search to nil.
X-Git-Tag: ttn-vms-21-2-B4~7607
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=062a9fce996bb58d9b23e1f7ce2f3de201e6f416;p=emacs.git

(rx-not): Bind case-fold-search to nil.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 74846600c08..3f63f8e9ecb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-02-16  Dave Love  <fx@gnu.org>
+
+	* emacs-lisp/rx.el (rx-not): Bind case-fold-search to nil.
+
 2004-02-16  Richard Stallman  <rms@gnu.org>
 
 	* Makefile.in (TAGS, TAGS-LISP): Filter out of `els' only
diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el
index bc16a84b156..c6f9ce6f4a6 100644
--- a/lisp/emacs-lisp/rx.el
+++ b/lisp/emacs-lisp/rx.el
@@ -345,7 +345,8 @@ matches anything."
 (defun rx-not (form)
   "Parse and produce code from FORM.  FORM is `(not ...)'."
   (rx-check form)
-  (let ((result (rx-to-string (cadr form) 'no-group)))
+  (let ((result (rx-to-string (cadr form) 'no-group))
+	case-fold-search)
     (cond ((string-match "\\`\\[^" result)
 	   (if (= (length result) 4)
 	       (substring result 2 3)