From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 9 Apr 2006 19:20:02 +0000 (+0000)
Subject: (lm-font-lock-face-O, lm-font-lock-face-X): Make them faces.
X-Git-Tag: emacs-pretest-22.0.90~3248
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2af34f255bb23763847da2d90558d658cd3e52eb;p=emacs.git

(lm-font-lock-face-O, lm-font-lock-face-X): Make them faces.
(lm-font-lock-keywords): Update appropriately.
---

diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el
index 63d7a9fe33a..7ec6f9bb187 100644
--- a/lisp/play/landmark.el
+++ b/lisp/play/landmark.el
@@ -211,22 +211,24 @@
 (defvar lm-emacs-won ()
   "*For making font-lock use the winner's face for the line.")
 
-(defvar lm-font-lock-face-O
-  (if (display-color-p)
-      (list (facemenu-get-face 'fg:red) 'bold))
-  "*Face to use for Emacs' O.")
+(defface lm-font-lock-face-O '((((class color)) :foreground "red")
+			       (t :weight bold))
+  "*Face to use for Emacs' O."
+  :version "22.1"
+  :group 'lm)
 
-(defvar lm-font-lock-face-X
-  (if (display-color-p)
-      (list (facemenu-get-face 'fg:green) 'bold))
-  "*Face to use for your X.")
+(defface lm-font-lock-face-X '((((class color)) :foreground "green")
+			       (t :weight bold))
+  "*Face to use for your X."
+  :version "22.1"
+  :group 'lm)
 
 (defvar lm-font-lock-keywords
-  '(("O" . lm-font-lock-face-O)
-    ("X" . lm-font-lock-face-X)
+  '(("O" . 'lm-font-lock-face-O)
+    ("X" . 'lm-font-lock-face-X)
     ("[-|/\\]" 0 (if lm-emacs-won
-		     lm-font-lock-face-O
-		   lm-font-lock-face-X)))
+		     'lm-font-lock-face-O
+		   'lm-font-lock-face-X)))
   "*Font lock rules for Lm.")
 
 (put 'lm-mode 'front-sticky