Mercurial > hg > xemacs-beta

comparison src/intl.c @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 697ef44129c6
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
163 } 163 }
164 } 164 }
165 #endif /* I18N4 */ 165 #endif /* I18N4 */
166 166
167 167
168 Lisp_Object Qdomain;
169 Lisp_Object Qdefer_gettext; 168 Lisp_Object Qdefer_gettext;
170 169
171 DEFUN ("ignore-defer-gettext", Fignore_defer_gettext, 1, 1, 0, /* 170 DEFUN ("ignore-defer-gettext", Fignore_defer_gettext, 1, 1, 0, /*
172 If OBJ is of the form (defer-gettext "string"), return the string. 171 If OBJ is of the form (defer-gettext "string"), return the string.
173 The purpose of the defer-gettext symbol is to identify strings which 172 The purpose of the defer-gettext symbol is to identify strings which
272 */ 271 */
273 (domain_name)) 272 (domain_name))
274 { 273 {
275 CHECK_STRING (domain_name); 274 CHECK_STRING (domain_name);
276 if (load_in_progress) 275 if (load_in_progress)
277 { 276 return (domain_name);
278 #ifdef I18N3
279 Vfile_domain = Fpurecopy (domain_name);
280 return Vfile_domain;
281 #else
282 return (domain_name);
283 #endif
284 }
285 else 277 else
286 return Qnil; 278 return Qnil;
287 } 279 }
288 280
289 281
305 } 297 }
306 298
307 void 299 void
308 syms_of_intl (void) 300 syms_of_intl (void)
309 { 301 {
310 defsymbol (&Qdomain, "domain");
311
312 /* defer-gettext is defined as a symbol because when it is used in menu 302 /* defer-gettext is defined as a symbol because when it is used in menu
313 specification strings, it is not evaluated as a function by 303 specification strings, it is not evaluated as a function by
314 menu_item_descriptor_to_widget_value(). */ 304 menu_item_descriptor_to_widget_value(). */
315 defsymbol (&Qdefer_gettext, "defer-gettext"); 305 defsymbol (&Qdefer_gettext, "defer-gettext");
316 306