[Emacs-diffs] Changes to emacs/lisp/play/gomoku.el

[Miles Bader]

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 <address@hidden>
  ;; 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 <address@hidden>
  ;; 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