diff lisp/ido.el @ 64168:f7e7dd269327

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

--- a/lisp/ido.el	Fri Jul 08 10:07:19 2005 +0000
+++ b/lisp/ido.el	Fri Jul 08 10:07:39 2005 +0000
@@ -578,8 +578,12 @@
 
 (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 @@
 		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))