# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1118403491 0
# Node ID 55de715c80dc6e8bf05335abfde34aad4221b499
# Parent  516b4b969540ce73eb92c50d873fdf6c271b6cab
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.

diff -r 516b4b969540 -r 55de715c80dc lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jun 10 11:20:55 2005 +0000
+++ b/lisp/ChangeLog	Fri Jun 10 11:38:11 2005 +0000
@@ -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 -r 516b4b969540 -r 55de715c80dc lisp/play/gomoku.el
--- a/lisp/play/gomoku.el	Fri Jun 10 11:20:55 2005 +0000
+++ b/lisp/play/gomoku.el	Fri Jun 10 11:38:11 2005 +0000
@@ -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 @@
 (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