From 4ece81a62f81dfef3080f038d71ec74dda2562b2 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Kai=20Gro=C3=9Fjohann?= Date: Sun, 23 Feb 2003 10:48:29 +0000 Subject: [PATCH] (directory_files_internal): Don't expand directory. (Fdirectory_files, Fdirectory_files_and_attributes): Do it here instead. From Lars Hansen . --- src/ChangeLog | 6 ++++++ src/dired.c | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index 40d5ffc48a5..7d27e0b53d8 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2003-02-23 Kai Gro,A_(Bjohann + + * dired.c (directory_files_internal): Don't expand directory. + (Fdirectory_files, Fdirectory_files_and_attributes): Do it here + instead. From Lars Hansen . + 2003-02-22 Stefan Monnier * fns.c (string_to_multibyte): Remove unused var i. diff --git a/src/dired.c b/src/dired.c index 54f96ba82f1..bf2a0e4e020 100644 --- a/src/dired.c +++ b/src/dired.c @@ -153,7 +153,6 @@ directory_files_internal (directory, full, match, nosort, attrs) Ffuncall, and cause a GC. */ list = encoded_directory = dirfilename = Qnil; GCPRO5 (match, directory, list, dirfilename, encoded_directory); - directory = Fexpand_file_name (directory, Qnil); dirfilename = Fdirectory_file_name (directory); if (!NILP (match)) @@ -345,6 +344,7 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable. Lisp_Object directory, full, match, nosort; { Lisp_Object handler; + directory = Fexpand_file_name (directory, Qnil); /* If the file name has special constructs in it, call the corresponding file handler. */ @@ -378,6 +378,7 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable. Lisp_Object directory, full, match, nosort; { Lisp_Object handler; + directory = Fexpand_file_name (directory, Qnil); /* If the file name has special constructs in it, call the corresponding file handler. */ -- 2.39.2