From 62d39a4265652ceaa0829bae8f49d63d00607264 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Fri, 10 Jun 2005 11:38:11 +0000 Subject: [PATCH] Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-397 Remove "-face" suffix from gomoku faces 2005-06-10 Miles Bader * 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. --- lisp/ChangeLog | 8 ++++++++ lisp/play/gomoku.el | 18 ++++++++++-------- 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 + + * 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 * 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 ;; 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 -- 2.39.5