]> git.eshelyaron.com Git - emacs.git/commitdiff
xml.el: remove incorrect and botched attribute whitespace collapse
authorMattias Engdegård <mattiase@acm.org>
Tue, 30 May 2023 08:38:06 +0000 (10:38 +0200)
committerMattias Engdegård <mattiase@acm.org>
Tue, 30 May 2023 15:46:06 +0000 (17:46 +0200)
* lisp/xml.el (xml-parse-attlist): Don't attempt to collapse multiple
consecutive whitespace characters into a single space, which is wrong
to do a this point when attributes must be assumed to be CDATA.

The code was actually unintentionally correct since it forgot to use
the return value of `replace-regexp-in-string` (bug#63740).

lisp/xml.el

index 58d17a4b3401ce978da53d446e2213596cf31d39..9095653416e66c84425e1ebca78f8da30ad9d74d 100644 (file)
@@ -669,10 +669,7 @@ Leave point at the first non-blank character after the tag."
       (if (assoc name attlist)
          (error "XML: (Not Well-Formed) Each attribute must be unique within an element"))
 
-      ;; Multiple whitespace characters should be replaced with a single one
-      ;; in the attributes
       (let ((string (match-string-no-properties 1)))
-       (replace-regexp-in-string "\\s-\\{2,\\}" " " string)
        (let ((expansion (xml-substitute-special string)))
          (unless (stringp expansion)
            ;; We say this is the constraint.  It is actually that