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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 74846600c088f31b461af2d42f89db2c81ea3057..3f63f8e9ecb7ff2d775bcbc9f59db9577f4f2cbb 100644 (file)
--- 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 bc16a84b156da327535fafbabe44dcbb561536ba..c6f9ce6f4a698837d5312d612b883d69dd6c3970 100644 (file)
--- 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)