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 11bfeb1b339eb5fd6fb6a205fc2955b73bcfa6e0..7cbc8e569a572767c2cf470cd07ab0e81fad9fb4 100644 (file)
--- 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))))