xemacs-beta: src/intl.c comparison

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

Import from CVS: tag r19-15b93

author	cvs
date	Mon, 13 Aug 2007 08:50:05 +0200
parents	9ee227acff29
children	e04119814345

comparison

equal deleted inserted replaced

-:ac1f612d5250
+:859a2309aef8
 Lisp_Object Qdomain;
 Lisp_Object Qdefer_gettext;
-DEFUN ("ignore-defer-gettext", Fignore_defer_gettext, Signore_defer_gettext,
+DEFUN ("ignore-defer-gettext", Fignore_defer_gettext, 1, 1, 0, /*
-1, 1, 0 /*
 If OBJ is of the form (defer-gettext \"string\"), return the string.
 The purpose of the defer-gettext symbol is to identify strings which
 are translated when they are referenced instead of when they are defined.
-*/ )
+*/
-(obj)
+(obj))
-Lisp_Object obj;
 {
 if (CONSP (obj) && SYMBOLP (Fcar (obj)) && EQ (Fcar (obj), Qdefer_gettext))
 return Fcar (Fcdr (obj));
 else
 return obj;
 }
-DEFUN ("gettext", Fgettext, Sgettext, 1, 1, 0 /*
+DEFUN ("gettext", Fgettext, 1, 1, 0, /*
 Look up STRING in the default message domain and return its translation.
 This function does nothing if I18N3 was not enabled when Emacs was compiled.
-*/ )
+*/
-(string)
+(string))
-Lisp_Object string;
 {
 #ifdef I18N3
 /* #### What should happen here is:
 1) If the string has no `string-translatable' property or its value
 on the string.  Add the functions `set-string-translatable' and
 `set-stream-translating'. */
 #endif
-DEFUN ("dgettext", Fdgettext, Sdgettext, 2, 2, 0 /*
+DEFUN ("dgettext", Fdgettext, 2, 2, 0, /*
 Look up STRING in the specified message domain and return its translation.
 This function does nothing if I18N3 was not enabled when Emacs was compiled.
-*/ )
+*/
-(domain, string)
+(domain, string))
-Lisp_Object domain, string;
 {
 CHECK_STRING (domain);
 CHECK_STRING (string);
 #ifdef I18N3
 return build_string (dgettext ((char *) XSTRING_DATA (domain),
 #else
 return string;
 #endif
 }
-DEFUN ("bind-text-domain", Fbind_text_domain, Sbind_text_domain, 2, 2, 0 /*
+DEFUN ("bind-text-domain", Fbind_text_domain, 2, 2, 0, /*
 Associate a pathname with a message domain.
 Here's how the path to message files is constructed under SunOS 5.0:
 {pathname}/{LANG}/LC_MESSAGES/{domain}.mo
 This function does nothing if I18N3 was not enabled when Emacs was compiled.
-*/ )
+*/
-(domain, pathname)
+(domain, pathname))
-Lisp_Object domain, pathname;
 {
 CHECK_STRING (domain);
 CHECK_STRING (pathname);
 #ifdef I18N3
 return build_string (bindtextdomain ((char *) XSTRING_DATA (domain),
 #endif
 }
 extern int load_in_progress;
-DEFUN ("set-domain", Fset_domain, Sset_domain, 1, 1, 0 /*
+DEFUN ("set-domain", Fset_domain, 1, 1, 0, /*
 Specify the domain used for translating messages in this source file.
 The domain declaration may only appear at top-level, and should preceed
 all function and variable definitions.
 The presence of this declaration in a compiled file effectively sets the
 domain of all functions and variables which are defined in that file.
 Bug: it has no effect on source (.el) files, only compiled (.elc) files.
-*/ )
+*/
-(domain_name)
+(domain_name))
-Lisp_Object domain_name;
 {
 CHECK_STRING (domain_name);
 if (load_in_progress)
 {
 #ifdef I18N3
 /* defer-gettext is defined as a symbol because when it is used in menu
 specification strings, it is not evaluated as a function by
 menu_item_descriptor_to_widget_value(). */
 defsymbol (&Qdefer_gettext, "defer-gettext");
-defsubr (&Signore_defer_gettext);
+DEFSUBR (Fignore_defer_gettext);
-defsubr (&Sgettext);
+DEFSUBR (Fgettext);
-defsubr (&Sdgettext);
+DEFSUBR (Fdgettext);
-defsubr (&Sbind_text_domain);
+DEFSUBR (Fbind_text_domain);
-defsubr (&Sset_domain);
+DEFSUBR (Fset_domain);
 }
 void
 vars_of_intl (void)
 {

Mercurial > hg > xemacs-beta

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