Mercurial > emacs
changeset 448:129e6320092c
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sun, 08 Dec 1991 07:04:21 +0000 |
| parents | 2e226dcdaf0f |
| children | 4a1a5ad2d9d0 |
| files | src/editfns.c |
| diffstat | 1 files changed, 9 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/src/editfns.c Sat Dec 07 22:01:44 1991 +0000 +++ b/src/editfns.c Sun Dec 08 07:04:21 1991 +0000 @@ -503,6 +503,14 @@ 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, "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\ @@ -998,13 +1006,6 @@ { 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); message ("%s", XSTRING (val)->data); return val; @@ -1258,6 +1259,7 @@ defsubr (&Suser_uid); defsubr (&Suser_real_uid); defsubr (&Suser_full_name); + defsubr (&Scurrent_time); defsubr (&Scurrent_time_string); defsubr (&Ssystem_name); defsubr (&Sset_default_file_mode);