diff options
| author | Richard M. Stallman | 2006-04-09 19:20:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-04-09 19:20:02 +0000 |
| commit | 2af34f255bb23763847da2d90558d658cd3e52eb (patch) | |
| tree | 0eaf0b021c812fa17a0e94ac92a1ee2bed66d2fa /lisp/play | |
| parent | d82eac8f941aa6c031fea14bd2dc812e4258acdd (diff) | |
| download | emacs-2af34f255bb23763847da2d90558d658cd3e52eb.tar.gz emacs-2af34f255bb23763847da2d90558d658cd3e52eb.zip | |
(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 @@ | |||
| 211 | (defvar lm-emacs-won () | 211 | (defvar lm-emacs-won () |
| 212 | "*For making font-lock use the winner's face for the line.") | 212 | "*For making font-lock use the winner's face for the line.") |
| 213 | 213 | ||
| 214 | (defvar lm-font-lock-face-O | 214 | (defface lm-font-lock-face-O '((((class color)) :foreground "red") |
| 215 | (if (display-color-p) | 215 | (t :weight bold)) |
| 216 | (list (facemenu-get-face 'fg:red) 'bold)) | 216 | "*Face to use for Emacs' O." |
| 217 | "*Face to use for Emacs' O.") | 217 | :version "22.1" |
| 218 | :group 'lm) | ||
| 218 | 219 | ||
| 219 | (defvar lm-font-lock-face-X | 220 | (defface lm-font-lock-face-X '((((class color)) :foreground "green") |
| 220 | (if (display-color-p) | 221 | (t :weight bold)) |
| 221 | (list (facemenu-get-face 'fg:green) 'bold)) | 222 | "*Face to use for your X." |
| 222 | "*Face to use for your X.") | 223 | :version "22.1" |
| 224 | :group 'lm) | ||
| 223 | 225 | ||
| 224 | (defvar lm-font-lock-keywords | 226 | (defvar lm-font-lock-keywords |
| 225 | '(("O" . lm-font-lock-face-O) | 227 | '(("O" . 'lm-font-lock-face-O) |
| 226 | ("X" . lm-font-lock-face-X) | 228 | ("X" . 'lm-font-lock-face-X) |
| 227 | ("[-|/\\]" 0 (if lm-emacs-won | 229 | ("[-|/\\]" 0 (if lm-emacs-won |
| 228 | lm-font-lock-face-O | 230 | 'lm-font-lock-face-O |
| 229 | lm-font-lock-face-X))) | 231 | 'lm-font-lock-face-X))) |
| 230 | "*Font lock rules for Lm.") | 232 | "*Font lock rules for Lm.") |
| 231 | 233 | ||
| 232 | (put 'lm-mode 'front-sticky | 234 | (put 'lm-mode 'front-sticky |