mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(x-create-frame-with-faces): Read geometry resource

Browse source 
and use that while creating the frame.
This commit is contained in:
Karl Heuer 1995-05-26 03:54:38 +00:00
parent ecd1f654a1
commit 6e4aafdc8a
1 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/faces.el
View file

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