diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/play/gomoku.el | 24 |
2 files changed, 16 insertions, 14 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f0a34fbe4b0..1970a8b135c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2002-03-22 Juanma Barranquero <lektu@terra.es> + + * play/gomoku.el (gomoku-font-lock-O-face): Convert to use `defface'. + (gomoku-font-lock-X-face): Likewise. + (gomoku-font-lock-keywords): Use faces instead of variables. + 2002-03-21 Stefan Monnier <monnier@cs.yale.edu> * Makefile.in (bootstrap): Make sure subdirs.el is ready. diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el index 9096d4be790..888dfe34ba0 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 |