(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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index f0a34fbe4b0a5252daea2c86f6cd1345a67643bb..1970a8b135c6efe72a37fd6e3a94a794f7c16f3d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-03-22  Juanma Barranquero  <lektu@terra.es>
+
+       * play/gomoku.el (gomoku-font-lock-O-face): Convert to use `defface'.
+       (gomoku-font-lock-X-face): Likewise.
+       (gomoku-font-lock-keywords): Use faces instead of variables.
+
 2002-03-21  Stefan Monnier  <monnier@cs.yale.edu>
 
        * Makefile.in (bootstrap): Make sure subdirs.el is ready.

diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el
index 9096d4be790f65ed8de4638d84cbecc0112b671a..888dfe34ba03a9410c975ffd9e603c0f3e0ac0be 100644 (file)
--- a/lisp/play/gomoku.el
+++ b/lisp/play/gomoku.el
@@ -163,26 +163,22 @@ One useful value to include is `turn-on-font-lock' to highlight the pieces."
 (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