mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Eli Zaretskii 2004-02-16 12:12:02 +00:00
parent f800daf646
commit 062a9fce99
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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> 2004-02-16 Richard Stallman <rms@gnu.org>
* Makefile.in (TAGS, TAGS-LISP): Filter out of `els' only * Makefile.in (TAGS, TAGS-LISP): Filter out of `els' only

3
lisp/emacs-lisp/rx.el
View file

@ -345,7 +345,8 @@ matches anything."
(defun rx-not (form) (defun rx-not (form)
"Parse and produce code from FORM. FORM is `(not ...)'." "Parse and produce code from FORM. FORM is `(not ...)'."
(rx-check form) (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) (cond ((string-match "\\`\\[^" result)
(if (= (length result) 4) (if (= (length result) 4)
(substring result 2 3) (substring result 2 3)