From 4486edd45a89658a1c53b4d12aa4ce2f2900de16 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 12 Nov 2005 22:34:58 +0000
Subject: [PATCH] Run XTERM-RECONFIGURE after setting font, _not_
 XTERM-SET-SIZE.

---
 v7/src/edwin/xcom.scm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/v7/src/edwin/xcom.scm b/v7/src/edwin/xcom.scm
index 9caaf0a8d..94d1871a9 100644
--- a/v7/src/edwin/xcom.scm
+++ b/v7/src/edwin/xcom.scm
@@ -1,9 +1,9 @@
 #| -*-Scheme-*-
 
-$Id: xcom.scm,v 1.24 2003/02/14 18:28:14 cph Exp $
+$Id: xcom.scm,v 1.25 2005/11/12 22:34:58 cph Exp $
 
 Copyright 1989,1990,1994,1996,2000,2001 Massachusetts Institute of Technology
-Copyright 2002,2003 Massachusetts Institute of Technology
+Copyright 2002,2003,2005 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -31,10 +31,10 @@ USA.
 (define-primitives
   (x-set-default-font 2)
   (x-window-clear 1)
-  (x-window-lower 1)
-  (x-window-raise 1)
   (x-window-get-position 1)
   (x-window-get-size 1)
+  (x-window-lower 1)
+  (x-window-raise 1)
   (x-window-set-background-color 2)
   (x-window-set-border-color 2)
   (x-window-set-border-width 2)
@@ -48,9 +48,10 @@ USA.
   (x-window-set-size 3)
   (x-window-x-size 1)
   (x-window-y-size 1)
+  (xterm-reconfigure 3)
+  (xterm-set-size 3)
   (xterm-x-size 1)
-  (xterm-y-size 1)
-  (xterm-set-size 3))
+  (xterm-y-size 1))
 
 (define (current-xterm)
   (screen-xterm (selected-screen)))
@@ -98,7 +99,7 @@ USA.
 	    (y-size (xterm-y-size xterm)))
 	(if (not (x-window-set-font xterm font))
 	    (editor-error "Unknown font name: " font))
-	(xterm-set-size xterm x-size y-size)))))
+	(xterm-reconfigure xterm x-size y-size)))))
 
 (define-command set-default-font
   "Set text font to be used in new frames."
-- 
2.25.1