[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 36993bb9c2 1/2: Add new function imagep
From: |
Lars Ingebrigtsen |
Subject: |
master 36993bb9c2 1/2: Add new function imagep |
Date: |
Tue, 13 Sep 2022 09:53:49 -0400 (EDT) |
branch: master
commit 36993bb9c2e96df80d37775ba658201ae7353395
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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 60f2ad3452..85c43df2f5 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