From ddc456e4ec0d2dea2025f23f6559844d1b13c27e Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 17 Jul 2001 12:58:19 +0000 Subject: (display-images-p): New function. --- lisp/frame.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'lisp/frame.el') 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) -- cgit v1.2.1