diff options
author | Eli Zaretskii <[email protected]> | 2004-02-16 12:12:02 +0000 |
---|---|---|
committer | Eli Zaretskii <[email protected]> | 2004-02-16 12:12:02 +0000 |
commit | 062a9fce996bb58d9b23e1f7ce2f3de201e6f416 (patch) | |
tree | b31a73d110ec567b1cdecfd0c8f1fe34f9bc7374 /lisp | |
parent | f800daf64628e8c8df0913ff60d0ec0b692ce3fa (diff) |
(rx-not): Bind case-fold-search to nil.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/emacs-lisp/rx.el | 3 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 74846600c0..3f63f8e9ec 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2004-02-16 Dave Love <[email protected]> + + * emacs-lisp/rx.el (rx-not): Bind case-fold-search to nil. + 2004-02-16 Richard Stallman <[email protected]> * 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 bc16a84b15..c6f9ce6f4a 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) |