master 194a8f5c140: Fix `browse-url-default-scheme` custom :type

[Stefan Kangas]

branch: master
commit 194a8f5c1406dd7e762376bdfde78d1b7d01b6b1
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Fix `browse-url-default-scheme` custom :type
    
    * lisp/net/browse-url.el (browse-url-default-scheme): Fix custom
    :type.
---
 lisp/net/browse-url.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 7cbc8e569a5..df3f538a354 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -680,7 +680,9 @@ For example, when point is on an URL fragment like
 Note that if you set this to \"https\", websites that do not yet
 support HTTPS may not load correctly in your web browser.  Such
 websites are increasingly rare, but they do still exist."
-  :type 'string
+  :type '(choice (const :tag "HTTP" "http")
+                 (const :tag "HTTPS" "https")
+                 (string :tag "Something else" "https"))
   :version "29.1")
 
 (defun browse-url-url-at-point ()