Re: long_to_cons doesn't always return a cons

[Richard Stallman]

Does this fix it?

*** fileio.c    22 Mar 2007 11:13:17 -0400      1.580
--- fileio.c    17 Jun 2007 10:56:38 -0400      
***************
*** 5692,5702 ****
  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;
  }
  
  DEFUN ("set-visited-file-modtime", Fset_visited_file_modtime,
--- 5692,5700 ----
  See Info node `(elisp)Modification Time' for more details.  */)
       ()
  {
!   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,