Commit 71964ccc authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Fix defcustom type of network-security-protocol-checks

* lisp/net/nsm.el (network-security-protocol-checks): Fix the
defcustom type (bug#37306).
parent 365dad19
Pipeline #3058 failed with stage
in 58 minutes and 1 second
...@@ -55,7 +55,6 @@ compatibility concerns. ...@@ -55,7 +55,6 @@ compatibility concerns.
See the Emacs manual for a description of all things that are See the Emacs manual for a description of all things that are
checked and warned against." checked and warned against."
:version "25.1" :version "25.1"
:group 'nsm
:type '(choice (const :tag "Low" low) :type '(choice (const :tag "Low" low)
(const :tag "Medium" medium) (const :tag "Medium" medium)
(const :tag "High" high) (const :tag "High" high)
...@@ -76,7 +75,6 @@ connecting to hosts on a local network. ...@@ -76,7 +75,6 @@ connecting to hosts on a local network.
Make sure you know what you are doing before enabling this Make sure you know what you are doing before enabling this
option." option."
:version "27.1" :version "27.1"
:group 'nsm
:type '(choice (const :tag "On" t) :type '(choice (const :tag "On" t)
(const :tag "Off" nil) (const :tag "Off" nil)
(function :tag "Custom function"))) (function :tag "Custom function")))
...@@ -85,7 +83,6 @@ option." ...@@ -85,7 +83,6 @@ option."
user-emacs-directory) user-emacs-directory)
"The file the security manager settings will be stored in." "The file the security manager settings will be stored in."
:version "25.1" :version "25.1"
:group 'nsm
:type 'file) :type 'file)
(defcustom nsm-save-host-names nil (defcustom nsm-save-host-names nil
...@@ -93,7 +90,6 @@ option." ...@@ -93,7 +90,6 @@ option."
By default, only hosts that have exceptions have their names By default, only hosts that have exceptions have their names
stored in plain text." stored in plain text."
:version "25.1" :version "25.1"
:group 'nsm
:type 'boolean) :type 'boolean)
(defvar nsm-noninteractive nil (defvar nsm-noninteractive nil
...@@ -175,8 +171,7 @@ otherwise. ...@@ -175,8 +171,7 @@ otherwise.
See also: `nsm-check-tls-connection', `nsm-save-host-names', See also: `nsm-check-tls-connection', `nsm-save-host-names',
`nsm-settings-file'" `nsm-settings-file'"
:version "27.1" :version "27.1"
:group 'nsm :type '(repeat (cons (symbol :tag "Check function")
:type '(repeat (cons (function :tag "Check function")
(choice :tag "Level" (choice :tag "Level"
:value medium :value medium
(const :tag "Low" low) (const :tag "Low" low)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment