From 73ff9d42c45fed4c2202feeb1a2acbfe00fd3ad9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 3 Aug 2007 03:39:09 +0000 Subject: [PATCH] (Fvisited_file_modtime): Use make_time. --- src/ChangeLog | 4 ++++ src/fileio.c | 8 +++----- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 96da8d4ee78..a1128d19c58 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2007-08-03 Richard Stallman + + * fileio.c (Fvisited_file_modtime): Use make_time. + 2007-08-01 Ryo Yoshitake (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 3859f9e35aa..1962035e0bd 100644 --- 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, -- 2.39.2