[Emacs-diffs] Changes to emacs/lisp/play/landmark.el

[Richard M. Stallman]

Index: emacs/lisp/play/landmark.el
diff -u emacs/lisp/play/landmark.el:1.29 emacs/lisp/play/landmark.el:1.30
--- emacs/lisp/play/landmark.el:1.29    Tue Feb 14 01:21:31 2006
+++ emacs/lisp/play/landmark.el Sun Apr  9 19:20:02 2006
@@ -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.")
-
-(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-O '((((class color)) :foreground "red")
+                              (t :weight bold))
+  "*Face to use for Emacs' O."
+  :version "22.1"
+  :group 'lm)
+
+(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