mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-01 20:06:00 +00:00
Code Issues Releases Activity

(x-create-frame-with-faces): Don't use initial-frame-alist

Browse Source 
when looking for the X resource name.
Copy parameters from default-frame-alist, before the geometry
specs from the X resource database.
This commit is contained in:
Karl Heuer 1995-06-09 15:42:08 +00:00
parent c05533274c
commit 313b841c1e
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/faces.el
View File

@ -941,8 +941,7 @@ selected frame."
;; 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))))
(cdr (assq 'name default-frame-alist))))
(x-resource-name name)
(res-geometry (if name (x-get-resource "geometry" "Geometry")))
parsed)
@ -954,8 +953,11 @@ selected frame."
(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)))))
;; Put the geometry parameters at the end.
;; Copy default-frame-alist so that they go after it.
(setq parameters (append parameters
default-frame-alist
parsed)))))
(if (null global-face-data)
(x-create-frame parameters)
(let* ((visibility-spec (assq 'visibility parameters))