Mercurial > emacs

diff src/fileio.c @ 91000:cd5e99697764

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 843-844) - Update from CVS - Merge from emacs--rel--22 * emacs--rel--22 (patch 84-87) - Update from CVS - Change capitalization of VC backend names for new backends Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-241
author Miles Bader <miles@gnu.org>
date Fri, 03 Aug 2007 05:57:16 +0000
parents f55f9811f5d7 b8c796068320
children 424b655804ca
line wrap: on
line diff
--- a/src/fileio.c	Fri Aug 03 05:27:05 2007 +0000
+++ b/src/fileio.c	Fri Aug 03 05:57:16 2007 +0000
@@ -5608,11 +5608,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,