From: Stefan Kangas <stefankangas@gmail.com>
Date: Wed, 25 Oct 2023 10:49:19 +0000 (+0200)
Subject: Respect browse-url-default-scheme on Haiku
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0ce068c298d9aa35614bc6c3fc2ce3dc683e9310;p=emacs.git

Respect browse-url-default-scheme on Haiku

* lisp/net/browse-url.el (browse-url-default-haiku-browser): Respect
'browse-url-default-scheme', which currently defaults to "http".
---

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 11bfeb1b339..7cbc8e569a5 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -1305,7 +1305,7 @@ Default to the URL around or before point."
   (let* ((scheme (save-match-data
                    (if (string-match "\\(.+\\):/" url)
                        (match-string 1 url)
-                     "http")))
+                     browse-url-default-scheme)))
          (mime (concat "application/x-vnd.Be.URL." scheme)))
     (haiku-roster-launch mime (vector url))))