Function: artist-mode-init

artist-mode-init is a byte-compiled function defined in artist.el.gz.

Signature

(artist-mode-init)

Documentation

Init Artist mode. This will call the hook artist-mode-hook.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/artist.el.gz
;; Init and exit
(defun artist-mode-init ()
  "Init Artist mode.  This will call the hook `artist-mode-hook'."
  ;; Set up a conversion table for mapping tabs and new-lines to spaces.
  ;; the last case, 0, is for the last position in buffer/region, where
  ;; the `following-char' function returns 0.
  (let ((i 0))
    (while (< i 256)
      (aset artist-replacement-table i i)
      (setq i (1+ i))))
  (aset artist-replacement-table ?\n ?\s)
  (aset artist-replacement-table ?\t ?\s)
  (aset artist-replacement-table 0 ?\s)
  ;; More setup
  (setq-local artist-key-is-drawing nil)
  (setq-local artist-key-endpoint1 nil)
  (setq-local artist-key-poly-point-list nil)
  (setq-local artist-key-shape nil)
  (setq-local artist-popup-menu-table (artist-compute-popup-menu-table artist-mt))
  (setq-local artist-key-compl-table (artist-compute-key-compl-table artist-mt))
  (setq-local artist-prev-next-op-alist
              (artist-make-prev-next-op-alist artist-key-compl-table))
  (setq-local artist-rb-save-data (make-vector 7 0))
  (setq-local artist-arrow-point-1 nil)
  (setq-local artist-arrow-point-2 nil)
  (setq-local next-line-add-newlines t)
  (setq-local artist-key-draw-how
              (artist-go-get-draw-how-from-symbol artist-curr-go))
  (if (and artist-picture-compatibility (not (eq major-mode 'picture-mode)))
      (progn
	(picture-mode)
	(message "")))
  (artist-mode-line-show-curr-operation artist-key-is-drawing))