Allow specifying a wildcard argument to list-directory again

* lisp/files.el (list-directory): Allow specifying a wildcard
argument interactively again (bug#55877).

diff --git a/lisp/files.el b/lisp/files.el
index 5f4c4fa01764b0fb8fa75f290e25e83746edb6d0..8836ee6fb216ee6880482073c530d69244be824d 100644 (file)
--- 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))