Function: gomoku-plot-square

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

Signature

(gomoku-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/play/gomoku.el.gz
(defun gomoku-plot-square (square value)
  "Draw `X', `O' or `.' on SQUARE depending on VALUE, leave point there."
  (or (= value 1)
      (gomoku-goto-square square))
  (let ((inhibit-read-only t))
    (insert (cond ((= value 1) ?X)
                  ((= value 6) ?O)
                  (?.)))
    (and (zerop value)
	 (add-text-properties
	  (1- (point)) (point)
	  '(mouse-face highlight help-echo "mouse-2: play at this square")))
    (delete-char 1)
    (backward-char 1))
  (sit-for 0))	; Display NOW