diff options
| author | Miles Bader <miles@gnu.org> | 2007-08-03 05:58:06 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-08-03 05:58:06 +0000 |
| commit | 2ca773ca40d2c1896757e6382aefff6d9de1c5cc (patch) | |
| tree | 846419ece5e5d8bc8f11e9786598678af9c78f00 /src/fileio.c | |
| parent | 49b23c2a404cf31fb1aeecc7932a7304aaf16a67 (diff) | |
| parent | 0896d93184a719bc994a3e699de27190aac0acb1 (diff) | |
| download | emacs-2ca773ca40d2c1896757e6382aefff6d9de1c5cc.tar.gz emacs-2ca773ca40d2c1896757e6382aefff6d9de1c5cc.tar.bz2 emacs-2ca773ca40d2c1896757e6382aefff6d9de1c5cc.zip | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 843-845)
- 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: emacs@sv.gnu.org/emacs--multi-tty--0--patch-30
Diffstat (limited to 'src/fileio.c')
| -rw-r--r-- | src/fileio.c | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/fileio.c b/src/fileio.c index 678c6df58c0..6e47670f09c 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -5694,11 +5694,9 @@ 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; + 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, |