From 5bfeda5da90b136381f36314228f4ad281c8948b Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 1 Sep 2008 20:08:35 -0400 Subject: Fontify chess-error and chess-with-current-buffer as keywords. --- chess.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'chess.el') diff --git a/chess.el b/chess.el index dc50d1e..6404feb 100644 --- a/chess.el +++ b/chess.el @@ -119,6 +119,12 @@ available." :type 'string :group 'chess) +(and (fboundp 'font-lock-add-keywords) + (font-lock-add-keywords + 'emacs-lisp-mode + '(("(chess-error\\>" . font-lock-keyword-face) + ("(chess-with-current-buffer\\>" . font-lock-keyword-face)))) + (defun chess--create-display (module game my-color disable-popup) (let ((display (chess-display-create game module my-color))) (when display @@ -158,7 +164,8 @@ If an element of MODULE-LIST is a sublist, treat it as alternatives." (nreverse objects))) (chess-message-catalog 'english - '((no-engines-found . "Could not find any chess engines to play against; install gnuchess!"))) + '((no-engines-found + . "Could not find any chess engines to play against; install gnuchess!"))) ;;;###autoload (defun chess (&optional engine disable-popup engine-response-handler -- cgit v1.2.3