From: Stefan Kangas <stefankangas@gmail.com>
Date: Wed, 25 Oct 2023 13:13:08 +0000 (+0200)
Subject: Support HTTPS in ido-file-internal
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ce9d1d3f4dddba2c948affd0f1ccf6c4059f0af2;p=emacs.git

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 bbb3264f4f7..2daf3bae717 100644
--- 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)