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

[Juanma Barranquero]

Index: emacs/lisp/play/gomoku.el
diff -c emacs/lisp/play/gomoku.el:1.34 emacs/lisp/play/gomoku.el:1.35
*** emacs/lisp/play/gomoku.el:1.34      Thu Dec 20 13:19:23 2001
--- emacs/lisp/play/gomoku.el   Fri Mar 22 04:43:59 2002
***************
*** 163,188 ****
  (defvar gomoku-emacs-won ()
    "For making font-lock use the winner's face for the line.")
  
! (defcustom gomoku-font-lock-O-face
!   (if (display-color-p)
!       (list (facemenu-get-face 'fg:red) 'bold))
!   "*Face to use for Emacs' O."
!   :type '(repeat face)
    :group 'gomoku)
  
! (defcustom gomoku-font-lock-X-face
!   (if (display-color-p)
!       (list (facemenu-get-face 'fg:green) 'bold))
!   "*Face to use for your X."
!   :type '(repeat face)
    :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
--- 163,184 ----
  (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