Mercurial > hg > xemacs-beta
comparison lisp/prim/device.el @ 173:8eaf7971accc r20-3b13
Import from CVS: tag r20-3b13
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:49:09 +0200 |
| parents | 8619ce7e4c50 |
| children |
comparison
equal
deleted
inserted
replaced
| 172:a38aed19690b | 173:8eaf7971accc |
|---|---|
| 24 | 24 |
| 25 ;;; Synched up with: Not in FSF. | 25 ;;; Synched up with: Not in FSF. |
| 26 | 26 |
| 27 (defun device-list () | 27 (defun device-list () |
| 28 "Return a list of all devices." | 28 "Return a list of all devices." |
| 29 (apply 'append (mapcar 'console-device-list (console-list)))) | 29 (apply 'nconc (mapcar 'console-device-list (console-list)))) |
| 30 | 30 |
| 31 (defun device-type (&optional device) | 31 (defun device-type (&optional device) |
| 32 "Return the type of the specified device (e.g. `x' or `tty'). | 32 "Return the type of the specified device (e.g. `x' or `tty'). |
| 33 This is equivalent to the type of the device's console. | 33 This is equivalent to the type of the device's console. |
| 34 Value is `tty' for a tty device (a character-only terminal), | 34 Value is `tty' for a tty device (a character-only terminal), |