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

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

2 files changed, 8 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d72c30116f7..abc3a6a3a22 100644
--- 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 1307376779c..c4dead52f8f 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -153,6 +153,11 @@
               (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)))))
     (if (or left top)
         (setq initial-frame-alist