(artist-ellipse-mirror-quadrant): Fix bug introduced 2005-07-03:

Use (car (last ...)) to faithfully reproduce replaced artist-last.
(artist-set-arrow-points-for-poly): Likewise.

2 files changed, 11 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7729d9494d4..3504a7b4886 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2005-10-06  Thien-Thi Nguyen  <ttn@gnu.org>
+
+        * textmodes/artist.el (artist-ellipse-mirror-quadrant):
+        Fix bug introduced 2005-07-03: Use (car (last ...))
+        to faithfully reproduce replaced artist-last.
+        (artist-set-arrow-points-for-poly): Likewise.
+        Suggested by Johan Bockg,Ae(Brd.
+
 2005-10-06  Juanma Barranquero  <lekktu@gmail.com>
 
         * dframe.el (x-pointer-hand2, x-pointer-top-left-arrow):
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index c9fcd01d018..b13b080cf79 100644
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -3379,7 +3379,7 @@ The POINT-LIST is expected to cover the first quadrant."
     ;; 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 @@ Optional argument STATE can be used to set state (default is nil)."
          (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))