Mercurial > emacs

comparison src/dired.c @ 53636:83645a5b04ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Ffile_attributes): Lisp_Object/int mixup.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 20 Jan 2004 21:18:31 +0000
parents 2dc8ac2e5bf6
children da06b9bd886b
comparison
equal deleted inserted replaced
53635:855d74c23e51 53636:83645a5b04ce
1 /* Lisp functions for making directory listings. 1 /* Lisp functions for making directory listings.
2 Copyright (C) 1985, 1986, 1993, 1994, 1999, 2000, 2001 2 Copyright (C) 1985, 1986, 1993, 1994, 1999, 2000, 2001, 2004
3 Free Software Foundation, Inc. 3 Free Software Foundation, Inc.
4 4
5 This file is part of GNU Emacs. 5 This file is part of GNU Emacs.
6 6
7 GNU Emacs is free software; you can redistribute it and/or modify 7 GNU Emacs is free software; you can redistribute it and/or modify
939 values[3] = make_number (s.st_gid); 939 values[3] = make_number (s.st_gid);
940 } 940 }
941 else 941 else
942 { 942 {
943 pw = (struct passwd *) getpwuid (s.st_uid); 943 pw = (struct passwd *) getpwuid (s.st_uid);
944 values[2] = (pw ? build_string (pw->pw_name) : s.st_uid); 944 values[2] = (pw ? build_string (pw->pw_name) : make_number (s.st_uid));
945 gr = (struct group *) getgrgid (s.st_gid); 945 gr = (struct group *) getgrgid (s.st_gid);
946 values[3] = (gr ? build_string (gr->gr_name) : s.st_gid); 946 values[3] = (gr ? build_string (gr->gr_name) : make_number (s.st_gid));
947 } 947 }
948 values[4] = make_time (s.st_atime); 948 values[4] = make_time (s.st_atime);
949 values[5] = make_time (s.st_mtime); 949 values[5] = make_time (s.st_mtime);
950 values[6] = make_time (s.st_ctime); 950 values[6] = make_time (s.st_ctime);
951 values[7] = make_number (s.st_size); 951 values[7] = make_number (s.st_size);