# HG changeset patch
# User michaels
# Date 1123321319 0
# Node ID 469ce4fa0ade3e5562570b346e5cd31c7af1ab33
# Parent  f78c1a03968c2a124bf5731502cde5238f455f5e
[xemacs-hg @ 2005-08-06 09:41:58 by michaels]
2005-08-06  Mike Sperber  <mike@xemacs.org>

	* window-xemacs.el (really-set-window-configuration): Only set
	the frame top and left if they've changed.

diff -r f78c1a03968c -r 469ce4fa0ade lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Aug 05 21:50:55 2005 +0000
+++ b/lisp/ChangeLog	Sat Aug 06 09:41:59 2005 +0000
@@ -1,3 +1,8 @@
+2005-08-06  Mike Sperber  <mike@xemacs.org>
+
+	* window-xemacs.el (really-set-window-configuration): Only set
+	the frame top and left if they've changed.
+
 2005-08-04  Mike Sperber  <mike@xemacs.org>
 
 	* window-xemacs.el (window-configuration-equal): Compare frame top
diff -r f78c1a03968c -r 469ce4fa0ade lisp/window-xemacs.el
--- a/lisp/window-xemacs.el	Fri Aug 05 21:50:55 2005 +0000
+++ b/lisp/window-xemacs.el	Sat Aug 06 09:41:59 2005 +0000
@@ -291,8 +291,15 @@
 
   (frame-reduce-to-one-window frame)
   (set-window-configuration-frame-size configuration)
-  (set-frame-property frame 'left (window-configuration-frame-left configuration)) 
-  (set-frame-property frame 'top (window-configuration-frame-top configuration)) 
+
+  ; avoid setting these if they're already up-to-date
+  ; This also avoids potential inaccuracies in these settings --Mike
+  (let ((left (window-configuration-frame-left configuration))
+	(top (window-configuration-frame-top configuration)))
+    (if (not (equal left (frame-property frame 'left)))
+	(set-frame-property frame 'left left))
+    (if (not (equal top (frame-property frame 'top)))
+	(set-frame-property frame 'top top))) 
 
   ;; these may have changed because of the delete
   (let ((root-window (frame-root-window frame)))