/[emacs]/emacs/lisp/play/gamegrid.el
ViewVC logotype

Diff of /emacs/lisp/play/gamegrid.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by eliz, Wed Feb 6 11:34:07 2002 UTC revision 1.5 by rms, Sun Mar 3 14:13:53 2002 UTC
# Line 145  static char *noname[] = { Line 145  static char *noname[] = {
145    (if gamegrid-font    (if gamegrid-font
146        (condition-case nil        (condition-case nil
147            (set-face-font face gamegrid-font)            (set-face-font face gamegrid-font)
148          ('error nil))))          (error nil))))
149    
150  (defun gamegrid-setup-face (face color)  (defun gamegrid-setup-face (face color)
151    (set-face-foreground face color)    (set-face-foreground face color)
# Line 153  static char *noname[] = { Line 153  static char *noname[] = {
153    (gamegrid-set-font face)    (gamegrid-set-font face)
154    (condition-case nil    (condition-case nil
155        (set-face-background-pixmap face [nothing]);; XEmacs        (set-face-background-pixmap face [nothing]);; XEmacs
156      ('error nil))      (error nil))
157    (condition-case nil    (condition-case nil
158        (set-face-background-pixmap face nil);; Emacs        (set-face-background-pixmap face nil);; Emacs
159      ('error nil)))      (error nil)))
160    
161  (defun gamegrid-make-mono-tty-face ()  (defun gamegrid-make-mono-tty-face ()
162    (let ((face (make-face 'gamegrid-mono-tty-face)))    (let ((face (make-face 'gamegrid-mono-tty-face)))
163      (condition-case nil      (condition-case nil
164          (set-face-property face 'reverse t)          (set-face-property face 'reverse t)
165        ('error nil))        (error nil))
166      face))      face))
167    
168  (defun gamegrid-make-color-tty-face (color)  (defun gamegrid-make-color-tty-face (color)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26