(Fvisited_file_modtime): Cast arg to long_to_cons.

diff --git a/src/fileio.c b/src/fileio.c
index 9222f8442a0926ddf5ac6b653a68c47b83a8664d..52d2f53ac6193a1ebc8931f459ec02bc0acdf1ac 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3653,7 +3653,7 @@ The value is a list of the form (HIGH . LOW), like the time values\n\
 that `file-attributes' returns.")
   ()
 {
-  return long_to_cons (current_buffer->modtime);
+  return long_to_cons ((unsigned long) current_buffer->modtime);
 }
 
 DEFUN ("set-visited-file-modtime", Fset_visited_file_modtime,