Lisp_Object Qdefer_gettext;
DEFUN ("ignore-defer-gettext", Fignore_defer_gettext, 1, 1, 0, /*
Lisp_Object Qdefer_gettext;
DEFUN ("ignore-defer-gettext", Fignore_defer_gettext, 1, 1, 0, /*
The purpose of the defer-gettext symbol is to identify strings which
are translated when they are referenced instead of when they are defined.
*/
The purpose of the defer-gettext symbol is to identify strings which
are translated when they are referenced instead of when they are defined.
*/
- if (CONSP (obj) && SYMBOLP (Fcar (obj)) && EQ (Fcar (obj), Qdefer_gettext))
- return Fcar (Fcdr (obj));
+ if (CONSP (object)
+ && SYMBOLP (Fcar (object))
+ && EQ (Fcar (object), Qdefer_gettext))
+ return Fcar (Fcdr (object));
}
DEFUN ("gettext", Fgettext, 1, 1, 0, /*
}
DEFUN ("gettext", Fgettext, 1, 1, 0, /*