Mercurial > emacs

diff lisp/emacs-lisp/rx.el @ 53974:818e19ae4c5a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rx-not): Bind case-fold-search to nil.
author Eli Zaretskii <eliz@is.elta.co.il>
date Mon, 16 Feb 2004 12:10:24 +0000
parents d5c1eeaa97e2
children c5c237251824
line wrap: on
line diff
--- 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)