# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1186112338 0
# Node ID d22d1c8033b8f4e3defc97ccfa04846bff6b3b0f
# Parent  627812b69d17103d4f015f4ef4c7f7804a31d426
(Fvisited_file_modtime): Use make_time.

diff -r 627812b69d17 -r d22d1c8033b8 src/fileio.c
--- a/src/fileio.c	Fri Aug 03 03:38:24 2007 +0000
+++ b/src/fileio.c	Fri Aug 03 03:38:58 2007 +0000
@@ -5692,11 +5692,9 @@
 See Info node `(elisp)Modification Time' for more details.  */)
      ()
 {
-  Lisp_Object tcons;
-  tcons = long_to_cons ((unsigned long) current_buffer->modtime);
-  if (CONSP (tcons))
-    return list2 (XCAR (tcons), XCDR (tcons));
-  return tcons;
+  if (! current_buffer->modtime)
+    return make_number (0);
+  return make_time ((time_t) current_buffer->modtime);
 }
 
 DEFUN ("set-visited-file-modtime", Fset_visited_file_modtime,