Commit 62d39a42 authored by Miles Bader's avatar Miles Bader
Browse files

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.
parent 83acf231
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)
......
;;; 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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment