Obsolete image-jpeg-p

* lisp/image.el (image-jpeg-p): Declare obsolete.

diff --git a/lisp/image.el b/lisp/image.el
index e084fe329af608bac71eb1364d8ca4a5bac2a7d1..8d12b680ea929093fbfb6f9bcd4da31bff3c18fb 100644 (file)
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -248,6 +248,7 @@ compatibility with versions of Emacs that lack the variable
 ;; Used to be in image-type-header-regexps, but now not used anywhere
 ;; (since 2009-08-28).
 (defun image-jpeg-p (data)
+  (declare (obsolete "It is unused inside Emacs and will be removed." "27.1"))
   "Value is non-nil if DATA, a string, consists of JFIF image data.
 We accept the tag Exif because that is the same format."
   (setq data (ignore-errors (string-to-unibyte data)))