(display-images-p): New function.

1 files changed, 12 insertions, 0 deletions

diff --git a/lisp/frame.el b/lisp/frame.el
index 7720b796e8f..c888334aad4 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -904,6 +904,18 @@ DISPLAY can be a display name, a frame, or nil (meaning the selected
 frame's display)."
   (not (null (memq (framep-on-display display) '(x w32 mac)))))
 
+(defun display-images-p (&optional display)
+  "Return non-nil if DISPLAY can display images.
+
+DISPLAY can be a display name, a frame, or nil (meaning the selected
+frame's display)."
+  (and (display-graphic-p display)
+       (fboundp 'image-mask-p)
+       (fboundp 'image-size)
+       ;; FIXME: this will need to be revisited when the Windows port
+       ;; supports images.
+       (not (eq (framep-on-display display) 'w32))))
+
 (defalias 'display-multi-frame-p 'display-graphic-p)
 (defalias 'display-multi-font-p 'display-graphic-p)