diff options
Diffstat (limited to 'lisp/ido.el')
| -rw-r--r-- | lisp/ido.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/ido.el b/lisp/ido.el index d2ce98b4bae..6e51dc67196 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -565,11 +565,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." +Value `guess' means use `ffap-guesser' to guess whether text at +point is a filename. If found, use that as the starting point +for filename selection." :type '(choice (const :tag "Disabled" nil) - (const :tag "Guess filename" guess) + (const :tag "Guess filename using ffap-guesser" guess) (other :tag "Use literal filename" t))) @@ -2325,7 +2326,7 @@ If cursor is not at the end of the user input, move to end of input." (if (eq ido-use-filename-at-point 'guess) (ffap-guesser) (ffap-string-at-point)))) - (not (string-match "\\`http:/" fn))) + (not (string-match (rx bos "http" (? "s") ":/") fn))) (let ((absolute-fn (expand-file-name fn))) (cond ((file-directory-p absolute-fn) |