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 | ddc456e4ec0d2dea2025f23f6559844d1b13c27e (patch) | |
| tree | 8d57d0dbd7de021f112d4fa2bb220ea13a70ec04 /lisp/frame.el | |
| parent | b31d75219201e01658c33c9f15a72790e4566540 (diff) | |
| download | emacs-ddc456e4ec0d2dea2025f23f6559844d1b13c27e.tar.gz | |
(display-images-p): New function.
Diffstat (limited to 'lisp/frame.el')
| -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) |