# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 692175861 0
# Node ID 129e6320092c0d40ed9a2d4cc9a8159ca266d4f5
# Parent  2e226dcdaf0f50432eee0be3035e0cb35ef4eb06
*** empty log message ***

diff -r 2e226dcdaf0f -r 129e6320092c src/editfns.c
--- 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);