emacs-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]