diff options
| author | Juanma Barranquero <[email protected]> | 2002-03-22 09:44:45 +0000 |
|---|---|---|
| committer | Juanma Barranquero <[email protected]> | 2002-03-22 09:44:45 +0000 |
| commit | 6e71749d98c98d2a4f51d1f01e5aa22a352e55e4 (patch) | |
| tree | ea8cc89529f7646778e2fe6915248478be6cee8b /lisp/play | |
| parent | 898a52c9c02e9efba8f16acf934dc918c66adc6e (diff) | |
(gomoku-font-lock-O-face): Convert to use `defface'.
(gomoku-font-lock-X-face): Likewise.
(gomoku-font-lock-keywords): Use faces instead of variables.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/gomoku.el | 24 |
1 files changed, 10 insertions, 14 deletions
diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el index 9096d4be79..888dfe34ba 100644 --- a/lisp/play/gomoku.el +++ b/lisp/play/gomoku.el @@ -163,26 +163,22 @@ One useful value to include is `turn-on-font-lock' to highlight the pieces." (defvar gomoku-emacs-won () "For making font-lock use the winner's face for the line.") -(defcustom gomoku-font-lock-O-face - (if (display-color-p) - (list (facemenu-get-face 'fg:red) 'bold)) - "*Face to use for Emacs' O." - :type '(repeat face) +(defface gomoku-font-lock-O-face + '((((class color)) (:foreground "red" :weight bold))) + "Face to use for Emacs' O." :group 'gomoku) -(defcustom gomoku-font-lock-X-face - (if (display-color-p) - (list (facemenu-get-face 'fg:green) 'bold)) - "*Face to use for your X." - :type '(repeat face) +(defface gomoku-font-lock-X-face + '((((class color)) (:foreground "green" :weight bold))) + "Face to use for your X." :group 'gomoku) (defvar gomoku-font-lock-keywords - '(("O" . gomoku-font-lock-O-face) - ("X" . gomoku-font-lock-X-face) + '(("O" . 'gomoku-font-lock-O-face) + ("X" . 'gomoku-font-lock-X-face) ("[-|/\\]" 0 (if gomoku-emacs-won - gomoku-font-lock-O-face - gomoku-font-lock-X-face))) + 'gomoku-font-lock-O-face + 'gomoku-font-lock-X-face))) "*Font lock rules for Gomoku.") (put 'gomoku-mode 'front-sticky |