xemacs-beta: src/eval.c comparison

Import from CVS: tag r20-3b1

comparison

equal deleted inserted replaced

-:f659db2a1f73
+:538048ae2ab8
 /* note that this is continuable. */
 Fsignal (Qquit, Qnil);
 }
+DEFUN ("strerror", Fstrerror, 1, 1, 0, /*
+Return the error string associated with integer ERRNUM.
+This function is an interface to strerror(3).
+The returned string may or may not be translated.
+*/
+(errnum))
+{
+CHECK_INT (errnum);
+return build_ext_string (strerror (XINT (errnum)), FORMAT_NATIVE);
+}
 /**********************************************************************/
 /*                            User commands                           */
 /**********************************************************************/
 DEFUN ("commandp", Fcommandp, 1, 1, 0, /*
 return Qnil;
 /* Emacs primitives are interactive if their DEFUN specifies an
 interactive spec.  */
 if (SUBRP (fun))
-{
+return XSUBR (fun)->prompt ? Qt : Qnil;
-if (XSUBR (fun)->prompt)
-	return Qt;
+if (COMPILED_FUNCTIONP (fun))
-else
+return XCOMPILED_FUNCTION (fun)->flags.interactivep ? Qt : Qnil;
-	return Qnil;
-}
-else if (COMPILED_FUNCTIONP (fun))
-{
-return (((XCOMPILED_FUNCTION (fun)->flags.interactivep) ? Qt : Qnil));
-}
 /* Strings and vectors are keyboard macros.  */
 if (VECTORP (fun) || STRINGP (fun))
 return Qt;
 DEFSUBR (Funwind_protect);
 DEFSUBR (Fcondition_case);
 DEFSUBR (Fcall_with_condition_handler);
 DEFSUBR (Fsignal);
 DEFSUBR (Finteractive_p);
+DEFSUBR (Fstrerror);
 DEFSUBR (Fcommandp);
 DEFSUBR (Fcommand_execute);
 DEFSUBR (Fautoload);
 DEFSUBR (Feval);
 DEFSUBR (Fapply);

Mercurial > hg > xemacs-beta