Mercurial > emacs
diff lisp/term/x-win.el @ 3172:2a484b449183
* x-win.el: Check for a geometry resource, and apply it to the
initial frame.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Thu, 27 May 1993 05:38:12 +0000 |
parents | 63c51f1e885b |
children | f3c8ed7fcb45 |
line wrap: on
line diff
--- a/lisp/term/x-win.el Thu May 27 05:35:48 1993 +0000 +++ b/lisp/term/x-win.el Thu May 27 05:38:12 1993 +0000 @@ -521,6 +521,14 @@ (setq frame-creation-function 'x-create-frame-with-faces) +;; Apply a geometry resource to the initial frame. Put it at the end +;; of the alist, so that anything specified on the command line takes +;; precedence. +(let ((res-geometry (x-get-resource "geometry" "Geometry"))) + (if res-geometry + (setq initial-frame-alist (append initial-frame-alist + (x-parse-geometry res-geometry))))) + (defun x-win-suspend-error () (error "Suspending an emacs running under X makes no sense")) (add-hook 'suspend-hook 'x-win-suspend-error)