bug#26953: [PATCH] 26.0.50; svg-line uses incorrect parameters

[Ari Roponen]

This code should draw a horizontal line:

  (require 'svg)
  (let ((svg (svg-create 50 50 :stroke-color "black")))
    (svg-line svg 0 25 50 25)
    (svg-insert-image svg))

but it draws a diagonal one instead. The following patch fixes the
problem.

* lisp/svg.el (svg-line): Use correct parameters.

diff --git a/lisp/svg.el b/lisp/svg.el
index cb924f8163..fc1a6d60e1 100644
--- a/lisp/svg.el
+++ b/lisp/svg.el
@@ -107,8 +107,8 @@ svg-line
    svg
    (dom-node 'line
             `((x1 . ,x1)
-              (x2 . ,y1)
-              (y1 . ,x2)
+              (x2 . ,x2)
+              (y1 . ,y1)
               (y2 . ,y2)
               ,@(svg--arguments svg args)))))