Mercurial > hg > xemacs-beta

comparison src/intl.c @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children 183866b06e0b
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
166 166
167 167
168 Lisp_Object Qdefer_gettext; 168 Lisp_Object Qdefer_gettext;
169 169
170 DEFUN ("ignore-defer-gettext", Fignore_defer_gettext, 1, 1, 0, /* 170 DEFUN ("ignore-defer-gettext", Fignore_defer_gettext, 1, 1, 0, /*
171 If OBJ is of the form (defer-gettext "string"), return the string. 171 If OBJECT is of the form (defer-gettext "string"), return the string.
172 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
173 are translated when they are referenced instead of when they are defined. 173 are translated when they are referenced instead of when they are defined.
174 */ 174 */
175 (obj)) 175 (object))
176 { 176 {
177 if (CONSP (obj) && SYMBOLP (Fcar (obj)) && EQ (Fcar (obj), Qdefer_gettext)) 177 if (CONSP (object)
178 return Fcar (Fcdr (obj)); 178 && SYMBOLP (Fcar (object))
179 && EQ (Fcar (object), Qdefer_gettext))
180 return Fcar (Fcdr (object));
179 else 181 else
180 return obj; 182 return object;
181 } 183 }
182 184
183 DEFUN ("gettext", Fgettext, 1, 1, 0, /* 185 DEFUN ("gettext", Fgettext, 1, 1, 0, /*
184 Look up STRING in the default message domain and return its translation. 186 Look up STRING in the default message domain and return its translation.
185 This function does nothing if I18N3 was not enabled when Emacs was compiled. 187 This function does nothing if I18N3 was not enabled when Emacs was compiled.