From 28ceec49f1ef93b03113bae54fccea3c21d779a6 Mon Sep 17 00:00:00 2001 From: Simon Marshall Date: Sat, 15 Mar 1997 13:22:49 +0000 Subject: [PATCH] clean code. --- lisp/faces.el | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index 4460f2b5504..26b2691e288 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1072,21 +1072,17 @@ selected frame." (let* ((name (or (cdr (assq 'name parameters)) (cdr (assq 'name default-frame-alist)))) (x-resource-name name) - (res-geometry (if name (x-get-resource "geometry" "Geometry"))) - parsed) + (res-geometry (if name (x-get-resource "geometry" "Geometry")))) (if res-geometry - (progn - (setq parsed (x-parse-geometry res-geometry)) + (let ((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)))) + (setq parsed (append '((user-position . t) (user-size . t)) + 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))))) + (setq parameters (append parameters default-frame-alist parsed))))) (let (frame) (if (null global-face-data) (setq frame (x-create-frame parameters)) -- 2.39.2