Don't add repeated xlmns:xlink declarations in svg-create

* lisp/svg.el (svg-create): Fix previous unconditional addition of
the xmlns:xlink declaration -- callers may already add one, and
having it twice is something most svg libraries doesn't like.

diff --git a/lisp/svg.el b/lisp/svg.el
index 370c9c04e7648e5a668bae4194d683e134d52745..7aadbc23593a79ebad6518ff51967961ee764c45 100644 (file)
--- a/lisp/svg.el
+++ b/lisp/svg.el
@@ -70,7 +70,8 @@ any further elements added."
              (height . ,height)
              (version . "1.1")
              (xmlns . "http://www.w3.org/2000/svg")
-              (xmlns:xlink . "http://www.w3.org/1999/xlink")
+              ,@(unless (plist-get args :xmlns:xlink)
+                  '((xmlns:xlink . "http://www.w3.org/1999/xlink")))
               ,@(svg--arguments nil args))))
 
 (defun svg-gradient (svg id type stops)