diff options
| author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2005-10-06 15:00:49 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2005-10-06 15:00:49 +0000 |
| commit | de4ce191011fbfc863098238d3703e4e24303453 (patch) | |
| tree | 0a28406f92123e2d67ebeb08617d839612acb523 /lisp/textmodes/artist.el | |
| parent | 8dc8d895940caf1c2b556b6cc88ed06cb67a6784 (diff) | |
| download | emacs-de4ce191011fbfc863098238d3703e4e24303453.tar.gz | |
(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.
Diffstat (limited to 'lisp/textmodes/artist.el')
| -rw-r--r-- | lisp/textmodes/artist.el | 6 |
1 files changed, 3 insertions, 3 deletions
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)) |