[Top][All Lists]
[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
- [Emacs-diffs] Changes to emacs/lisp/play/gamegrid.el,
Eli Zaretskii <=