1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00

Make rng-xsd-check-pattern case sensitive (Bug#8516).

* nxml/rng-xsd.el (rng-xsd-check-pattern): Use case-sensitive
matching.
This commit is contained in:
Yuanle Song 2011-05-22 15:46:47 -04:00 committed by Chong Yidong
parent f3d4e0a47d
commit 92a9cc651a
2 changed files with 6 additions and 1 deletions

View file

@ -238,7 +238,7 @@ must be equal."
obj)))
(defun rng-xsd-check-pattern (str regexp convert &rest args)
(and (string-match regexp str)
(and (let ((case-fold-search nil)) (string-match regexp str))
(apply convert (cons str args))))