Mercurial > emacs

changeset 63237:55de715c80dc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Miles Bader <miles@gnu.org>
date Fri, 10 Jun 2005 11:38:11 +0000
parents 516b4b969540
children 5592f504d53f
files lisp/ChangeLog lisp/play/gomoku.el
diffstat 2 files changed, 18 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- 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)
--- 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