Support HTTPS in ido-file-internal

* lisp/ido.el (ido-file-internal): Support HTTPS.

diff --git a/lisp/ido.el b/lisp/ido.el
index bbb3264f4f77f11b3c6a79cb04b32dbfd91a2e61..2daf3bae7174b910248fca19916cc4ceb4af7556 100644 (file)
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -2326,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)