5628 |
DEFUN ("visited-file-modtime", Fvisited_file_modtime, |
DEFUN ("visited-file-modtime", Fvisited_file_modtime, |
5629 |
Svisited_file_modtime, 0, 0, 0, |
Svisited_file_modtime, 0, 0, 0, |
5630 |
doc: /* Return the current buffer's recorded visited file modification time. |
doc: /* Return the current buffer's recorded visited file modification time. |
5631 |
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 |
5632 |
that `file-attributes' returns. If the current buffer has no recorded |
that `file-attributes' returns. If the current buffer has no recorded |
5633 |
file modification time, this function returns 0. |
file modification time, this function returns 0. |
5634 |
See Info node `(elisp)Modification Time' for more details. */) |
See Info node `(elisp)Modification Time' for more details. */) |
5635 |
() |
() |
5636 |
{ |
{ |
5637 |
return long_to_cons ((unsigned long) current_buffer->modtime); |
Lisp_Object tcons; |
5638 |
|
tcons = long_to_cons ((unsigned long) current_buffer->modtime); |
5639 |
|
if (CONSP (tcons)) |
5640 |
|
return list2 (XCAR (tcons), XCDR (tcons)); |
5641 |
|
return tcons; |
5642 |
} |
} |
5643 |
|
|
5644 |
DEFUN ("set-visited-file-modtime", Fset_visited_file_modtime, |
DEFUN ("set-visited-file-modtime", Fset_visited_file_modtime, |