Mercurial > hg > xemacs-beta

diff src/sunpro.c @ 16:0293115a14e9 r19-15b91
Import from CVS: tag r19-15b91
author: cvs
date: Mon, 13 Aug 2007 08:49:20 +0200
parents: 376386a54a3c
children: 859a2309aef8
--- a/src/sunpro.c	Mon Aug 13 08:48:43 2007 +0200
+++ b/src/sunpro.c	Mon Aug 13 08:49:20 2007 +0200
@@ -61,7 +61,7 @@
     {
       xs = Fformat (nargs, args);
       CHECK_STRING (xs);
-      s = string_data (XSTRING (xs));
+      s = XSTRING_DATA (xs);
       ut_log_text ((char *) s);
     }
   return Vusage_tracking;
@@ -99,17 +99,12 @@
 void
 init_sunpro (void)
 {
+  Vusage_tracking = Qnil;
 #ifdef USAGE_TRACKING
   if (!purify_flag)
     {	       /* Enabled only when not dumping an executable */
       Vusage_tracking = Qt;
       ut_initialize ("xemacs", NULL, NULL);
     }
-  else
-    {
-      Vusage_tracking = Qnil;
-    }
-#else
-  Vusage_tracking = Qnil;
 #endif
 }