[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: artist mode poly line
From: |
Johan Bockgård |
Subject: |
Re: artist mode poly line |
Date: |
Wed, 05 Oct 2005 17:02:53 +0200 |
User-agent: |
Gnus/5.110004 (No Gnus v0.4) Emacs/22.0.50 (gnu/linux) |
Joakim Verona <address@hidden> writes:
> to reproduce:
>
> m-x artist-mode
> m-x artist-select-op-poly-line
> RET
> move cursor about
> RET
> c-u RET
>
> theres some kind of error there... the last step is supposed to stop
> the drawing of the poly-line.
An earlier change to artist.el replaced `artist-last' with `last' (and
deleted the `artist-last' function) . However, the definition of
`artist-last' was equivalent to (car (last ...)) not (last ...) (the
docstring of artist-last claimed otherwise though).
Try this patch:
--- artist.el 24 Sep 2005 18:26:40 +0200 1.25
+++ artist.el 02 Oct 2005 04:49:20 +0200
@@ -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))
--
Johan Bockgård