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

* nxml/rng-xsd.el (rng-xsd-check-pattern): Use case-sensitive
matching.

lisp/ChangeLog

+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>
 
 	* vc/vc-dir.el (vc-default-dir-printer): Give edited tag a

lisp/nxml/rng-xsd.el

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