From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 20 Sep 2022 10:38:58 +0000 (+0200)
Subject: Further ffap-read-file-or-url tweaks
X-Git-Tag: emacs-29.0.90~1856^2~358
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=34186fb365f4d1b4e7368aa051f469bc74498730;p=emacs.git

Further ffap-read-file-or-url tweaks

* lisp/ffap.el (ffap-read-file-or-url): Make this work for URLs
again if you're using `ido-everywhere' (bug#57943).
---

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 7ea05dccbdd..482ac3764a2 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1504,7 +1504,11 @@ which may actually result in an URL rather than a filename."
         (progn
           (push elem file-name-handler-alist)
           (if (ffap-url-p guess)
-              (read-file-name prompt guess guess)
+              ;; We're using the default file name prompter here -- it
+              ;; allows you to switch back to reading a file name,
+              ;; while other prompters, like ido, really expect a
+              ;; file, and don't allow you to edit it if it's an URL.
+              (funcall #'read-file-name-default prompt guess guess)
             (unless guess
               (setq guess default-directory))
             (unless (ffap-file-remote-p guess)