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

[Richard M . Stallman]

Index: emacs/lisp/textmodes/artist.el
diff -c emacs/lisp/textmodes/artist.el:1.19 emacs/lisp/textmodes/artist.el:1.20
*** emacs/lisp/textmodes/artist.el:1.19 Mon Jun 27 21:57:00 2005
--- emacs/lisp/textmodes/artist.el      Sun Jul  3 16:34:30 2005
***************
*** 502,508 ****
  (if artist-picture-compatibility
      (require 'picture))
  
! 
  (defvar artist-mode-map
    (let ((map (make-sparse-keymap)))
      (setq artist-mode-map (make-sparse-keymap))
--- 502,519 ----
  (if artist-picture-compatibility
      (require 'picture))
  
! ;; Variables that are made local in artist-mode-init
! (defvar artist-key-is-drawing nil)
! (defvar artist-key-endpoint1 nil)
! (defvar artist-key-poly-point-list nil)
! (defvar artist-key-shape nil)
! (defvar artist-key-draw-how nil)
! (defvar artist-popup-menu-table nil)
! (defvar artist-key-compl-table nil)
! (defvar artist-rb-save-data nil)
! (defvar artist-arrow-point-1 nil)
! (defvar artist-arrow-point-2 nil)
! 
  (defvar artist-mode-map
    (let ((map (make-sparse-keymap)))
      (setq artist-mode-map (make-sparse-keymap))
***************
*** 1370,1390 ****
                minor-mode-map-alist)))
  
  
- 
- (eval-when-compile
-   ;; Variables that are made local in artist-mode-init
-   (defvar artist-key-is-drawing nil)
-   (defvar artist-key-endpoint1 nil)
-   (defvar artist-key-poly-point-list nil)
-   (defvar artist-key-shape nil)
-   (defvar artist-key-draw-how nil)
-   (defvar artist-popup-menu-table nil)
-   (defvar artist-key-compl-table nil)
-   (defvar artist-rb-save-data nil)
-   (defvar artist-arrow-point-1 nil)
-   (defvar artist-arrow-point-2 nil))
- 
- 
  ;; Init and exit
  (defun artist-mode-init ()
    "Init Artist mode.  This will call the hook `artist-mode-init-hook'."
--- 1381,1386 ----
***************
*** 3850,3857 ****
         (x2    (artist-endpoint-get-x ep2))
         (y2    (artist-endpoint-get-y ep2))
         (dir1  (artist-find-direction x2 y2 x1 y1))
!        (epn   (artist-last point-list))
!        (epn-1 (artist-last point-list 2))
         (xn    (artist-endpoint-get-x epn))
         (yn    (artist-endpoint-get-y epn))
         (xn-1  (artist-endpoint-get-x epn-1))
--- 3846,3853 ----
         (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))