# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1016790239 0
# Node ID 55e461345aba5f5476b45be2fd257085ef3c1c57
# Parent  d6dc55c343079e2ba22add015713a7a4c6bd403d
(gomoku-font-lock-O-face): Convert to use `defface'.
(gomoku-font-lock-X-face): Likewise.
(gomoku-font-lock-keywords): Use faces instead of variables.

diff -r d6dc55c34307 -r 55e461345aba lisp/play/gomoku.el
--- a/lisp/play/gomoku.el	Fri Mar 22 02:27:54 2002 +0000
+++ b/lisp/play/gomoku.el	Fri Mar 22 09:43:59 2002 +0000
@@ -163,26 +163,22 @@
 (defvar gomoku-emacs-won ()
   "For making font-lock use the winner's face for the line.")
 
-(defcustom gomoku-font-lock-O-face
-  (if (display-color-p)
-      (list (facemenu-get-face 'fg:red) 'bold))
-  "*Face to use for Emacs' O."
-  :type '(repeat face)
+(defface gomoku-font-lock-O-face
+    '((((class color)) (:foreground "red" :weight bold)))
+  "Face to use for Emacs' O."
   :group 'gomoku)
 
-(defcustom gomoku-font-lock-X-face
-  (if (display-color-p)
-      (list (facemenu-get-face 'fg:green) 'bold))
-  "*Face to use for your X."
-  :type '(repeat face)
+(defface gomoku-font-lock-X-face
+    '((((class color)) (:foreground "green" :weight bold)))
+  "Face to use for your X."
   :group 'gomoku)
 
 (defvar gomoku-font-lock-keywords
-  '(("O" . gomoku-font-lock-O-face)
-    ("X" . gomoku-font-lock-X-face)
+  '(("O" . 'gomoku-font-lock-O-face)
+    ("X" . 'gomoku-font-lock-X-face)
     ("[-|/\\]" 0 (if gomoku-emacs-won
-		     gomoku-font-lock-O-face
-		   gomoku-font-lock-X-face)))
+		     'gomoku-font-lock-O-face
+		   'gomoku-font-lock-X-face)))
   "*Font lock rules for Gomoku.")
 
 (put 'gomoku-mode 'front-sticky