diff options
| author | Miles Bader <miles@gnu.org> | 2005-06-10 11:38:11 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2005-06-10 11:38:11 +0000 |
| commit | 62d39a4265652ceaa0829bae8f49d63d00607264 (patch) | |
| tree | 73338f8d2c3f964172bb516e94688504925731ca /lisp/play | |
| parent | 83acf23151bb3d0f878425bb7ee1245cc2802d2d (diff) | |
| download | emacs-62d39a4265652ceaa0829bae8f49d63d00607264.tar.gz | |
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-397
Remove "-face" suffix from gomoku faces
2005-06-10 Miles Bader <miles@gnu.org>
* lisp/play/gomoku.el (gomoku-O, gomoku-X):
Remove "-face" suffix from face names.
(gomoku-font-lock-O-face, gomoku-font-lock-X-face):
New backward-compatibility aliases for renamed faces.
(gomoku-font-lock-keywords): Use renamed gomoku faces.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/gomoku.el | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el index 69ec07496d5..611c095fbd1 100644 --- a/lisp/play/gomoku.el +++ b/lisp/play/gomoku.el @@ -1,6 +1,6 @@ ;;; gomoku.el --- Gomoku game between you and Emacs -;; Copyright (C) 1988, 1994, 1996, 2001, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1988, 1994, 1996, 2001, 2003, 2005 Free Software Foundation, Inc. ;; Author: Philippe Schnoebelen <phs@lsv.ens-cachan.fr> ;; Maintainer: FSF @@ -160,22 +160,24 @@ 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.") -(defface gomoku-font-lock-O-face +(defface gomoku-O '((((class color)) (:foreground "red" :weight bold))) "Face to use for Emacs' O." :group 'gomoku) +;; backward-compatibility alias +(put 'gomoku-font-lock-O-face 'face-alias 'gomoku-O) -(defface gomoku-font-lock-X-face +(defface gomoku-X '((((class color)) (:foreground "green" :weight bold))) "Face to use for your X." :group 'gomoku) +;; backward-compatibility alias +(put 'gomoku-font-lock-X-face 'face-alias 'gomoku-X) (defvar gomoku-font-lock-keywords - '(("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))) + '(("O" . 'gomoku-O) + ("X" . 'gomoku-X) + ("[-|/\\]" 0 (if gomoku-emacs-won 'gomoku-O 'gomoku-X))) "*Font lock rules for Gomoku.") (put 'gomoku-mode 'front-sticky |