Mercurial > hg > xemacs-beta

comparison src/sunpro.c @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 376386a54a3c
children 859a2309aef8
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
59 59
60 if (!NILP (Vusage_tracking)) 60 if (!NILP (Vusage_tracking))
61 { 61 {
62 xs = Fformat (nargs, args); 62 xs = Fformat (nargs, args);
63 CHECK_STRING (xs); 63 CHECK_STRING (xs);
64 s = string_data (XSTRING (xs)); 64 s = XSTRING_DATA (xs);
65 ut_log_text ((char *) s); 65 ut_log_text ((char *) s);
66 } 66 }
67 return Vusage_tracking; 67 return Vusage_tracking;
68 #else 68 #else
69 return Qnil; 69 return Qnil;
97 } 97 }
98 98
99 void 99 void
100 init_sunpro (void) 100 init_sunpro (void)
101 { 101 {
102 Vusage_tracking = Qnil;
102 #ifdef USAGE_TRACKING 103 #ifdef USAGE_TRACKING
103 if (!purify_flag) 104 if (!purify_flag)
104 { /* Enabled only when not dumping an executable */ 105 { /* Enabled only when not dumping an executable */
105 Vusage_tracking = Qt; 106 Vusage_tracking = Qt;
106 ut_initialize ("xemacs", NULL, NULL); 107 ut_initialize ("xemacs", NULL, NULL);
107 } 108 }
108 else
109 {
110 Vusage_tracking = Qnil;
111 }
112 #else
113 Vusage_tracking = Qnil;
114 #endif 109 #endif
115 } 110 }