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

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

Browse source 
* 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
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2011-05-22 Yuanle Song <sylecn@gmail.com>
* nxml/rng-xsd.el (rng-xsd-check-pattern): Use case-sensitive
matching (Bug#8516).
2011-01-22 Jari Aalto <jari.aalto@cante.net> 2011-01-22 Jari Aalto <jari.aalto@cante.net>
* vc/vc-dir.el (vc-default-dir-printer): Give edited tag a * vc/vc-dir.el (vc-default-dir-printer): Give edited tag a

2
lisp/nxml/rng-xsd.el
View file

@ -238,7 +238,7 @@ must be equal."
obj))) obj)))
(defun rng-xsd-check-pattern (str regexp convert &rest args) (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)))) (apply convert (cons str args))))