Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(artist-ellipse-mirror-quadrant): Fix bug introduced 2005-07-03:

Browse source 
Use (car (last ...)) to faithfully reproduce replaced artist-last.
(artist-set-arrow-points-for-poly): Likewise.
This commit is contained in:
Thien-Thi Nguyen 2005-10-06 15:00:49 +00:00
parent 8dc8d89594
commit de4ce19101
2 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

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

6
lisp/textmodes/artist.el
View file

@ -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))