Function: artist-make-arrow-point

artist-make-arrow-point is a byte-compiled function defined in artist.el.gz.

Signature

(artist-make-arrow-point X Y DIRECTION &optional STATE)

Documentation

Create an arrow point at X, Y for a line in direction DIRECTION.

Optional argument STATE can be used to set state (default is nil).

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/artist.el.gz
;;
;; Accessors to arrow-points
;;

(defun artist-make-arrow-point (x y direction &optional state)
  "Create an arrow point at X, Y for a line in direction DIRECTION.
Optional argument STATE can be used to set state (default is nil)."
  (save-excursion
    (let* ((arrow-point  (make-vector 4 0))
	   (arrow-marker (make-marker)))
      (artist-move-to-xy x y)
      (set-marker arrow-marker (point))
      (aset arrow-point 0 arrow-marker)
      (aset arrow-point 1 (artist-get-char-at-xy x y))
      (aset arrow-point 2 direction)
      (aset arrow-point 3 state)
      arrow-point)))