diff options
| author | Thien-Thi Nguyen | 2005-10-06 15:00:49 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen | 2005-10-06 15:00:49 +0000 |
| commit | de4ce191011fbfc863098238d3703e4e24303453 (patch) | |
| tree | 0a28406f92123e2d67ebeb08617d839612acb523 /lisp/textmodes | |
| parent | 8dc8d895940caf1c2b556b6cc88ed06cb67a6784 (diff) | |
| download | emacs-de4ce191011fbfc863098238d3703e4e24303453.tar.gz emacs-de4ce191011fbfc863098238d3703e4e24303453.zip | |
(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')
| -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." | |||
| 3379 | ;; that look like: \ / instead we get: ( ) | 3379 | ;; that look like: \ / instead we get: ( ) |
| 3380 | ;; \ / \ / | 3380 | ;; \ / \ / |
| 3381 | ;; --------- --------- | 3381 | ;; --------- --------- |
| 3382 | (let ((last-coord (last point-list))) | 3382 | (let ((last-coord (car (last point-list)))) |
| 3383 | (if (= (artist-coord-get-new-char last-coord) ?/) | 3383 | (if (= (artist-coord-get-new-char last-coord) ?/) |
| 3384 | (artist-coord-set-new-char last-coord artist-ellipse-right-char))) | 3384 | (artist-coord-set-new-char last-coord artist-ellipse-right-char))) |
| 3385 | 3385 | ||
| @@ -3848,8 +3848,8 @@ Optional argument STATE can be used to set state (default is nil)." | |||
| 3848 | (x2 (artist-endpoint-get-x ep2)) | 3848 | (x2 (artist-endpoint-get-x ep2)) |
| 3849 | (y2 (artist-endpoint-get-y ep2)) | 3849 | (y2 (artist-endpoint-get-y ep2)) |
| 3850 | (dir1 (artist-find-direction x2 y2 x1 y1)) | 3850 | (dir1 (artist-find-direction x2 y2 x1 y1)) |
| 3851 | (epn (last point-list)) | 3851 | (epn (car (last point-list))) |
| 3852 | (epn-1 (last point-list 2)) | 3852 | (epn-1 (car (last point-list 2))) |
| 3853 | (xn (artist-endpoint-get-x epn)) | 3853 | (xn (artist-endpoint-get-x epn)) |
| 3854 | (yn (artist-endpoint-get-y epn)) | 3854 | (yn (artist-endpoint-get-y epn)) |
| 3855 | (xn-1 (artist-endpoint-get-x epn-1)) | 3855 | (xn-1 (artist-endpoint-get-x epn-1)) |