(x-handle-geometry): Put sizes on both

initial-frame-alist and default-frame-alist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d72c30116f78f1380b818a5f14c785827387948e..abc3a6a3a22e880427d671788d9fb4a0f7ae5ba4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-01-24  Richard M. Stallman  <rms@gnu.org>
 
+       * term/x-win.el (x-handle-geometry): Put sizes on both
+       initial-frame-alist and default-frame-alist.
+
        * cus-edit.el (custom-save-all): Bind file-precious-flag to t
        for saving .emacs.
 

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 1307376779c2af46dfc8c8a29d768dbb5dc28b6e..c4dead52f8f673b14044edaf19052282cebf4caf 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -151,6 +151,11 @@
     (if (or height width)
        (setq default-frame-alist
              (append default-frame-alist
+                     '((user-size . t))
+                     (if height (list height))
+                     (if width (list width)))
+             initial-frame-alist
+             (append initial-frame-alist
                      '((user-size . t))
                      (if height (list height))
                      (if width (list width)))))