/[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.19 by rms, Mon Jun 27 21:57:00 2005 UTC revision 1.20 by rms, Sun Jul 3 16:34:30 2005 UTC
# Line 502  This variable is initialized by the arti Line 502  This variable is initialized by the arti
502  (if artist-picture-compatibility  (if artist-picture-compatibility
503      (require 'picture))      (require 'picture))
504    
505    ;; Variables that are made local in artist-mode-init
506    (defvar artist-key-is-drawing nil)
507    (defvar artist-key-endpoint1 nil)
508    (defvar artist-key-poly-point-list nil)
509    (defvar artist-key-shape nil)
510    (defvar artist-key-draw-how nil)
511    (defvar artist-popup-menu-table nil)
512    (defvar artist-key-compl-table nil)
513    (defvar artist-rb-save-data nil)
514    (defvar artist-arrow-point-1 nil)
515    (defvar artist-arrow-point-2 nil)
516    
517  (defvar artist-mode-map  (defvar artist-mode-map
518    (let ((map (make-sparse-keymap)))    (let ((map (make-sparse-keymap)))
519      (setq artist-mode-map (make-sparse-keymap))      (setq artist-mode-map (make-sparse-keymap))
# Line 1370  Keymap summary Line 1381  Keymap summary
1381                  minor-mode-map-alist)))                  minor-mode-map-alist)))
1382    
1383    
   
 (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))  
   
   
1384  ;; Init and exit  ;; Init and exit
1385  (defun artist-mode-init ()  (defun artist-mode-init ()
1386    "Init Artist mode.  This will call the hook `artist-mode-init-hook'."    "Init Artist mode.  This will call the hook `artist-mode-init-hook'."
# Line 3850  Optional argument STATE can be used to s Line 3846  Optional argument STATE can be used to s
3846           (x2    (artist-endpoint-get-x ep2))           (x2    (artist-endpoint-get-x ep2))
3847           (y2    (artist-endpoint-get-y ep2))           (y2    (artist-endpoint-get-y ep2))
3848           (dir1  (artist-find-direction x2 y2 x1 y1))           (dir1  (artist-find-direction x2 y2 x1 y1))
3849           (epn   (artist-last point-list))           (epn   (last point-list))
3850           (epn-1 (artist-last point-list 2))           (epn-1 (last point-list 2))
3851           (xn    (artist-endpoint-get-x epn))           (xn    (artist-endpoint-get-x epn))
3852           (yn    (artist-endpoint-get-y epn))           (yn    (artist-endpoint-get-y epn))
3853           (xn-1  (artist-endpoint-get-x epn-1))           (xn-1  (artist-endpoint-get-x epn-1))

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

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