Mercurial > emacs
changeset 53974:818e19ae4c5a
(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 | f5cb73154f03 |
| children | 936f24893696 |
| files | lisp/emacs-lisp/rx.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
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)