Re: make a drawing with Emacs

[Lars Magne Ingebrigtsen]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

> IIRC it would make the code slower, tho.  It adds code like
>
>     (let ((stroke-color (cadr (plist-member args :stroke-color))))
>
> which the compiler fails to optimize away when `stroke-color` is not used.

I didn't know that...  but on the other hand, all these functions end up
calling this internal function:

(defun svg--arguments (svg args)
  (let ((stroke-width (or (plist-get args :stroke-width)
                          (dom-attr svg 'stroke-width)))
        (stroke-color (or (plist-get args :stroke-color)
                          (dom-attr svg 'stroke-color)))
        (fill-color (plist-get args :fill-color))
        attr)

Which could then lose these plist-gets, so we'd end up with
approximately the same slowness, I think.  :-)

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no