From: Kim F. Storm <storm@cua.dk>
Date: Fri, 8 Jul 2005 10:07:39 +0000 (+0000)
Subject: * ido.el (ido-use-filename-at-point): New choice `guess'.
X-Git-Tag: emacs-pretest-22.0.90~8288
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3c88bdc5607cbf2173a83afcc2102e7001c3e326;p=emacs.git

* ido.el (ido-use-filename-at-point): New choice `guess'.
(ido-file-internal): Try ffap-guesser if selected.
---

diff --git a/lisp/ido.el b/lisp/ido.el
index 7912c2185b9..97adb97bdd5 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -578,8 +578,12 @@ the `ido-work-directory-list' list."
 
 (defcustom ido-use-filename-at-point nil
   "*Non-nil means that ido shall look for a filename at point.
+May use `ffap-guesser' to guess whether text at point is a filename.
 If found, use that as the starting point for filename selection."
-  :type 'boolean
+  :type '(choice
+	  (const :tag "Disabled" nil)
+	  (const :tag "Guess filename" guess)
+	  (other :tag "Use literal filename" t))
   :group 'ido)
 
 
@@ -2051,7 +2055,9 @@ If INITIAL is non-nil, it specifies the initial input string."
 		filename t))
 
 	 ((and ido-use-filename-at-point
-	       (setq fn (ffap-string-at-point))
+	       (setq fn (if (eq ido-use-filename-at-point 'guess)
+			    (ffap-guesser)
+			  (ffap-string-at-point)))
 	       (not (string-match "^http:/" fn))
 	       (setq d (file-name-directory fn))
 	       (file-directory-p d))