Mercurial > hg > xemacs-beta

comparison lisp/frame.el @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 3ecd8885ac67
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
569 "Return the type of the specified frame (e.g. `x' or `tty'). 569 "Return the type of the specified frame (e.g. `x' or `tty').
570 This is equivalent to the type of the frame's device. 570 This is equivalent to the type of the frame's device.
571 Value is `tty' for a tty frame (a character-only terminal), 571 Value is `tty' for a tty frame (a character-only terminal),
572 `x' for a frame that is an X window, 572 `x' for a frame that is an X window,
573 `ns' for a frame that is a NeXTstep window (not yet implemented), 573 `ns' for a frame that is a NeXTstep window (not yet implemented),
574 `mswindows' for a frame that is a Windows NT or Windows 95/97 window, 574 `mswindows' for a frame that is a MS Windows desktop window,
575 `pc' for a frame that is a direct-write MS-DOS frame (not yet implemented), 575 `msprinter' for a frame that is a MS Windows print job,
576 `stream' for a stream frame (which acts like a stdio stream), and 576 `stream' for a stream frame (which acts like a stdio stream), and
577 `dead' for a deleted frame." 577 `dead' for a deleted frame."
578 (or frame (setq frame (selected-frame))) 578 (or frame (setq frame (selected-frame)))
579 (if (not (frame-live-p frame)) 'dead 579 (if (not (frame-live-p frame)) 'dead
580 (device-type (frame-device frame)))) 580 (device-type (frame-device frame))))