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:
parent
f3d4e0a47d
commit
92a9cc651a
2 changed files with 6 additions and 1 deletions
|
|
@ -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))))
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue