Mercurial > hg > xemacs-beta
diff lisp/frame.el @ 398:74fd4e045ea6 r21-2-29
Import from CVS: tag r21-2-29
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:13:30 +0200 |
parents | e11d67e05968 |
children | 697ef44129c6 |
line wrap: on
line diff
--- a/lisp/frame.el Mon Aug 13 11:12:06 2007 +0200 +++ b/lisp/frame.el Mon Aug 13 11:13:30 2007 +0200 @@ -502,14 +502,14 @@ Emacs uses this to avoid overriding explicit moves and resizings from the user during startup." (setq plist (canonicalize-lax-plist (copy-sequence plist))) - (mapcar #'(lambda (propname) - (if (lax-plist-member plist propname) + (mapcar #'(lambda (property) + (if (lax-plist-member plist property) (progn (setq frame-initial-geometry-arguments - (cons propname - (cons (lax-plist-get plist propname) + (cons property + (cons (lax-plist-get plist property) frame-initial-geometry-arguments))) - (setq plist (lax-plist-remprop plist propname))))) + (setq plist (lax-plist-remprop plist property))))) '(height width top left user-size user-position)) plist) @@ -571,8 +571,8 @@ Value is `tty' for a tty frame (a character-only terminal), `x' for a frame that is an X window, `ns' for a frame that is a NeXTstep window (not yet implemented), -`mswindows' for a frame that is a Windows NT or Windows 95/97 window, -`pc' for a frame that is a direct-write MS-DOS frame (not yet implemented), +`mswindows' for a frame that is a MS Windows desktop window, +`msprinter' for a frame that is a MS Windows print job, `stream' for a stream frame (which acts like a stdio stream), and `dead' for a deleted frame." (or frame (setq frame (selected-frame)))