From 279b254c999302cbaace3aa924a6193adc1ddf90 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 3 Mar 2002 14:14:38 +0000 Subject: [PATCH] (gamegrid-set-font, gamegrid-setup-face) (gamegrid-make-mono-tty-face): Fix usage of condition-case. --- lisp/ChangeLog | 7 +++++++ lisp/play/gamegrid.el | 8 ++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4d5c3d1b2ca..95a29ae4926 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2002-03-03 Richard M. Stallman + + * play/snake.el (snake-score-file): Put in home dir, not in /tmp. + + * play/gamegrid.el (gamegrid-set-font, gamegrid-setup-face) + (gamegrid-make-mono-tty-face): Fix usage of condition-case. + 2002-03-03 Thien-Thi Nguyen * calendar/diary-lib.el (list-diary-entries): Use diff --git a/lisp/play/gamegrid.el b/lisp/play/gamegrid.el index 906ea61ae49..2ff50ad53eb 100644 --- a/lisp/play/gamegrid.el +++ b/lisp/play/gamegrid.el @@ -145,7 +145,7 @@ static char *noname[] = { (if gamegrid-font (condition-case nil (set-face-font face gamegrid-font) - ('error nil)))) + (error nil)))) (defun gamegrid-setup-face (face color) (set-face-foreground face color) @@ -153,16 +153,16 @@ static char *noname[] = { (gamegrid-set-font face) (condition-case nil (set-face-background-pixmap face [nothing]);; XEmacs - ('error nil)) + (error nil)) (condition-case nil (set-face-background-pixmap face nil);; Emacs - ('error nil))) + (error nil))) (defun gamegrid-make-mono-tty-face () (let ((face (make-face 'gamegrid-mono-tty-face))) (condition-case nil (set-face-property face 'reverse t) - ('error nil)) + (error nil)) face)) (defun gamegrid-make-color-tty-face (color) -- 2.39.2