Mercurial > emacs
changeset 56422:36170ef90094
(Fvisited_file_modtime): Return a list of two integers,
instead of a cons.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Wed, 14 Jul 2004 22:47:11 +0000 |
| parents | 0ef3adf2dcd7 |
| children | fb8b1f758f89 |
| files | src/fileio.c |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fileio.c Wed Jul 14 22:42:44 2004 +0000 +++ b/src/fileio.c Wed Jul 14 22:47:11 2004 +0000 @@ -5628,13 +5628,17 @@ 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 +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); + 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,