Mercurial > hg > xemacs-beta
comparison lisp/frame.el @ 5292:e4305eb6fb8c
Merge some permissions corrections to trunk.
| author | Stephen J. Turnbull <stephen@xemacs.org> |
|---|---|
| date | Mon, 18 Oct 2010 23:21:23 +0900 |
| parents | 0d43872986b6 |
| children | 8b70d37ab80e 308d34e9f07d |
comparison
equal
deleted
inserted
replaced
| 5291:85bd42a1e544 | 5292:e4305eb6fb8c |
|---|---|
| 859 | 859 |
| 860 ; This is in C in Emacs | 860 ; This is in C in Emacs |
| 861 (defun frame-list () | 861 (defun frame-list () |
| 862 "Return a list of all frames on all devices/consoles." | 862 "Return a list of all frames on all devices/consoles." |
| 863 ;; Lists are copies, so nconc is safe here. | 863 ;; Lists are copies, so nconc is safe here. |
| 864 (apply 'nconc (mapcar 'device-frame-list (device-list)))) | 864 (mapcan #'device-frame-list (device-list))) |
| 865 | 865 |
| 866 (defun frame-type (&optional frame) | 866 (defun frame-type (&optional frame) |
| 867 "Return the type of the specified frame (e.g. `x' or `tty'). | 867 "Return the type of the specified frame (e.g. `x' or `tty'). |
| 868 This is equivalent to the type of the frame's device. | 868 This is equivalent to the type of the frame's device. |
| 869 Value is `tty' for a tty frame (a character-only terminal), | 869 Value is `tty' for a tty frame (a character-only terminal), |