From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 23 May 1995 00:11:46 +0000 (+0000)
Subject: (Fvisited_file_modtime): Cast arg to long_to_cons.
X-Git-Tag: emacs-19.34~3980
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b50536bb94f7c795863217c98ee2203a3f940564;p=emacs.git

(Fvisited_file_modtime): Cast arg to long_to_cons.
---

diff --git a/src/fileio.c b/src/fileio.c
index 9222f8442a0..52d2f53ac61 100644
--- 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,