(Fvisited_file_modtime): Use make_time.

diff --git a/src/ChangeLog b/src/ChangeLog
index 96da8d4ee78e28f37d6212bfc77f17af87659c91..a1128d19c58dbf6c81894035bd63038750ee5973 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2007-08-03  Richard Stallman  <rms@gnu.org>
+
+       * fileio.c (Fvisited_file_modtime): Use make_time.
+
 2007-08-01  Ryo Yoshitake  <ryo@shiftmode.net>  (tiny change)
 
        * mac.c (init_mac_osx_environment): Adjust load-path on self-contained

diff --git a/src/fileio.c b/src/fileio.c
index 3859f9e35aa8e9bdf468ce861630cfb8bf9771aa..1962035e0bda8d36bd385bfcd53597b8ae12e1cd 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -5692,11 +5692,9 @@ file modification time, this function returns 0.
 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,