X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/8d3655be5a5c41b1f0a9985bcdb614693fce67e5..27e498e6e5fea8ac64c90ac13678b537b7b12302:/src/xml.c?ds=sidebyside

diff --git a/src/xml.c b/src/xml.c
index 4b466dc1bc..c330dce4a4 100644
--- a/src/xml.c
+++ b/src/xml.c
@@ -124,7 +124,7 @@ make_dom (xmlNode *node)
 {
   if (node->type == XML_ELEMENT_NODE)
     {
-      Lisp_Object result = Fcons (intern ((char *) node->name), Qnil);
+      Lisp_Object result = list1 (intern ((char *) node->name));
       xmlNode *child;
       xmlAttr *property;
       Lisp_Object plist = Qnil;