[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/fileio.c [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/src/fileio.c [emacs-unicode-2] |
Date: |
Fri, 16 Jul 2004 23:12:53 -0400 |
Index: emacs/src/fileio.c
diff -c emacs/src/fileio.c:1.492.2.14 emacs/src/fileio.c:1.492.2.15
*** emacs/src/fileio.c:1.492.2.14 Tue Jul 6 02:57:07 2004
--- emacs/src/fileio.c Sat Jul 17 02:46:48 2004
***************
*** 5541,5553 ****
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
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);
}
DEFUN ("set-visited-file-modtime", Fset_visited_file_modtime,
--- 5541,5557 ----
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
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,