Function: gamegrid-make-glyph

gamegrid-make-glyph is a byte-compiled function defined in gamegrid.el.gz.

Signature

(gamegrid-make-glyph DATA-SPEC-LIST COLOR-SPEC-LIST)

Source Code

;; Defined in /usr/src/emacs/lisp/play/gamegrid.el.gz
(defun gamegrid-make-glyph (data-spec-list color-spec-list)
  ;; image.el is not preloaded in --without-x builds.
  (defvar image-scaling-factor)
  (let ((data (gamegrid-match-spec-list data-spec-list))
	(color (gamegrid-match-spec-list color-spec-list))
        (image-scaling-factor 1.0))
    (cond ((characterp data)
	   (vector data))
	  ((eq data 'colorize)
	   (gamegrid-colorize-glyph color))
	  ((listp data)
	   (find-image data)) ;untested!
          ;; Remove when `gamegrid-make-image-from-vector' is removed:
          ((vectorp data)
           (lwarn 'gamegrid :warning
                  "Using obsolete XEmacs style \"glyph\"; \
convert to an Emacs image-spec instead")
           (with-suppressed-warnings ((obsolete gamegrid-make-image-from-vector))
             (gamegrid-make-image-from-vector data))))))