X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fframe.el;h=8224377afb71aecbf1c5f956c0aa164289b25ae1;hb=1cacb6c4dd1b88fb4c579a02750f76b1fa036ee1;hp=2e40d57b2f038d1380df337411d95e7da7e954a0;hpb=c8aa261a7bf3eb1389d2e018be1d715f73cacd66;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/frame.el b/lisp/frame.el
index 2e40d57..8224377 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -502,14 +502,14 @@ This deletes all bindings in PLIST for `top', `left', `width',
 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)