master 7ee736a884 2/3: Allow specifying a wildcard argument to list-directory again

[Lars Ingebrigtsen]

branch: master
commit 7ee736a884766f2017a934d936bfbfa4c70b5099
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Allow specifying a wildcard argument to list-directory again
    
    * lisp/files.el (list-directory): Allow specifying a wildcard
    argument interactively again (bug#55877).
---
 lisp/files.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lisp/files.el b/lisp/files.el
index 5f4c4fa017..8836ee6fb2 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -7386,12 +7386,11 @@ and `list-directory-verbose-switches'."
      (list (read-file-name
             (if pfx "List directory (verbose): "
              "List directory (brief): ")
-           nil default-directory t
-            nil
+           nil default-directory
             (lambda (file)
               (or (file-directory-p file)
                   (insert-directory-wildcard-in-dir-p
-                   (expand-file-name file)))))
+                   (file-name-as-directory (expand-file-name file))))))
            pfx)))
   (let ((switches (if verbose list-directory-verbose-switches
                    list-directory-brief-switches))