Mercurial > emacs

diff lisp/frame.el @ 38469:38c0279a4af4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(display-images-p): New function.
author Eli Zaretskii <eliz@gnu.org>
date Tue, 17 Jul 2001 12:58:19 +0000
parents 253f761ad37b
children c20b98060a6d
line wrap: on
line diff
--- a/lisp/frame.el	Tue Jul 17 11:07:02 2001 +0000
+++ b/lisp/frame.el	Tue Jul 17 12:58:19 2001 +0000
@@ -904,6 +904,18 @@
 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)