# HG changeset patch
# User Eli Zaretskii <eliz@is.elta.co.il>
# Date 1076933424 0
# Node ID 818e19ae4c5ae3b91309bd8cf5a8a0ee6f75c02c
# Parent  f5cb73154f0322388c2292d1e7a46fd085b45d55
(rx-not): Bind case-fold-search to nil.

diff -r f5cb73154f03 -r 818e19ae4c5a lisp/emacs-lisp/rx.el
--- a/lisp/emacs-lisp/rx.el	Mon Feb 16 12:07:09 2004 +0000
+++ b/lisp/emacs-lisp/rx.el	Mon Feb 16 12:10:24 2004 +0000
@@ -345,7 +345,8 @@
 (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)