[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: long_to_cons doesn't always return a cons
From: |
Richard Stallman |
Subject: |
Re: long_to_cons doesn't always return a cons |
Date: |
Sun, 17 Jun 2007 17:49:12 -0400 |
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,