From de4ce191011fbfc863098238d3703e4e24303453 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Thu, 6 Oct 2005 15:00:49 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 8 ++++++++ lisp/textmodes/artist.el | 6 +++--- 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 + + * 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 * 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)) -- 2.39.5