Merge remote-tracking branch 'savannah/master' into HEAD

This commit is contained in:
Andrea Corallo 2020-03-24 16:22:06 +00:00
commit f7e10297d1
2 changed files with 4 additions and 4 deletions

View file

@ -552,10 +552,9 @@ too large if positive or too small if negative)."
(seq-subseq seq start end))
;;;###autoload
(defun cl-concatenate (type &rest sequences)
(defalias 'cl-concatenate #'seq-concatenate
"Concatenate, into a sequence of type TYPE, the argument SEQUENCEs.
\n(fn TYPE SEQUENCE...)"
(apply #'seq-concatenate type sequences))
\n(fn TYPE SEQUENCE...)")
;;; List functions.

View file

@ -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)