XEmacs 21.4.17 "Jumbo Shrimp".

[chise/xemacs-chise.git.1] / src / EmacsShell-sub.c

diff --git a/src/EmacsShell-sub.c b/src/EmacsShell-sub.c
index 490530b..81c538a 100644 (file)
--- a/src/EmacsShell-sub.c
+++ b/src/EmacsShell-sub.c
@@ -90,6 +90,8 @@ Boston, MA 02111-1307, USA.  */
 #include <X11/VendorP.h>
 #include "EmacsShellP.h"
 
+#define ABORT abort
+
 #if defined (DEFINE_TOP_LEVEL_EMACS_SHELL)
 #define EMACS_SHELL_WIDGET TopLevelEmacsShellWidget
 #define SUPERCLASS_WIDGET_CLASS topLevelShellWidgetClass
@@ -192,9 +194,9 @@ EMACS_SHELL_CLASS_REC_TYPE EMACS_SHELL_CLASS_REC = {
     /* resources         */    resources,
     /* resource_count    */    XtNumber (resources),
     /* xrm_class         */    NULLQUARK,
-    /* compress_motion   */    FALSE,
-    /* compress_exposure  */   TRUE,
-    /* compress_enterleave*/   FALSE,
+    /* compress_motion   */    TRUE,
+    /* compress_exposure  */   XtExposeCompressMaximal | XtExposeNoRegion,
+    /* compress_enterleave*/   TRUE,
     /* visible_interest          */    TRUE,
     /* destroy           */    NULL,
     /* resize            */    XtInheritResize,
@@ -286,7 +288,7 @@ SuperClassRootGeometryManager (Widget gw,
     }
 
   if (!gcer)
-    abort ();
+    ABORT ();
 
   /* call it to actually make the geometry request */
   scer = (ShellClassExtensionRec *) gcer;
@@ -304,7 +306,7 @@ RootGeometryManager (Widget gw,
   XtGeometryResult result;
 
   if (reentrant)
-    abort ();
+    ABORT ();
   reentrant++;
 
 #ifdef DEBUG_GEOMETRY_MANAGEMENT