/[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.2 by pj, Mon Jul 16 09:10:19 2001 UTC revision 1.2.4.1 by eliz, Wed Feb 6 11:51:52 2002 UTC
# Line 166  static char *noname[] = { Line 166  static char *noname[] = {
166      face))      face))
167    
168  (defun gamegrid-make-color-tty-face (color)  (defun gamegrid-make-color-tty-face (color)
169    (let* ((hex (gamegrid-color color 1.0))    (let* ((color-str (symbol-value color))
170           (name (intern (format "gamegrid-color-tty-face-%s" hex)))           (name (intern (format "gamegrid-color-tty-face-%s" color-str)))
171           (face (make-face name)))           (face (make-face name)))
172      (gamegrid-setup-face face color)      (gamegrid-setup-face face color-str)
173      face))      face))
174    
175  (defun gamegrid-make-grid-x-face ()  (defun gamegrid-make-grid-x-face ()
# Line 190  static char *noname[] = { Line 190  static char *noname[] = {
190    (let* ((hex (gamegrid-color color 1.0))    (let* ((hex (gamegrid-color color 1.0))
191           (name (intern (format "gamegrid-color-x-face-%s" hex)))           (name (intern (format "gamegrid-color-x-face-%s" hex)))
192           (face (make-face name)))           (face (make-face name)))
193      (gamegrid-setup-face face (gamegrid-color color 1.0))      (gamegrid-setup-face face hex)
194      face))      face))
195    
196  (defun gamegrid-make-face (data-spec-list color-spec-list)  (defun gamegrid-make-face (data-spec-list color-spec-list)
# Line 257  static char *noname[] = { Line 257  static char *noname[] = {
257    (let ((window-system-p    (let ((window-system-p
258           (or (and (fboundp 'console-on-window-system-p)           (or (and (fboundp 'console-on-window-system-p)
259                    (console-on-window-system-p))                    (console-on-window-system-p))
260                 (and (fboundp 'display-color-p)
261                      (display-color-p))
262               window-system)))               window-system)))
263    (cond ((and gamegrid-use-glyphs    (cond ((and gamegrid-use-glyphs
264                  window-system-p                  window-system-p

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.2.4.1

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