* xml.el (xml-parse-string): Fix typo in handling of bad character references.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 580f9ea26be15412191d5f1f856c64178db3ca23..5a80702af0d1dc725143c1a57943a640984924cb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-02-13  Chong Yidong  <cyd@gnu.org>
+
+       * xml.el (xml-parse-string): Fix typo in handling of bad character
+       references.
+
 2013-02-10  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/ange-ftp.el (ange-ftp-make-directory): Don't raise an error,

diff --git a/lisp/xml.el b/lisp/xml.el
index 2232746f02a93bf1abc5bb90dbf98742df5e0f51..a3d34670bfb7416625e6a3417945e9e939f7241c 100644 (file)
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -611,7 +611,7 @@ references."
                   xml-validating-parser
                   (error "XML: (Validity) Invalid character reference `%s'"
                          (match-string 0)))
-             (replace-match (or (string val) xml-undefined-entity) t t))
+             (replace-match (if val (string val) xml-undefined-entity) t t))
          ;; For an entity reference, search again from the start of
          ;; the replaced text, since the replacement can contain
          ;; entity or character references, or markup.
@@ -620,7 +620,7 @@ references."
          (and (null val)
               xml-validating-parser
               (error "XML: (Validity) Undefined entity `%s'" ref))
-         (replace-match (cdr val) t t)
+         (replace-match (or (cdr val) xml-undefined-entity) t t)
          (goto-char (match-beginning 0)))
        ;; Check for XML bombs.
        (and xml-entity-expansion-limit