[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master a697d1e: Minor xml.el tweaks
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master a697d1e: Minor xml.el tweaks |
Date: |
Wed, 27 Mar 2019 13:02:24 -0400 (EDT) |
branch: master
commit a697d1e638eabdb3eb32337fde6d802ef712eaf8
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
Minor xml.el tweaks
* lisp/xml.el (xml-name-start-char-re, xml-name-char-re):
No need to call concat.
(xml-name-char-re): Use \u escapes rather than chars inline,
so that the code matches the comments better and is easier
to audit.
---
lisp/xml.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/xml.el b/lisp/xml.el
index 44506b9..2337952 100644
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -176,11 +176,11 @@ See also `xml-get-attribute-or-nil'."
;; [4] NameStartChar
;; See the definition of word syntax in `xml-syntax-table'.
-(defconst xml-name-start-char-re (concat "[[:word:]:_]"))
+(defconst xml-name-start-char-re "[[:word:]:_]")
;; [4a] NameChar ::= NameStartChar | "-" | "." | [0-9] | #xB7
;; | [#x0300-#x036F] | [#x203F-#x2040]
-(defconst xml-name-char-re (concat "[-0-9.[:word:]:_·̀-ͯ‿⁀]"))
+(defconst xml-name-char-re "[[:word:]:_.0-9\u00B7\u0300-\u036F\u203F\u2040-]")
;; [5] Name ::= NameStartChar (NameChar)*
(defconst xml-name-re (concat xml-name-start-char-re xml-name-char-re "*"))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master a697d1e: Minor xml.el tweaks,
Paul Eggert <=