Re: artist mode poly line

[Johan Bockgård]

Joakim Verona <address@hidden> writes:

> to reproduce:
>
> m-x artist-mode
> m-x artist-select-op-poly-line
> RET
> move cursor about
> RET
> c-u RET
>
> theres some kind of error there... the last step is supposed to stop
> the drawing of the poly-line.

An earlier change to artist.el replaced `artist-last' with `last' (and
deleted the `artist-last' function) . However, the definition of
`artist-last' was equivalent to (car (last ...)) not (last ...) (the
docstring of artist-last claimed otherwise though).


Try this patch:

--- artist.el   24 Sep 2005 18:26:40 +0200      1.25
+++ artist.el   02 Oct 2005 04:49:20 +0200      
@@ -3379,7 +3379,7 @@
     ;; that look like:    \           /  instead we get:   (           )
     ;;                     \         /                      \         /
     ;;                      ---------                        ---------
-    (let ((last-coord  (last point-list)))
+    (let ((last-coord (car (last point-list))))
       (if (= (artist-coord-get-new-char last-coord) ?/)
          (artist-coord-set-new-char last-coord artist-ellipse-right-char)))
 
@@ -3848,8 +3848,8 @@
         (x2    (artist-endpoint-get-x ep2))
         (y2    (artist-endpoint-get-y ep2))
         (dir1  (artist-find-direction x2 y2 x1 y1))
-        (epn   (last point-list))
-        (epn-1 (last point-list 2))
+        (epn   (car (last point-list)))
+        (epn-1 (car (last point-list 2)))
         (xn    (artist-endpoint-get-x epn))
         (yn    (artist-endpoint-get-y epn))
         (xn-1  (artist-endpoint-get-x epn-1))


-- 
Johan Bockgård