+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\e,Ae\e(Brd.
+
2005-10-06 Juanma Barranquero <lekktu@gmail.com>
* dframe.el (x-pointer-hand2, x-pointer-top-left-arrow):
;; 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)))
(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))