# HG changeset patch # User Richard M. Stallman # Date 1015164833 0 # Node ID 3075554223d13c84cca8afcc0e6a53d8da90bffe # Parent 93a9551db08090b2ec05fb97c49a78907f33e8dd (gamegrid-set-font, gamegrid-setup-face) (gamegrid-make-mono-tty-face): Fix usage of condition-case. diff -r 93a9551db080 -r 3075554223d1 lisp/play/gamegrid.el --- a/lisp/play/gamegrid.el Sun Mar 03 14:13:14 2002 +0000 +++ b/lisp/play/gamegrid.el Sun Mar 03 14:13:53 2002 +0000 @@ -145,7 +145,7 @@ (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 @@ (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)