From 0ce068c298d9aa35614bc6c3fc2ce3dc683e9310 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 25 Oct 2023 12:49:19 +0200 Subject: [PATCH] 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)))) -- 2.39.2