]> git.eshelyaron.com Git - emacs.git/commitdiff
Respect `browse-url-default-scheme` on Android
authorStefan Kangas <stefankangas@gmail.com>
Wed, 1 Nov 2023 00:39:27 +0000 (01:39 +0100)
committerStefan Kangas <stefankangas@gmail.com>
Wed, 1 Nov 2023 00:39:53 +0000 (01:39 +0100)
* lisp/net/browse-url.el (browse-url-default-android-browser):
Respect 'browse-url-default-scheme'.

lisp/net/browse-url.el

index dfb2243988d5235dc64147f81146e04b56d8f53d..74740af3bd62c4a2f84fe50fd4b8406728fdc612 100644 (file)
@@ -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