# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1089845231 0
# Node ID 36170ef9009405ac7a336397983cfb89df356c91
# Parent  0ef3adf2dcd7b71e32e407feafae3e40a5c8ebe6
(Fvisited_file_modtime): Return a list of two integers,
instead of a cons.

diff -r 0ef3adf2dcd7 -r 36170ef90094 src/fileio.c
--- a/src/fileio.c	Wed Jul 14 22:42:44 2004 +0000
+++ b/src/fileio.c	Wed Jul 14 22:47:11 2004 +0000
@@ -5628,13 +5628,17 @@
 DEFUN ("visited-file-modtime", Fvisited_file_modtime,
        Svisited_file_modtime, 0, 0, 0,
        doc: /* Return the current buffer's recorded visited file modification time.
-The value is a list of the form (HIGH . LOW), like the time values
+The value is a list of the form (HIGH LOW), like the time values
 that `file-attributes' returns.  If the current buffer has no recorded
 file modification time, this function returns 0.
 See Info node `(elisp)Modification Time' for more details.  */)
      ()
 {
-  return long_to_cons ((unsigned long) current_buffer->modtime);
+  Lisp_Object tcons;
+  tcons = long_to_cons ((unsigned long) current_buffer->modtime);
+  if (CONSP (tcons))
+    return list2 (XCAR (tcons), XCDR (tcons));
+  return tcons;
 }
 
 DEFUN ("set-visited-file-modtime", Fset_visited_file_modtime,