Mercurial > emacs
changeset 38469:38c0279a4af4
(display-images-p): New function.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Tue, 17 Jul 2001 12:58:19 +0000 |
| parents | ef44d82c6020 |
| children | b8361f155685 |
| files | lisp/frame.el |
| diffstat | 1 files changed, 12 insertions(+), 0 deletions(-) [+] |
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)