mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-397

Browse Source 
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.
This commit is contained in:
Miles Bader 2005-06-10 11:38:11 +00:00
parent 83acf23151
commit 62d39a4265
2 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -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)

18
lisp/play/gomoku.el
View File

@ -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