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)) |
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'." |
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)) |