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.

2 files changed, 18 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bed4c9873d5..a49107c8802 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2005-06-10  Miles Bader  <miles@gnu.org>
+
+        * 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.
+
 2005-06-10  Juanma Barranquero  <lekktu@gmail.com>
 
         * ido.el (ido-mode, ido-file-extensions-order)
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