diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2001-07-17 12:58:19 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2001-07-17 12:58:19 +0000 |
| commit | 6df7852caffe877cc7a5c1ce503fdefc716360dd (patch) | |
| tree | aa54ac7db68d10afe9d3f09ba0afb30d9bbf9fff | |
| parent | 0233e22c01ad3a32bcc8d74f1c8b58c2f7a149ad (diff) | |
| download | emacs-6df7852caffe877cc7a5c1ce503fdefc716360dd.tar.gz | |
(display-images-p): New function.
| -rw-r--r-- | lisp/frame.el | 12 |
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) |