Mercurial > hg > xemacs-beta

comparison lisp/device.el @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents c42ec1d1cded
children 74fd4e045ea6
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
63 (make-device 'tty tty (list 'terminal-type terminal-type 63 (make-device 'tty tty (list 'terminal-type terminal-type
64 'controlling-process controlling-process))) 64 'controlling-process controlling-process)))
65 65
66 (defun device-pixel-width (&optional device) 66 (defun device-pixel-width (&optional device)
67 "Return the width in pixels of DEVICE, or nil if unknown." 67 "Return the width in pixels of DEVICE, or nil if unknown."
68 (let ((ds (device-system-metrics device 'size-device))) 68 (let ((ds (device-system-metric device 'size-device)))
69 (and ds (car ds)))) 69 (and ds (car ds))))
70 70
71 (defun device-pixel-height (&optional device) 71 (defun device-pixel-height (&optional device)
72 "Return the height in pixels of DEVICE, or nil if unknown." 72 "Return the height in pixels of DEVICE, or nil if unknown."
73 (let ((ds (device-system-metrics device 'size-device))) 73 (let ((ds (device-system-metric device 'size-device)))
74 (and ds (cdr ds)))) 74 (and ds (cdr ds))))
75 75
76 (defun device-mm-width (&optional device) 76 (defun device-mm-width (&optional device)
77 "Return the width in millimeters of DEVICE, or nil if unknown." 77 "Return the width in millimeters of DEVICE, or nil if unknown."
78 (let ((ds (device-system-metrics device 'size-device-mm))) 78 (let ((ds (device-system-metric device 'size-device-mm)))
79 (and ds (car ds)))) 79 (and ds (car ds))))
80 80
81 (defun device-mm-height (&optional device) 81 (defun device-mm-height (&optional device)
82 "Return the height in millimeters of DEVICE, or nil if unknown." 82 "Return the height in millimeters of DEVICE, or nil if unknown."
83 (let ((ds (device-system-metrics device 'size-device-mm))) 83 (let ((ds (device-system-metric device 'size-device-mm)))
84 (and ds (cdr ds)))) 84 (and ds (cdr ds))))
85 85
86 (defun device-bitplanes (&optional device) 86 (defun device-bitplanes (&optional device)
87 "Return the number of bitplanes of DEVICE, or nil if unknown." 87 "Return the number of bitplanes of DEVICE, or nil if unknown."
88 (device-system-metrics device 'num-bit-planes)) 88 (device-system-metric device 'num-bit-planes))
89 89
90 (defun device-color-cells (&optional device) 90 (defun device-color-cells (&optional device)
91 "Return the number of color cells of DEVICE, or nil if unknown." 91 "Return the number of color cells of DEVICE, or nil if unknown."
92 (device-system-metrics device 'num-color-cells)) 92 (device-system-metric device 'num-color-cells))
93 93
94 (defun make-x-device (&optional display) 94 (defun make-x-device (&optional display)
95 "Create a new device connected to DISPLAY." 95 "Create a new device connected to DISPLAY."
96 (make-device 'x display)) 96 (make-device 'x display))
97 97