Mercurial > emacs

changeset 44081:55e461345aba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gomoku-font-lock-O-face): Convert to use `defface'. (gomoku-font-lock-X-face): Likewise. (gomoku-font-lock-keywords): Use faces instead of variables.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 22 Mar 2002 09:43:59 +0000
parents d6dc55c34307
children c734e692f663
files lisp/play/gomoku.el
diffstat 1 files changed, 10 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- 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