summaryrefslogtreecommitdiff
path: root/lisp/gnus
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2020-09-25 15:15:21 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2020-09-25 15:15:21 +0200
commite1c33e29d58175e159443babd96f230eb0bb4a88 (patch)
tree77b880347d15bce35f2ac28c13e42abb8530b2d1 /lisp/gnus
parent664927b5257fdaf26f24063edb1f41c407805ed8 (diff)
downloademacs-e1c33e29d58175e159443babd96f230eb0bb4a88.tar.gz
Fix some defcustom types
* lisp/whitespace.el (whitespace-style): * lisp/gnus/message.el (message-screenshot-command): * lisp/progmodes/compile.el (compilation-transform-file-match-alist): * lisp/progmodes/gdb-mi.el (gdb-default-window-configuration-file): * lisp/progmodes/python.el (python-pdbtrack-exit-command): Fix the defcustom types. * lisp/progmodes/sql.el (sql-password-wallet): Fix the value.
Diffstat (limited to 'lisp/gnus')
-rw-r--r--lisp/gnus/gnus-art.el1
-rw-r--r--lisp/gnus/message.el2
-rw-r--r--lisp/gnus/nnselect.el3
3 files changed, 4 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 4484b95075c..b1147924ffa 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -274,6 +274,7 @@ This can also be a list of the above values."
If it is a string, the command will be executed in a sub-shell
asynchronously. The compressed face will be piped to this command."
:type '(choice string
+ (const :tag "None" nil)
(function-item gnus-display-x-face-in-from)
function)
:version "27.1"
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 16f47c8d4c1..2ad479b59df 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -307,7 +307,7 @@ any confusion."
"Command to take a screenshot.
The command should insert a PNG in the current buffer."
:group 'message-various
- :type '(list string)
+ :type '(repeat string)
:version "28.1")
;;; Start of variables adopted from `message-utils.el'.
diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 8cd658100fb..21206b683cf 100644
--- a/lisp/gnus/nnselect.el
+++ b/lisp/gnus/nnselect.el
@@ -257,7 +257,8 @@ Returns either the retrieved header format 'nov or 'headers.
If this variable is nil, or if the provided function returns nil,
`gnus-retrieve-headers' will be called instead."
- :version "28.1" :type '(function) :group 'nnselect)
+ :version "28.1"
+ :type '(repeat function))
;; Gnus backend interface functions.