Mercurial > emacs
changeset 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 | f26d9c469926 |
| children | c3c1b1ceab05 |
| files | lisp/term/x-win.el |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
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)