Lines Matching defs:emacs
144 (define-key gomoku-mode-map "\C-c\C-e" 'gomoku-emacs-plays) ; C-c C-e
162 (defvar gomoku-emacs-won ()
178 ("[-|/\\]" 0 (if gomoku-emacs-won 'gomoku-O 'gomoku-X)))
589 (defvar gomoku-emacs-played-first nil
598 (defvar gomoku-emacs-is-computing nil
605 (setq gomoku-emacs-is-computing t) ; Raise flag
611 (setq gomoku-emacs-won nil
615 gomoku-emacs-played-first nil
621 (setq gomoku-emacs-is-computing nil))
625 (setq gomoku-emacs-is-computing t) ; Raise flag
629 (setq gomoku-emacs-played-first t)))
639 (setq gomoku-emacs-is-computing nil))
643 (setq gomoku-emacs-is-computing t)
655 (setq gomoku-emacs-is-computing nil))
662 (defvar gomoku-number-of-emacs-wins 0
676 ((eq result 'emacs-won)
677 (setq gomoku-number-of-emacs-wins (1+ gomoku-number-of-emacs-wins))
684 ((not gomoku-emacs-played-first)
688 (> gomoku-number-of-emacs-wins 1))
697 (gomoku-emacs-played-first
701 (setq gomoku-number-of-emacs-wins (1+ gomoku-number-of-emacs-wins))
709 (gomoku-emacs-played-first
718 (gomoku-emacs-played-first
729 (setq gomoku-emacs-is-computing nil)
766 (setq gomoku-emacs-is-computing nil)
773 (gomoku-emacs-is-computing
795 (gomoku-emacs-plays)
802 (defun gomoku-emacs-plays ()
807 (gomoku-emacs-is-computing
821 (setq gomoku-emacs-won t) ; for font-lock
823 (gomoku-terminate-game 'emacs-won))
878 (gomoku-emacs-is-computing
899 (gomoku-emacs-plays)))))))))
906 (gomoku-emacs-is-computing
930 (gomoku-emacs-is-computing
1084 gomoku-number-of-emacs-wins