From: Stefan Kangas <stefankangas@gmail.com>
Date: Thu, 26 Oct 2023 21:58:05 +0000 (+0200)
Subject: Fix `browse-url-default-scheme` custom :type
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=194a8f5c1406dd7e762376bdfde78d1b7d01b6b1;p=emacs.git

Fix `browse-url-default-scheme` custom :type

* lisp/net/browse-url.el (browse-url-default-scheme): Fix custom
:type.
---

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