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)))