Mercurial > hg > xemacs-beta

comparison lisp/device.el @ 213:78f53ef88e17 r20-4b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b5
author cvs
date Mon, 13 Aug 2007 10:06:47 +0200
parents 41ff10fd062f
children c42ec1d1cded
comparison
equal deleted inserted replaced
212:d8688acf4c5b 213:78f53ef88e17
39 "Return the type of the specified device (e.g. `x' or `tty'). 39 "Return the type of the specified device (e.g. `x' or `tty').
40 This is equivalent to the type of the device's console. 40 This is equivalent to the type of the device's console.
41 Value is `tty' for a tty device (a character-only terminal), 41 Value is `tty' for a tty device (a character-only terminal),
42 `x' for a device that is a screen on an X display, 42 `x' for a device that is a screen on an X display,
43 `ns' for a device that is a NeXTstep connection (not yet implemented), 43 `ns' for a device that is a NeXTstep connection (not yet implemented),
44 `w32' for a device that is a Windows or Windows NT connection, 44 `mswindows' for a device that is a Windows or Windows NT connection,
45 `pc' for a device that is a direct-write MS-DOS screen (not yet implemented), 45 `pc' for a device that is a direct-write MS-DOS screen (not yet implemented),
46 `stream' for a stream device (which acts like a stdio stream), and 46 `stream' for a stream device (which acts like a stdio stream), and
47 `dead' for a deleted device." 47 `dead' for a deleted device."
48 (or device (setq device (selected-device))) 48 (or device (setq device (selected-device)))
49 (if (not (device-live-p device)) 'dead 49 (if (not (device-live-p device)) 'dead
65 65
66 (defun make-x-device (&optional display) 66 (defun make-x-device (&optional display)
67 "Create a new device connected to DISPLAY." 67 "Create a new device connected to DISPLAY."
68 (make-device 'x display)) 68 (make-device 'x display))
69 69
70 (defun make-w32-device () 70 (defun make-mswindows-device ()
71 "Create a new win32 device." 71 "Create a new mswindows device."
72 (make-device 'w32 nil)) 72 (make-device 'mswindows nil))
73 73
74 (defun device-on-window-system-p (&optional device) 74 (defun device-on-window-system-p (&optional device)
75 "Return non-nil if DEVICE is on a window system. 75 "Return non-nil if DEVICE is on a window system.
76 This generally means that there is support for the mouse, the menubar, 76 This generally means that there is support for the mouse, the menubar,
77 the toolbar, glyphs, etc." 77 the toolbar, glyphs, etc."