comparison src/fileio.c @ 91000:cd5e99697764

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: [e-mail]/emacs--unicode--0--patch-241

90999:35e3789db058

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.  */)
     ()
{
  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,
       Sset_visited_file_modtime, 0, 1, 0,
       doc: /* Update buffer's recorded modification time from the visited file's time.

91000:cd5e99697764

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.  */)
     ()
{
  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,
       Sset_visited_file_modtime, 0, 1, 0,
       doc: /* Update buffer's recorded modification time from the visited file's time.