Mercurial > hg > xemacs-beta

comparison src/sunpro.c @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 0293115a14e9
children
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
37 Lisp_Object Vusage_tracking; 37 Lisp_Object Vusage_tracking;
38 #ifdef USAGE_TRACKING 38 #ifdef USAGE_TRACKING
39 #include <ut.h> 39 #include <ut.h>
40 #endif 40 #endif
41 41
42 DEFUN ("ut-log-text", 42 DEFUN ("ut-log-text", Fut_log_text, 1, MANY, 0, /*
43 Fut_log_text,
44 Sut_log_text,
45 1, MANY, 0 /*
46 Log a usage-tracking message if `usage-tracking' is non-nil. 43 Log a usage-tracking message if `usage-tracking' is non-nil.
47 Args are the same as to `format'. Returns whether the message was 44 Args are the same as to `format'. Returns whether the message was
48 actually logged. If usage-tracking support was not compiled in, this 45 actually logged. If usage-tracking support was not compiled in, this
49 function has no effect and always returns `nil'. See function 46 function has no effect and always returns `nil'. See function
50 `has-usage-tracking-p'. 47 `has-usage-tracking-p'.
51 */ ) 48 */
52 (nargs, args) 49 (int nargs, Lisp_Object *args))
53 int nargs;
54 Lisp_Object *args;
55 { 50 {
56 #ifdef USAGE_TRACKING 51 #ifdef USAGE_TRACKING
57 Lisp_Object xs; 52 Lisp_Object xs;
58 unsigned char *s; /* #### Does not support I18N4. */ 53 unsigned char *s; /* #### Does not support I18N4. */
59 54
76 /************************************************************************/ 71 /************************************************************************/
77 72
78 void 73 void
79 syms_of_sunpro (void) 74 syms_of_sunpro (void)
80 { 75 {
81 defsubr (&Sut_log_text); 76 DEFSUBR (Fut_log_text);
82 } 77 }
83 78
84 void 79 void
85 vars_of_sunpro (void) 80 vars_of_sunpro (void)
86 { 81 {