Mercurial > emacs

changeset 43117:7541bec297e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gamegrid-display-type): Treat any color-capable display as color-x, if display-color-p is fboundp. (gamegrid-make-color-x-face): Don't call gamegrid-color twice. (gamegrid-make-color-tty-face): Use the value of color, not the symbol itself. Don't call gamegrid-color.
author Eli Zaretskii <eliz@gnu.org>
date Wed, 06 Feb 2002 11:34:07 +0000
parents 3c64eaf60ff7
children e1b601e414dd
files lisp/play/gamegrid.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/play/gamegrid.el	Wed Feb 06 08:25:00 2002 +0000
+++ b/lisp/play/gamegrid.el	Wed Feb 06 11:34:07 2002 +0000
@@ -166,10 +166,10 @@
     face))
 
 (defun gamegrid-make-color-tty-face (color)
-  (let* ((hex (gamegrid-color color 1.0))
-	 (name (intern (format "gamegrid-color-tty-face-%s" hex)))
+  (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)
+    (gamegrid-setup-face face color-str)
     face))
 
 (defun gamegrid-make-grid-x-face ()
@@ -190,7 +190,7 @@
   (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))
+    (gamegrid-setup-face face hex)
     face))
 
 (defun gamegrid-make-face (data-spec-list color-spec-list)
@@ -257,6 +257,8 @@
   (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