mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Make XEmacs compat code in gamegrid.el obsolete

Browse Source 
* 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.
This commit is contained in:
Stefan Kangas 2022-05-31 15:20:44 +02:00
parent 65ffb115b4
commit 59910c320a
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/play/gamegrid.el
View File

@ -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)))))