# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 738481092 0
# Node ID 2a484b449183e05f263290009bc82c0b48e3a987
# Parent  f26d9c46992674c218e7af417a706ae4fda7b10d
	* x-win.el: Check for a geometry resource, and apply it to the
	initial frame.

diff -r f26d9c469926 -r 2a484b449183 lisp/term/x-win.el
--- a/lisp/term/x-win.el	Thu May 27 05:35:48 1993 +0000
+++ b/lisp/term/x-win.el	Thu May 27 05:38:12 1993 +0000
@@ -521,6 +521,14 @@
 
 (setq frame-creation-function 'x-create-frame-with-faces)
 
+;; Apply a geometry resource to the initial frame.  Put it at the end
+;; of the alist, so that anything specified on the command line takes
+;; precedence.
+(let ((res-geometry (x-get-resource "geometry" "Geometry")))
+  (if res-geometry
+      (setq initial-frame-alist (append initial-frame-alist
+					(x-parse-geometry res-geometry)))))
+
 (defun x-win-suspend-error ()
   (error "Suspending an emacs running under X makes no sense"))
 (add-hook 'suspend-hook 'x-win-suspend-error)