(dired-at-point-prompter): Improve prompt in

list-directory case.

1 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 5bba729fce3..314d48e9ca8 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1793,7 +1793,11 @@ ffap most of the time."
   ;; Extra complication for the temporary highlighting.
   (unwind-protect
       (ffap-read-file-or-url
-       (if ffap-url-regexp "Dired file or URL: " "Dired file: ")
+       (cond
+        ((eq ffap-directory-finder 'list-directory)
+         "List directory (brief): ")
+        (ffap-url-regexp "Dired file or URL: ")
+        (t "Dired file: "))
        (prog1
            (setq guess (or guess
                            (let ((guess (ffap-guesser)))