From: Martin Rudalics <rudalics@gmx.at>
Date: Mon, 2 Jul 2007 05:52:28 +0000 (+0000)
Subject: (dired-at-point-prompter): Improve prompt in
X-Git-Tag: emacs-pretest-23.0.90~12062
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0fdc185e75d902a2fa368450359eef173ea5c3d4;p=emacs.git

(dired-at-point-prompter): Improve prompt in
list-directory case.
---

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)))