emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/play/gamegrid.el


From: Eli Zaretskii
Subject: [Emacs-diffs] Changes to emacs/lisp/play/gamegrid.el
Date: Wed, 06 Feb 2002 06:34:08 -0500

Index: emacs/lisp/play/gamegrid.el
diff -c emacs/lisp/play/gamegrid.el:1.3 emacs/lisp/play/gamegrid.el:1.4
*** emacs/lisp/play/gamegrid.el:1.3     Mon Nov 26 11:16:45 2001
--- emacs/lisp/play/gamegrid.el Wed Feb  6 06:34:07 2002
***************
*** 166,175 ****
      face))
  
  (defun gamegrid-make-color-tty-face (color)
!   (let* ((hex (gamegrid-color color 1.0))
!        (name (intern (format "gamegrid-color-tty-face-%s" hex)))
         (face (make-face name)))
!     (gamegrid-setup-face face color)
      face))
  
  (defun gamegrid-make-grid-x-face ()
--- 166,175 ----
      face))
  
  (defun gamegrid-make-color-tty-face (color)
!   (let* ((color-str (symbol-value color))
!        (name (intern (format "gamegrid-color-tty-face-%s" color-str)))
         (face (make-face name)))
!     (gamegrid-setup-face face color-str)
      face))
  
  (defun gamegrid-make-grid-x-face ()
***************
*** 190,196 ****
    (let* ((hex (gamegrid-color color 1.0))
         (name (intern (format "gamegrid-color-x-face-%s" hex)))
         (face (make-face name)))
!     (gamegrid-setup-face face (gamegrid-color color 1.0))
      face))
  
  (defun gamegrid-make-face (data-spec-list color-spec-list)
--- 190,196 ----
    (let* ((hex (gamegrid-color color 1.0))
         (name (intern (format "gamegrid-color-x-face-%s" hex)))
         (face (make-face name)))
!     (gamegrid-setup-face face hex)
      face))
  
  (defun gamegrid-make-face (data-spec-list color-spec-list)
***************
*** 257,262 ****
--- 257,264 ----
    (let ((window-system-p 
         (or (and (fboundp 'console-on-window-system-p)
                  (console-on-window-system-p))
+            (and (fboundp 'display-color-p)
+                 (display-color-p))
             window-system)))
    (cond ((and gamegrid-use-glyphs
                window-system-p



reply via email to

[Prev in Thread] Current Thread [Next in Thread]