Mercurial > hg > xemacs-beta

comparison src/intl.c @ 14:9ee227acff29 r19-15b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b90
author cvs
date Mon, 13 Aug 2007 08:48:42 +0200
parents 376386a54a3c
children 859a2309aef8
comparison
equal deleted inserted replaced
13:13c6d0aaafe5 14:9ee227acff29
206 3) If gettext() returns the same string, then Fgettext() should return 206 3) If gettext() returns the same string, then Fgettext() should return
207 the same object, minus the 'string-translatable' property. */ 207 the same object, minus the 'string-translatable' property. */
208 208
209 if (STRINGP (string)) { 209 if (STRINGP (string)) {
210 #ifdef DEBUG_XEMACS 210 #ifdef DEBUG_XEMACS
211 stderr_out ("\nFgettext (%s) called.\n", string_data (XSTRING (string))); 211 stderr_out ("\nFgettext (%s) called.\n", XSTRING_DATA (string));
212 #endif 212 #endif
213 return build_string (gettext ((char *) string_data (XSTRING (string)))); 213 return build_string (gettext ((char *) XSTRING_DATA (string)));
214 } else { 214 } else {
215 return string; 215 return string;
216 } 216 }
217 #else 217 #else
218 return string; 218 return string;
236 Lisp_Object domain, string; 236 Lisp_Object domain, string;
237 { 237 {
238 CHECK_STRING (domain); 238 CHECK_STRING (domain);
239 CHECK_STRING (string); 239 CHECK_STRING (string);
240 #ifdef I18N3 240 #ifdef I18N3
241 return build_string (dgettext ((char *) string_data (XSTRING (domain)), 241 return build_string (dgettext ((char *) XSTRING_DATA (domain),
242 (char *) string_data (XSTRING (string)))); 242 (char *) XSTRING_DATA (string)));
243 #else 243 #else
244 return string; 244 return string;
245 #endif 245 #endif
246 } 246 }
247 247
255 Lisp_Object domain, pathname; 255 Lisp_Object domain, pathname;
256 { 256 {
257 CHECK_STRING (domain); 257 CHECK_STRING (domain);
258 CHECK_STRING (pathname); 258 CHECK_STRING (pathname);
259 #ifdef I18N3 259 #ifdef I18N3
260 return build_string (bindtextdomain ((char *) string_data (XSTRING (domain)), 260 return build_string (bindtextdomain ((char *) XSTRING_DATA (domain),
261 (char *) string_data (XSTRING (pathname)))); 261 (char *) XSTRING_DATA (pathname)));
262 #else 262 #else
263 return Qnil; 263 return Qnil;
264 #endif 264 #endif
265 } 265 }
266 266