[Emacs-diffs] /srv/bzr/emacs/trunk r104320: Make rng-xsd-check-pattern case sensitive (Bug#8516).

[Chong Yidong]

------------------------------------------------------------
revno: 104320
author: Yuanle Song <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2011-05-22 15:46:47 -0400
message:
  Make rng-xsd-check-pattern case sensitive (Bug#8516).
  
  * nxml/rng-xsd.el (rng-xsd-check-pattern): Use case-sensitive
  matching.
modified:
  lisp/ChangeLog
  lisp/nxml/rng-xsd.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-22 19:36:07 +0000
+++ b/lisp/ChangeLog    2011-05-22 19:46:47 +0000
@@ -1,3 +1,8 @@
+2011-05-22  Yuanle Song  <address@hidden>
+
+       * nxml/rng-xsd.el (rng-xsd-check-pattern): Use case-sensitive
+       matching (Bug#8516).
+
 2011-01-22  Jari Aalto  <address@hidden>
 
        * vc/vc-dir.el (vc-default-dir-printer): Give edited tag a

=== modified file 'lisp/nxml/rng-xsd.el'
--- a/lisp/nxml/rng-xsd.el      2011-01-25 04:08:28 +0000
+++ b/lisp/nxml/rng-xsd.el      2011-05-22 19:46:47 +0000
@@ -238,7 +238,7 @@
         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))))