From e5fcddc8f856ed141b374a7b3787ef4cf2718a30 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Wed, 14 Jul 2004 22:47:11 +0000 Subject: [PATCH] (Fvisited_file_modtime): Return a list of two integers, instead of a cons. --- src/fileio.c | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/fileio.c b/src/fileio.c index 6e4d5a81004..1615bca3781 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -5628,13 +5628,17 @@ Next attempt to save will certainly not complain of a discrepancy. */) 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, -- 2.39.2