Commit d940e0e4 authored by Jim Blandy's avatar Jim Blandy

*** empty log message ***

parent cfa191ff
...@@ -503,6 +503,14 @@ DEFUN ("system-name", Fsystem_name, Ssystem_name, 0, 0, 0, ...@@ -503,6 +503,14 @@ DEFUN ("system-name", Fsystem_name, Ssystem_name, 0, 0, 0,
return Vsystem_name; return Vsystem_name;
} }
DEFUN ("current-time", Fcurrent_time, Scurrent_time, 0, 0, 0,
"Return the current time, as an integer.")
()
{
return make_number (time(0));
}
DEFUN ("current-time-string", Fcurrent_time_string, Scurrent_time_string, 0, 0, 0, DEFUN ("current-time-string", Fcurrent_time_string, Scurrent_time_string, 0, 0, 0,
"Return the current time, as a human-readable string.\n\ "Return the current time, as a human-readable string.\n\
Programs can use it too, since the number of columns in each field is fixed.\n\ Programs can use it too, since the number of columns in each field is fixed.\n\
...@@ -998,13 +1006,6 @@ the argument used by %d or %c must be a number.") ...@@ -998,13 +1006,6 @@ the argument used by %d or %c must be a number.")
{ {
register Lisp_Object val; register Lisp_Object val;
#ifdef MULTI_SCREEN
extern Lisp_Object Vglobal_minibuffer_screen;
if (XTYPE (Vglobal_minibuffer_screen) == Lisp_Screen)
Fmake_screen_visible (Vglobal_minibuffer_screen);
#endif
val = Fformat (nargs, args); val = Fformat (nargs, args);
message ("%s", XSTRING (val)->data); message ("%s", XSTRING (val)->data);
return val; return val;
...@@ -1258,6 +1259,7 @@ syms_of_editfns () ...@@ -1258,6 +1259,7 @@ syms_of_editfns ()
defsubr (&Suser_uid); defsubr (&Suser_uid);
defsubr (&Suser_real_uid); defsubr (&Suser_real_uid);
defsubr (&Suser_full_name); defsubr (&Suser_full_name);
defsubr (&Scurrent_time);
defsubr (&Scurrent_time_string); defsubr (&Scurrent_time_string);
defsubr (&Ssystem_name); defsubr (&Ssystem_name);
defsubr (&Sset_default_file_mode); defsubr (&Sset_default_file_mode);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment