* lisp/xml.el (xml-name-char-re): Remove superfluous `-' in regexp.

diff --git a/lisp/xml.el b/lisp/xml.el
index 076291bbb0c5d1a8f4b515c3cd683e463d2e0ebd..44506b971aaf76c026e4ff4d0e0b178a7a7228ed 100644 (file)
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -180,7 +180,7 @@ See also `xml-get-attribute-or-nil'."
 
 ;; [4a] NameChar ::= NameStartChar | "-" | "." | [0-9] | #xB7
 ;;                 | [#x0300-#x036F] | [#x203F-#x2040]
-(defconst xml-name-char-re (concat "[-0-9.[:word:]:_·̀-ͯ‿-⁀]"))
+(defconst xml-name-char-re (concat "[-0-9.[:word:]:_·̀-ͯ‿⁀]"))
 
 ;; [5] Name     ::= NameStartChar (NameChar)*
 (defconst xml-name-re (concat xml-name-start-char-re xml-name-char-re "*"))