/[emacs]/emacs/lisp/textmodes/artist.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/artist.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25 by rfrancoise, Sat Sep 24 13:43:58 2005 UTC revision 1.26 by ttn, Thu Oct 6 14:56:23 2005 UTC
# Line 3379  The POINT-LIST is expected to cover the Line 3379  The POINT-LIST is expected to cover the
3379      ;; that look like:    \           /  instead we get:   (           )      ;; that look like:    \           /  instead we get:   (           )
3380      ;;                     \         /                      \         /      ;;                     \         /                      \         /
3381      ;;                      ---------                        ---------      ;;                      ---------                        ---------
3382      (let ((last-coord  (last point-list)))      (let ((last-coord (car (last point-list))))
3383        (if (= (artist-coord-get-new-char last-coord) ?/)        (if (= (artist-coord-get-new-char last-coord) ?/)
3384            (artist-coord-set-new-char last-coord artist-ellipse-right-char)))            (artist-coord-set-new-char last-coord artist-ellipse-right-char)))
3385    
# Line 3848  Optional argument STATE can be used to s Line 3848  Optional argument STATE can be used to s
3848           (x2    (artist-endpoint-get-x ep2))           (x2    (artist-endpoint-get-x ep2))
3849           (y2    (artist-endpoint-get-y ep2))           (y2    (artist-endpoint-get-y ep2))
3850           (dir1  (artist-find-direction x2 y2 x1 y1))           (dir1  (artist-find-direction x2 y2 x1 y1))
3851           (epn   (last point-list))           (epn   (car (last point-list)))
3852           (epn-1 (last point-list 2))           (epn-1 (car (last point-list 2)))
3853           (xn    (artist-endpoint-get-x epn))           (xn    (artist-endpoint-get-x epn))
3854           (yn    (artist-endpoint-get-y epn))           (yn    (artist-endpoint-get-y epn))
3855           (xn-1  (artist-endpoint-get-x epn-1))           (xn-1  (artist-endpoint-get-x epn-1))

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26