From: Stefan Kangas <stefankangas@gmail.com>
Date: Wed, 1 Nov 2023 00:39:27 +0000 (+0100)
Subject: Respect `browse-url-default-scheme` on Android
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=60bf6288cf44fe84332141f90baa70a83733552d;p=emacs.git

Respect `browse-url-default-scheme` on Android

* lisp/net/browse-url.el (browse-url-default-android-browser):
Respect 'browse-url-default-scheme'.
---

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index dfb2243988d..74740af3bd6 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -1337,7 +1337,7 @@ point."
     (setq url (browse-url-encode-url url)))
   ;; Make sure the URL starts with an appropriate scheme.
   (unless (string-match "\\(.+\\):/" url)
-    (setq url (concat "http://" url)))
+    (setq url (concat browse-url-default-scheme "://" url)))
   (android-browse-url url browse-url-android-share))
 
 (function-put 'browse-url-default-android-browser