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

2 files changed, 6 insertions, 1 deletions

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)