procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(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

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

@ -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)