diff options
| -rw-r--r-- | lisp/svg.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/svg.el b/lisp/svg.el index 2295e5f8d49..cb924f8163d 100644 --- a/lisp/svg.el +++ b/lisp/svg.el @@ -222,13 +222,15 @@ otherwise. IMAGE-TYPE should be a MIME image type, like def) svg) -(defun svg-image (svg) - "Return an image object from SVG." - (create-image +(defun svg-image (svg &rest props) + "Return an image object from SVG. +PROPS is passed on to `create-image' as its PROPS list." + (apply + #'create-image (with-temp-buffer (svg-print svg) (buffer-string)) - 'svg t)) + 'svg t props)) (defun svg-insert-image (svg) "Insert SVG as an image at point. |