Function: landmark-plot-square

landmark-plot-square is a byte-compiled function defined in landmark.el.gz.

Signature

(landmark-plot-square SQUARE VALUE)

Documentation

Draw X, O or . on SQUARE depending on VALUE, leave point there.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/landmark.el.gz
(defun landmark-plot-square (square value)
  "Draw `X', `O' or `.' on SQUARE depending on VALUE, leave point there."
  (or (= value 1)
      (landmark-goto-square square))
  (let ((inhibit-read-only t))
    (insert (cond ((= value 1) ?.)
                  ((= value 2) ?N)
                  ((= value 3) ?S)
                  ((= value 4) ?E)
                  ((= value 5) ?W)
                  ((= value 6) ?^)))

    (and (zerop value)
	 (add-text-properties (1- (point)) (point)
			      '(mouse-face highlight
				help-echo "\
mouse-1: get robot moving, mouse-2: play on this square")))
    (delete-char 1)
    (backward-char 1))
  (sit-for 0))	; Display NOW