[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/play/gomoku.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/play/gomoku.el |
Date: |
Fri, 10 Jun 2005 07:38:12 -0400 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/play/gomoku.el,
Miles Bader <=