Mercurial > hg > xemacs-beta
diff src/dired.c @ 707:a307f9a2021d
[xemacs-hg @ 2001-12-20 05:49:28 by andyp]
sync with 21-4-6-windows
| author | andyp |
|---|---|
| date | Thu, 20 Dec 2001 05:49:48 +0000 |
| parents | fdefd0186b75 |
| children | 336a418893b5 |
line wrap: on
line diff
--- a/src/dired.c Wed Dec 19 00:40:26 2001 +0000 +++ b/src/dired.c Thu Dec 20 05:49:48 2001 +0000 @@ -811,6 +811,9 @@ return Qnil; } +#if 0 +/* ... never used ... should use list2 directly anyway ... */ +/* NOTE: This function can never return a negative value. */ Lisp_Object wasteful_word_to_lisp (unsigned int item) { @@ -820,6 +823,7 @@ XCDR (cons) = Fcons (XCDR (cons), Qnil); return cons; } +#endif DEFUN ("file-attributes", Ffile_attributes, 1, 1, 0, /* Return a list of attributes of file FILENAME. @@ -906,9 +910,9 @@ values[1] = make_int (s.st_nlink); values[2] = make_int (s.st_uid); values[3] = make_int (s.st_gid); - values[4] = wasteful_word_to_lisp (s.st_atime); - values[5] = wasteful_word_to_lisp (s.st_mtime); - values[6] = wasteful_word_to_lisp (s.st_ctime); + values[4] = make_time (s.st_atime); + values[5] = make_time (s.st_mtime); + values[6] = make_time (s.st_ctime); values[7] = make_int ((EMACS_INT) s.st_size); /* If the size is out of range, give back -1. */ /* #### Fix when Emacs gets bignums! */