mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(display-images-p): New function.

Browse source
This commit is contained in:
Eli Zaretskii 2001-07-17 12:58:19 +00:00
parent b31d752192
commit ddc456e4ec
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/frame.el
View file

@ -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)