Mercurial > emacs

comparison lisp/xml.el @ 90224:2d92f5c9d6ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-78 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 514-518) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 104-105) - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 26 Aug 2005 09:51:52 +0000
parents f9a65d7ebd29 950e3342b9d7
children 7beb78bc1f8e
comparison
equal deleted inserted replaced
90223:edf295560b5a 90224:2d92f5c9d6ae
1 ;;; xml.el --- XML parser 1 ;;; xml.el --- XML parser
2 2
3 ;; Copyright (C) 2000, 01, 03, 2004 Free Software Foundation, Inc. 3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
4 ;; 2005 Free Software Foundation, Inc.
4 5
5 ;; Author: Emmanuel Briot <briot@gnat.com> 6 ;; Author: Emmanuel Briot <briot@gnat.com>
6 ;; Maintainer: Mark A. Hershberger <mah@everybody.org> 7 ;; Maintainer: Mark A. Hershberger <mah@everybody.org>
7 ;; Keywords: xml, data 8 ;; Keywords: xml, data
8 9
182 xml))) 183 xml)))
183 184
184 185
185 (defvar xml-name-re) 186 (defvar xml-name-re)
186 (defvar xml-entity-value-re) 187 (defvar xml-entity-value-re)
188 (defvar xml-att-def-re)
187 (let* ((start-chars (concat "[:alpha:]:_")) 189 (let* ((start-chars (concat "[:alpha:]:_"))
188 (name-chars (concat "-[:digit:]." start-chars)) 190 (name-chars (concat "-[:digit:]." start-chars))
189 ;;[3] S ::= (#x20 | #x9 | #xD | #xA)+ 191 ;;[3] S ::= (#x20 | #x9 | #xD | #xA)+
190 (whitespace "[ \t\n\r]")) 192 (whitespace "[ \t\n\r]"))
191 ;;[4] NameStartChar ::= ":" | [A-Z] | "_" | [a-z] | [#xC0-#xD6] 193 ;;[4] NameStartChar ::= ":" | [A-Z] | "_" | [a-z] | [#xC0-#xD6]