diff options
| author | Mark A. Hershberger <mah@everybody.org> | 2004-12-02 06:53:43 +0000 |
|---|---|---|
| committer | Mark A. Hershberger <mah@everybody.org> | 2004-12-02 06:53:43 +0000 |
| commit | 7e0f11235576591958726f22a65cea7be8ab8660 (patch) | |
| tree | 594398da149b694b4709c59a180f556d55018a27 /lisp/xml.el | |
| parent | 8b744bb89a264d2e2ac3767181ae0577131bcd8e (diff) | |
| download | emacs-7e0f11235576591958726f22a65cea7be8ab8660.tar.gz | |
Ensure that validity messages only show when xml-validating-parser is set.
Diffstat (limited to 'lisp/xml.el')
| -rw-r--r-- | lisp/xml.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/xml.el b/lisp/xml.el index ec048a440bd..cf1fd771d18 100644 --- a/lisp/xml.el +++ b/lisp/xml.el @@ -653,7 +653,8 @@ This follows the rule [28] in the XML specifications." xml-validating-parser parse-ns)))))))) (t - (error "XML: (Validity) Invalid DTD item"))))) + (when xml-validating-parser + (error "XML: (Validity) Invalid DTD item"))))) (if (looking-at "\\s-*]>") (goto-char (nth 1 (match-data))))) (nreverse dtd))) @@ -724,9 +725,10 @@ This follows the rule [28] in the XML specifications." (entity (cdr entity)) ((eq (length this-part) 0) - (error "XML: (Validity) No entity given")) + (when xml-validating-parser + (error "XML: (Validity) No entity given"))) (t - (if xml-validating-parser + (when xml-validating-parser (error "XML: (Validity) Undefined entity `%s'" this-part)))))) |