diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-05-31 15:20:44 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-06-01 15:29:35 +0200 |
| commit | 59910c320a8e786ccb53b2dff6dac47caaff3527 (patch) | |
| tree | aa9983b5d0f5a08692f56427b8822ee7c7b87641 /lisp/play | |
| parent | 65ffb115b4ad42fc5881a0f2fdcba5b8a3561b28 (diff) | |
| download | emacs-59910c320a8e786ccb53b2dff6dac47caaff3527.tar.gz | |
Make XEmacs compat code in gamegrid.el obsolete
* lisp/play/gamegrid.el (gamegrid-make-glyph): Warn on using obsolete
XEmacs style glyph. (This is currently unused in the Emacs tree.)
(gamegrid-make-image-from-vector): Make obsolete.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/gamegrid.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/play/gamegrid.el b/lisp/play/gamegrid.el index 256b4e19ce8..55c9244f2e4 100644 --- a/lisp/play/gamegrid.el +++ b/lisp/play/gamegrid.el @@ -343,11 +343,17 @@ format." (gamegrid-colorize-glyph color)) ((listp data) (find-image data)) ;untested! - ((vectorp data) - (gamegrid-make-image-from-vector data))))) + ;; 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)))))) (defun gamegrid-make-image-from-vector (vect) "Convert an XEmacs style \"glyph\" to an image-spec." + (declare (obsolete nil "29.1")) (let ((l (list 'image :type))) (dotimes (n (length vect)) (setf l (nconc l (list (aref vect n))))) |