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

[Francesco Potortì]

Index: emacs/lisp/play/gamegrid.el
diff -c emacs/lisp/play/gamegrid.el:1.11 emacs/lisp/play/gamegrid.el:1.12
*** emacs/lisp/play/gamegrid.el:1.11    Fri May  3 15:30:58 2002
--- emacs/lisp/play/gamegrid.el Tue Sep 10 12:47:16 2002
***************
*** 171,177 ****
      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)
--- 171,177 ----
      face))
  
  (defun gamegrid-make-color-tty-face (color)
!   (let* ((color-str (if (symbolp color) (symbol-value color) color))
         (name (intern (format "gamegrid-color-tty-face-%s" color-str)))
         (face (make-face name)))
      (gamegrid-setup-face face color-str)
***************
*** 262,286 ****
    (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
!             (featurep 'xpm))
!        'glyph)
!       ((and gamegrid-use-color
                window-system-p
!             (gamegrid-color-display-p))
!        'color-x)
          (window-system-p
!        'mono-x)
!       ((and gamegrid-use-color
!             (gamegrid-color-display-p))
!        'color-tty)
!       ((fboundp 'set-face-property)
!        'mono-tty)
!       (t
           'emacs-tty))))
  
  (defun gamegrid-set-display-table ()
--- 262,284 ----
    (let ((window-system-p 
         (or (and (fboundp 'console-on-window-system-p)
                  (console-on-window-system-p))
             window-system)))
!     (cond ((and gamegrid-use-glyphs
                window-system-p
!               (featurep 'xpm))
!          'glyph)
!         ((and gamegrid-use-color
                window-system-p
!               (gamegrid-color-display-p))
!          'color-x)
          (window-system-p
!          'mono-x)
!         ((and gamegrid-use-color
!               (gamegrid-color-display-p))
!          'color-tty)
!         ((fboundp 'set-face-property)
!          'mono-tty)
!         (t
           'emacs-tty))))
  
  (defun gamegrid-set-display-table ()
***************
*** 293,300 ****
      (setq buffer-display-table gamegrid-display-table)))
  
  (defun gamegrid-hide-cursor ()
!   (if (fboundp 'specifierp)
!       (set-specifier text-cursor-visible-p nil (current-buffer))))
  
  (defun gamegrid-setup-default-font ()
    (cond ((eq gamegrid-display-mode 'glyph)
--- 291,298 ----
      (setq buffer-display-table gamegrid-display-table)))
  
  (defun gamegrid-hide-cursor ()
!   (make-local-variable 'cursor-type)
!   (setq cursor-type nil))
  
  (defun gamegrid-setup-default-font ()
    (cond ((eq gamegrid-display-mode 'glyph)