Mercurial > emacs

changeset 43651:3075554223d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gamegrid-set-font, gamegrid-setup-face) (gamegrid-make-mono-tty-face): Fix usage of condition-case.
author Richard M. Stallman <rms@gnu.org>
date Sun, 03 Mar 2002 14:13:53 +0000
parents 93a9551db080
children 9bc62c53e65d
files lisp/play/gamegrid.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)