changeset 81680:f4adce2647d3

(dired-at-point-prompter): Improve prompt in list-directory case.
author Martin Rudalics <rudalics@gmx.at>
date Mon, 02 Jul 2007 05:52:28 +0000
parents 06d05bb448e0
children b835ab39fb31
files lisp/ffap.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)))