From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 26 May 1995 03:54:38 +0000 (+0000)
Subject: (x-create-frame-with-faces): Read geometry resource
X-Git-Tag: emacs-19.34~3931
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e4aafdc8a5bf0bcbe758e2790309ffe3541f05e;p=emacs.git

(x-create-frame-with-faces): Read geometry resource
and use that while creating the frame.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index c5ab9b6623f..aa14e62b72c 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -938,6 +938,24 @@ selected frame."
 ;; Like x-create-frame but also set up the faces.
 
 (defun x-create-frame-with-faces (&optional parameters)
+  ;; Read this frame's geometry resource, if it has an explicit name,
+  ;; and put the specs into PARAMETERS.
+  (let* ((name (or (cdr (assq 'name parameters))
+		   (cdr (assq 'name default-frame-alist))
+		   (cdr (assq 'name initial-frame-alist))))
+	 (x-resource-name name)
+	 (res-geometry (x-get-resource "geometry" "Geometry"))
+	 parsed)
+    (if res-geometry
+	(progn
+	  (setq parsed (x-parse-geometry res-geometry))
+	  ;; If the resource specifies a position,
+	  ;; call the position and size "user-specified".
+	  (if (or (assq 'top parsed) (assq 'left parsed))
+	      (setq parsed (cons '(user-position . t)
+				 (cons '(user-size . t) parsed))))
+	  ;; All geometry parms apply to the initial frame.
+	  (setq parameters (append parameters parsed)))))
   (if (null global-face-data)
       (x-create-frame parameters)
     (let* ((visibility-spec (assq 'visibility parameters))