procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

2004-10-07 Mark A. Hershberger <mah@everybody.org>

Browse source 
* xml.el (xml-substitute-special): Limit handling of external
	entities.
This commit is contained in:
Mark A. Hershberger 2004-10-07 18:13:43 +00:00
parent 8b0d8589d5
commit f0d494374f
1 changed files with 3 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/xml.el
View file

@ -727,14 +727,9 @@ This follows the rule [28] in the XML specifications."
(match-string 1 this-part)))))))
(cond ((null children)
(if (and (eq (length expansion) 1)
(stringp (cadr expansion)))
(setq children (concat prev-part expansion))
(if (stringp (car expansion))
(setq children
(list (concat prev-part (car expansion))
(append (cdr expansion))))
(setq children (append expansion prev-part)))))
;; FIXME: If we have an entity that expands into XML, this won't work.
(setq children
(concat prev-part expansion)))
((stringp children)
(if (stringp expansion)
(setq children (concat children prev-part expansion))