Mercurial > hg > xemacs-beta

comparison lisp/device.el @ 1942:da8cdcec6dff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-03-08 15:22:44 by james] frame.el synch with Emacs 21.3.
author james
date Mon, 08 Mar 2004 15:23:03 +0000
parents 0784d089fdc9
children aa5ed11f473b
comparison
equal deleted inserted replaced
1941:0637d85c1dd1 1942:da8cdcec6dff
102 102
103 (defun device-color-cells (&optional device) 103 (defun device-color-cells (&optional device)
104 "Return the number of color cells of DEVICE, or nil if unknown." 104 "Return the number of color cells of DEVICE, or nil if unknown."
105 (device-system-metric device 'num-color-cells)) 105 (device-system-metric device 'num-color-cells))
106 106
107 (defun device-num-screens (&optional device)
108 "Return the number of display screens available on DEVICE, or 1 if unknown."
109 (device-system-metric device 'num-screens 1))
110
111 (defun device-backing-store (&optional device)
112 "Return the backing store capability of DEVICE.
113 The value may be `always', `when-mapped', `not-useful', or nil if
114 the question is inapplicable to a certain kind of display."
115 (device-system-metric device 'backing-store))
116
117 (defun device-save-under (&optional device)
118 "Return non-nil if DEVICE supports the SaveUnder feature."
119 (device-system-metric device 'save-under))
120
107 (defun make-gtk-device () 121 (defun make-gtk-device ()
108 "Create a new GTK device." 122 "Create a new GTK device."
109 (make-device 'gtk nil)) 123 (make-device 'gtk nil))
110 124
111 (defun make-x-device (&optional display) 125 (defun make-x-device (&optional display)