From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 13 Sep 2022 13:49:18 +0000 (+0200)
Subject: Add new function imagep
X-Git-Tag: emacs-29.0.90~1856^2~558
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=36993bb9c2e96df80d37775ba658201ae7353395;p=emacs.git

Add new function imagep

* lisp/simple.el (imagep): New function.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 60f2ad34528..85c43df2f51 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -10717,6 +10717,10 @@ If the buffer doesn't exist, create it first."
   (plist-put plist prop val #'equal))
 
 
+(defun imagep (object)
+  "Return non-nil if OBJECT is an image."
+  (and (consp object) (eq (car object) 'image)))
+
 (provide 'simple)
 
 ;;; simple.el ends here