master 0ce068c298d: Respect browse-url-default-scheme on Haiku

[Stefan Kangas]

branch: master
commit 0ce068c298d9aa35614bc6c3fc2ce3dc683e9310
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    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".
---
 lisp/net/browse-url.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))))