Index: emacs/lisp/play/gomoku.el
diff -c emacs/lisp/play/gomoku.el:1.41 emacs/lisp/play/gomoku.el:1.42
*** emacs/lisp/play/gomoku.el:1.41 Thu May 26 15:26:09 2005
--- emacs/lisp/play/gomoku.el Fri Jun 10 11:38:11 2005
***************
*** 1,6 ****
;;; gomoku.el --- Gomoku game between you and Emacs
! ;; Copyright (C) 1988, 1994, 1996, 2001, 2003 Free Software Foundation, Inc.
;; Author: Philippe Schnoebelen <[EMAIL PROTECTED]>
;; Maintainer: FSF
--- 1,6 ----
;;; gomoku.el --- Gomoku game between you and Emacs
! ;; Copyright (C) 1988, 1994, 1996, 2001, 2003, 2005 Free Software Foundation,
Inc.
;; Author: Philippe Schnoebelen <[EMAIL PROTECTED]>
;; Maintainer: FSF
***************
*** 160,181 ****
(defvar gomoku-emacs-won ()
"For making font-lock use the winner's face for the line.")
! (defface gomoku-font-lock-O-face
'((((class color)) (:foreground "red" :weight bold)))
"Face to use for Emacs' O."
:group 'gomoku)
! (defface gomoku-font-lock-X-face
'((((class color)) (:foreground "green" :weight bold)))
"Face to use for your X."
:group 'gomoku)
(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)))
"*Font lock rules for Gomoku.")
(put 'gomoku-mode 'front-sticky
--- 160,183 ----
(defvar gomoku-emacs-won ()
"For making font-lock use the winner's face for the line.")
! (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-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-O)
! ("X" . 'gomoku-X)
! ("[-|/\\]" 0 (if gomoku-emacs-won 'gomoku-O 'gomoku-X)))
"*Font lock rules for Gomoku.")
(put 'gomoku-mode 'front-sticky
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
