Mercurial > emacs
comparison lisp/play/gomoku.el @ 44081:55e461345aba
(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 | 7308bbc423d5 |
children | 8fbfc7c3386c |
comparison
equal
deleted
inserted
replaced
44080:d6dc55c34307 | 44081:55e461345aba |
---|---|
161 gomoku-mode-map (current-global-map))) | 161 gomoku-mode-map (current-global-map))) |
162 | 162 |
163 (defvar gomoku-emacs-won () | 163 (defvar gomoku-emacs-won () |
164 "For making font-lock use the winner's face for the line.") | 164 "For making font-lock use the winner's face for the line.") |
165 | 165 |
166 (defcustom gomoku-font-lock-O-face | 166 (defface gomoku-font-lock-O-face |
167 (if (display-color-p) | 167 '((((class color)) (:foreground "red" :weight bold))) |
168 (list (facemenu-get-face 'fg:red) 'bold)) | 168 "Face to use for Emacs' O." |
169 "*Face to use for Emacs' O." | |
170 :type '(repeat face) | |
171 :group 'gomoku) | 169 :group 'gomoku) |
172 | 170 |
173 (defcustom gomoku-font-lock-X-face | 171 (defface gomoku-font-lock-X-face |
174 (if (display-color-p) | 172 '((((class color)) (:foreground "green" :weight bold))) |
175 (list (facemenu-get-face 'fg:green) 'bold)) | 173 "Face to use for your X." |
176 "*Face to use for your X." | |
177 :type '(repeat face) | |
178 :group 'gomoku) | 174 :group 'gomoku) |
179 | 175 |
180 (defvar gomoku-font-lock-keywords | 176 (defvar gomoku-font-lock-keywords |
181 '(("O" . gomoku-font-lock-O-face) | 177 '(("O" . 'gomoku-font-lock-O-face) |
182 ("X" . gomoku-font-lock-X-face) | 178 ("X" . 'gomoku-font-lock-X-face) |
183 ("[-|/\\]" 0 (if gomoku-emacs-won | 179 ("[-|/\\]" 0 (if gomoku-emacs-won |
184 gomoku-font-lock-O-face | 180 'gomoku-font-lock-O-face |
185 gomoku-font-lock-X-face))) | 181 'gomoku-font-lock-X-face))) |
186 "*Font lock rules for Gomoku.") | 182 "*Font lock rules for Gomoku.") |
187 | 183 |
188 (put 'gomoku-mode 'front-sticky | 184 (put 'gomoku-mode 'front-sticky |
189 (put 'gomoku-mode 'rear-nonsticky '(intangible))) | 185 (put 'gomoku-mode 'rear-nonsticky '(intangible))) |
190 (put 'gomoku-mode 'intangible 1) | 186 (put 'gomoku-mode 'intangible 1) |