summaryrefslogtreecommitdiff
path: root/lisp/auth-source.el
diff options
context:
space:
mode:
authorMauro Aranda <maurooaranda@gmail.com>2022-02-23 21:05:08 +0100
committerLars Ingebrigtsen <larsi@gnus.org>2022-02-23 21:05:08 +0100
commit479623784eae84974d0cd1c20c3d9f5584f8cf16 (patch)
tree95bfad1b3720c613dc1ce4216fb4517aaf4c51d9 /lisp/auth-source.el
parentb8a96f055624f86fe965a0d1b7b2495b2db80e63 (diff)
downloademacs-479623784eae84974d0cd1c20c3d9f5584f8cf16.tar.gz
Fix auth-sources defcustom
* lisp/auth-source.el (auth-sources): The extra attributes should be in a plist, so inline both :host and :port. Also, give a valid default value for the choice (bug#54127).
Diffstat (limited to 'lisp/auth-source.el')
-rw-r--r--lisp/auth-source.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 8a425cf9bc0..cb528cebdcd 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -280,15 +280,16 @@ can get pretty complex."
(const :tag "default" default))))
(repeat :tag "Extra Parameters" :inline t
(choice :tag "Extra parameter"
+ :value (:host t)
(list
- :tag "Host"
+ :tag "Host" :inline t
(const :format "" :value :host)
(choice :tag "Host (machine) choice"
(const :tag "Any" t)
(regexp
:tag "Regular expression")))
(list
- :tag "Protocol"
+ :tag "Protocol" :inline t
(const :format "" :value :port)
(choice
:tag "Protocol"