Mercurial > emacs
comparison src/fileio.c @ 91000:cd5e99697764
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 843-844)
- 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--unicode--0--patch-241
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 03 Aug 2007 05:57:16 +0000 |
parents | f55f9811f5d7 b8c796068320 |
children | 424b655804ca |
comparison
equal
deleted
inserted
replaced
90999:35e3789db058 | 91000:cd5e99697764 |
---|---|
5606 that `file-attributes' returns. If the current buffer has no recorded | 5606 that `file-attributes' returns. If the current buffer has no recorded |
5607 file modification time, this function returns 0. | 5607 file modification time, this function returns 0. |
5608 See Info node `(elisp)Modification Time' for more details. */) | 5608 See Info node `(elisp)Modification Time' for more details. */) |
5609 () | 5609 () |
5610 { | 5610 { |
5611 Lisp_Object tcons; | 5611 if (! current_buffer->modtime) |
5612 tcons = long_to_cons ((unsigned long) current_buffer->modtime); | 5612 return make_number (0); |
5613 if (CONSP (tcons)) | 5613 return make_time ((time_t) current_buffer->modtime); |
5614 return list2 (XCAR (tcons), XCDR (tcons)); | |
5615 return tcons; | |
5616 } | 5614 } |
5617 | 5615 |
5618 DEFUN ("set-visited-file-modtime", Fset_visited_file_modtime, | 5616 DEFUN ("set-visited-file-modtime", Fset_visited_file_modtime, |
5619 Sset_visited_file_modtime, 0, 1, 0, | 5617 Sset_visited_file_modtime, 0, 1, 0, |
5620 doc: /* Update buffer's recorded modification time from the visited file's time. | 5618 doc: /* Update buffer's recorded modification time from the visited file's time. |