diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-04-09 19:20:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-04-09 19:20:02 +0000 |
| commit | 2af34f255bb23763847da2d90558d658cd3e52eb (patch) | |
| tree | 0eaf0b021c812fa17a0e94ac92a1ee2bed66d2fa /lisp/play | |
| parent | d82eac8f941aa6c031fea14bd2dc812e4258acdd (diff) | |
| download | emacs-2af34f255bb23763847da2d90558d658cd3e52eb.tar.gz | |
(lm-font-lock-face-O, lm-font-lock-face-X): Make them faces.
(lm-font-lock-keywords): Update appropriately.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/landmark.el | 26 |
1 files changed, 14 insertions, 12 deletions
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 |