Mercurial > emacs
diff src/fileio.c @ 78402:d22d1c8033b8
(Fvisited_file_modtime): Use make_time.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 03 Aug 2007 03:38:58 +0000 |
parents | 922696f363b0 |
children | 1677cf1c2509 b8c796068320 |
line wrap: on
line diff
--- 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,