mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(Fdirectory_files): In FULL case, compute number of characters

Browse Source
This commit is contained in:
Richard M. Stallman 1998-03-21 18:23:09 +00:00
parent b10b2daa18
commit 8ec5a40461
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/dired.c
View File

@ -206,6 +206,7 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\
int afterdirindex = dirnamelen;
int total = len + dirnamelen;
int needsep = 0;
int nchars;
/* Decide whether we need to add a directory separator. */
#ifndef VMS
@ -221,6 +222,11 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\
XSTRING (name)->data[afterdirindex++] = DIRECTORY_SEP;
bcopy (dp->d_name,
XSTRING (name)->data + afterdirindex, len);
nchars = chars_in_text (dp->d_name,
afterdirindex + len);
XSTRING (name)->size = nchars;
if (nchars == STRING_BYTES (XSTRING (name)))
SET_STRING_BYTES (XSTRING (name), -1);
}
else
name = make_string (dp->d_name, len);