Mercurial > hg > xemacs-beta
comparison lisp/device.el @ 282:c42ec1d1cded r21-0b39
Import from CVS: tag r21-0b39
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:33:18 +0200 |
| parents | 78f53ef88e17 |
| children | 558f606b08ae |
comparison
equal
deleted
inserted
replaced
| 281:090b52736db2 | 282:c42ec1d1cded |
|---|---|
| 61 specifying the process id of the process in control of the specified tty. If | 61 specifying the process id of the process in control of the specified tty. If |
| 62 it is nil, it is assumes to be the value returned by emacs-pid." | 62 it is nil, it is assumes to be the value returned by emacs-pid." |
| 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) | |
| 67 "Return the width in pixels of DEVICE, or nil if unknown." | |
| 68 (let ((ds (device-system-metrics device 'size-device))) | |
| 69 (and ds (car ds)))) | |
| 70 | |
| 71 (defun device-pixel-height (&optional device) | |
| 72 "Return the height in pixels of DEVICE, or nil if unknown." | |
| 73 (let ((ds (device-system-metrics device 'size-device))) | |
| 74 (and ds (cdr ds)))) | |
| 75 | |
| 76 (defun device-mm-width (&optional device) | |
| 77 "Return the width in millimeters of DEVICE, or nil if unknown." | |
| 78 (let ((ds (device-system-metrics device 'size-device-mm))) | |
| 79 (and ds (car ds)))) | |
| 80 | |
| 81 (defun device-mm-height (&optional device) | |
| 82 "Return the height in millimeters of DEVICE, or nil if unknown." | |
| 83 (let ((ds (device-system-metrics device 'size-device-mm))) | |
| 84 (and ds (cdr ds)))) | |
| 85 | |
| 86 (defun device-bitplanes (&optional device) | |
| 87 "Return the number of bitplanes of DEVICE, or nil if unknown." | |
| 88 (device-system-metrics device 'num-bit-planes)) | |
| 89 | |
| 90 (defun device-color-cells (&optional device) | |
| 91 "Return the number of color cells of DEVICE, or nil if unknown." | |
| 92 (device-system-metrics device 'num-color-cells)) | |
| 93 | |
| 66 (defun make-x-device (&optional display) | 94 (defun make-x-device (&optional display) |
| 67 "Create a new device connected to DISPLAY." | 95 "Create a new device connected to DISPLAY." |
| 68 (make-device 'x display)) | 96 (make-device 'x display)) |
| 69 | 97 |
| 70 (defun make-mswindows-device () | 98 (defun make-mswindows-device () |