# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1183355548 0
# Node ID f4adce2647d308e7a93fad3e3587edd9b426cb5a
# Parent  06d05bb448e0cb351bee42eecc79823f00dcfa45
(dired-at-point-prompter): Improve prompt in
list-directory case.

diff -r 06d05bb448e0 -r f4adce2647d3 lisp/ffap.el
--- a/lisp/ffap.el	Sun Jul 01 17:19:53 2007 +0000
+++ b/lisp/ffap.el	Mon Jul 02 05:52:28 2007 +0000
@@ -1793,7 +1793,11 @@
   ;; 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)))