Mercurial > emacs

changeset 65872:c9a88ce08e2d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Thu, 06 Oct 2005 14:56:23 +0000
parents 68684a4cf410
children 6f0b82ccff09
files lisp/textmodes/artist.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/artist.el	Thu Oct 06 09:25:12 2005 +0000
+++ b/lisp/textmodes/artist.el	Thu Oct 06 14:56:23 2005 +0000
@@ -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))