(artist-key-is-drawing)

(artist-key-endpoint1, artist-key-poly-point-list)
(artist-key-shape, artist-key-draw-how, artist-popup-menu-table)
(artist-key-compl-table, artist-rb-save-data)
(artist-arrow-point-1, artist-arrow-point-2): Move defvars up.
Don't put them in eval-when-compile.
(artist-set-arrow-points-for-poly): Use `last', not `artist-last'.

diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index 1fe3c9dcbfe99d0e66bc95f1aae5d228e178796f..3729453b82f81829ba019bd8698d24694018c7ae 100644 (file)
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -502,7 +502,18 @@ This variable is initialized by the artist-make-prev-next-op-alist function.")
 (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)
+\f
 (defvar artist-mode-map
   (let ((map (make-sparse-keymap)))
     (setq artist-mode-map (make-sparse-keymap))
@@ -1370,21 +1381,6 @@ Keymap summary
                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'."
@@ -3850,8 +3846,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   (artist-last point-list))
-        (epn-1 (artist-last point-list 2))
+        (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))