Mercurial > hg > xemacs-beta
comparison lisp/frame.el @ 412:697ef44129c6 r21-2-14
Import from CVS: tag r21-2-14
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:20:41 +0200 |
| parents | 74fd4e045ea6 |
| children |
comparison
equal
deleted
inserted
replaced
| 411:12e008d41344 | 412:697ef44129c6 |
|---|---|
| 500 This deletes all bindings in PLIST for `top', `left', `width', | 500 This deletes all bindings in PLIST for `top', `left', `width', |
| 501 `height', `user-size' and `user-position' properties. | 501 `height', `user-size' and `user-position' properties. |
| 502 Emacs uses this to avoid overriding explicit moves and resizings from | 502 Emacs uses this to avoid overriding explicit moves and resizings from |
| 503 the user during startup." | 503 the user during startup." |
| 504 (setq plist (canonicalize-lax-plist (copy-sequence plist))) | 504 (setq plist (canonicalize-lax-plist (copy-sequence plist))) |
| 505 (mapcar #'(lambda (property) | 505 (mapcar #'(lambda (propname) |
| 506 (if (lax-plist-member plist property) | 506 (if (lax-plist-member plist propname) |
| 507 (progn | 507 (progn |
| 508 (setq frame-initial-geometry-arguments | 508 (setq frame-initial-geometry-arguments |
| 509 (cons property | 509 (cons propname |
| 510 (cons (lax-plist-get plist property) | 510 (cons (lax-plist-get plist propname) |
| 511 frame-initial-geometry-arguments))) | 511 frame-initial-geometry-arguments))) |
| 512 (setq plist (lax-plist-remprop plist property))))) | 512 (setq plist (lax-plist-remprop plist propname))))) |
| 513 '(height width top left user-size user-position)) | 513 '(height width top left user-size user-position)) |
| 514 plist) | 514 plist) |
| 515 | 515 |
| 516 (defun other-frame (arg) | 516 (defun other-frame (arg) |
| 517 "Select the ARG'th different visible frame, and raise it. | 517 "Select the ARG'th different visible frame, and raise it. |
| 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 MS Windows desktop window, | 574 `mswindows' for a frame that is a Windows NT or Windows 95/97 window, |
| 575 `msprinter' for a frame that is a MS Windows print job, | 575 `pc' for a frame that is a direct-write MS-DOS frame (not yet implemented), |
| 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)))) |