[Emacs-diffs] Changes to emacs/lisp/textmodes/artist.el

[Thien-Thi Nguyen]

Index: emacs/lisp/textmodes/artist.el
diff -c emacs/lisp/textmodes/artist.el:1.25 emacs/lisp/textmodes/artist.el:1.26
*** emacs/lisp/textmodes/artist.el:1.25 Sat Sep 24 13:43:58 2005
--- emacs/lisp/textmodes/artist.el      Thu Oct  6 14:56:23 2005
***************
*** 3379,3385 ****
      ;; that look like:    \           /  instead we get:   (           )
      ;;                     \         /                      \         /
      ;;                      ---------                        ---------
!     (let ((last-coord  (last point-list)))
        (if (= (artist-coord-get-new-char last-coord) ?/)
          (artist-coord-set-new-char last-coord artist-ellipse-right-char)))
  
--- 3379,3385 ----
      ;; that look like:    \           /  instead we get:   (           )
      ;;                     \         /                      \         /
      ;;                      ---------                        ---------
!     (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,3855 ****
         (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))
         (xn    (artist-endpoint-get-x epn))
         (yn    (artist-endpoint-get-y epn))
         (xn-1  (artist-endpoint-get-x epn-1))
--- 3848,3855 ----
         (x2    (artist-endpoint-get-x ep2))
         (y2    (artist-endpoint-get-y ep2))
         (dir1  (artist-find-direction x2 y2 x1 y1))
!        (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))