From 36993bb9c2e96df80d37775ba658201ae7353395 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 13 Sep 2022 15:49:18 +0200 Subject: [PATCH] Add new function imagep * lisp/simple.el (imagep): New function. --- lisp/simple.el | 4 ++++ 1 file changed, 4 insertions(+) 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 -- 2.39.2