Mercurial > emacs

changeset 17162:97232f50447f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
clean code.
author Simon Marshall <simon@gnu.org>
date Sat, 15 Mar 1997 13:22:49 +0000
parents a2d3b455c6f4
children a63a326604ae
files lisp/faces.el
diffstat 1 files changed, 5 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Sat Mar 15 13:19:12 1997 +0000
+++ b/lisp/faces.el	Sat Mar 15 13:22:49 1997 +0000
@@ -1072,21 +1072,17 @@
   (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))