CVS update by michaels packages/xemacs-packages/vm ...

[xemacs-cvs at xemacs.org]

  User: michaels
  Date: 07/09/16 11:58:15

  Modified:    packages/xemacs-packages/vm ChangeLog tapestry.el
Log:
2007-09-07  Mike Sperber  <mike at xemacs.org>

	* tapestry.el (tapestry-set-window-map): Use
	`frame-reduce-to-one-window' instead of `delete-other-windows' to
	keep the point from moving inadvertently.

Revision  Changes    Path
1.65      +6 -0      XEmacs/packages/xemacs-packages/vm/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vm/ChangeLog,v
retrieving revision 1.64
retrieving revision 1.65
diff -u -p -r1.64 -r1.65
--- ChangeLog	2007/09/04 11:20:39	1.64
+++ ChangeLog	2007/09/16 09:58:14	1.65
@@ -1,3 +1,9 @@
+2007-09-07  Mike Sperber  <mike at xemacs.org>
+
+	* tapestry.el (tapestry-set-window-map): Use
+	`frame-reduce-to-one-window' instead of `delete-other-windows' to
+	keep the point from moving inadvertently.
+
 2007-09-04  Norbert Koch  <viteno at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 7.23 released.



1.6       +5 -1      XEmacs/packages/xemacs-packages/vm/tapestry.el

Index: tapestry.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vm/tapestry.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -p -r1.5 -r1.6
--- tapestry.el	2003/09/03 00:43:45	1.5
+++ tapestry.el	2007/09/16 09:58:14	1.6
@@ -205,7 +205,11 @@ ROOT-WINDOW-EDGES will be used."
 	  root-window )
       (if (tapestry-windows-match-map map map-width map-height)
 	  (tapestry-first-window)
-	(delete-other-windows)
+	(if (fboundp 'frame-reduce-to-one-window)
+	    (frame-reduce-to-one-window (selected-frame))
+	  ;; `delete-other-windows' may cause the window point to move
+	  ;; as it tries to minimize redisplay
+	  (delete-other-windows))
 	(setq root-window (selected-window))
 	(tapestry-apply-window-map map map-width map-height root-window)
 	(setq tapestry-windows-changed t)