Address defcustom :type warnings

* lisp/calendar/diary-lib.el (diary-display-function):
* lisp/calendar/icalendar.el (icalendar-export-alarms):
* lisp/emacs-lisp/elint.el (elint-ignored-warnings):
* lisp/mail/sendmail.el (send-mail-function):
* lisp/net/gnutls.el (gnutls-verify-error):
* lisp/gnus/mm-decode.el (mm-text-html-renderer):
* lisp/gnus/message.el (message-send-mail-function): Fix misplaced
defcustom :tags (bug#66196).
(message-tool-bar): Remove duplicate, overwritten, and nonexistent
defcustom :type gmm-tool-bar-list-item.
* lisp/progmodes/idlwave.el (idlwave-begin-line-comment): Strip
excessive defcustom :type quoting.
* lisp/progmodes/ps-mode.el (ps-mode-paper-size): Consolidate paper
sizes with same dimensions into a single defcustom menu entry.
* lisp/textmodes/glyphless-mode.el (glyphless-mode-types): Remove
duplicate defcustom :type choice.

lisp/calendar/diary-lib.el

@@ -167,8 +167,8 @@ form of ((MONTH DAY YEAR) STRING), where string is the diary
 entry for the given date.  This can be used, for example, to
 produce a different buffer for display (perhaps combined with
 holidays), or hard copy output."
-  :type '(choice (const diary-fancy-display :tag "Fancy display")
+  :type '(choice (const :tag "Fancy display" diary-fancy-display)
-                 (const diary-simple-display :tag "Basic display")
+                 (const :tag "Basic display" diary-simple-display)
                  (const :tag "No display" ignore)
                  (function :tag "User-specified function"))
   :initialize 'custom-initialize-default

lisp/calendar/icalendar.el

@@ -276,9 +276,9 @@ other sexp entries are enumerated in any case."
                                 :value 10)
                        (set :tag "Alarm type"
                             (list :tag "Audio"
-                                  (const audio :tag "Audio"))
+                                  (const :tag "Audio" audio))
                             (list :tag "Display"
-                                  (const display :tag "Display"))
+                                  (const :tag "Display" display))
                             (list :tag "Email"
                                   (const email)
                                   (repeat :tag "Attendees"

lisp/emacs-lisp/elint.el

@@ -79,16 +79,16 @@ are as follows, and suppress messages about the indicated features:
   empty-let           - let-bindings with empty variable lists"
   :type '(choice (const :tag "Don't suppress any warnings" nil)
 		 (repeat :tag "List of issues to ignore"
-			 (choice (const undefined-functions
+                         (choice (const :tag "Calls to unknown functions"
-					:tag "Calls to unknown functions")
+                                        undefined-functions)
-				 (const unbound-reference
+                                 (const :tag "Reference to unknown variables"
-					:tag "Reference to unknown variables")
+                                        unbound-reference)
-				 (const unbound-assignment
+                                 (const :tag "Assignment to unknown variables"
-					:tag "Assignment to unknown variables")
+                                        unbound-assignment)
-				 (const macro-expansion
+                                 (const :tag "Failure to expand macros"
-					:tag "Failure to expand macros")
+                                        macro-expansion)
-				 (const empty-let
+                                 (const :tag "Let-binding with empty varlist"
-					:tag "Let-binding with empty varlist"))))
+                                        empty-let))))
   :safe (lambda (value) (or (null value)
 			    (and (listp value)
 				 (equal value

lisp/gnus/message.el

@@ -747,16 +747,14 @@ default is system dependent and determined by the function
 `message-send-mail-function'.
 
 See also `send-mail-function'."
-  :type '(radio (function-item message--default-send-mail-function
+  :type '(radio (function-item message--default-send-mail-function)
-		               :tag "Use send-mail-function")
 		(function-item message-send-mail-with-sendmail)
 		(function-item message-send-mail-with-mh)
 		(function-item message-send-mail-with-qmail)
 		(function-item message-smtpmail-send-it)
-		(function-item smtpmail-send-it)
+                (function-item :doc "Use SMTPmail package." smtpmail-send-it)
 		(function-item feedmail-send-it)
-		(function-item message-send-mail-with-mailclient
+                (function-item message-send-mail-with-mailclient)
-			       :tag "Use Mailclient package")
  		(function :tag "Other"))
   :group 'message-sending
   :version "27.1"
@@ -8210,7 +8208,6 @@ which specify the range to operate on."
 It can be either a list or a symbol referring to a list.  See
 `gmm-tool-bar-from-list' for the format of the list.  The
 default key map is `message-mode-map'."
-  :type '(repeat gmm-tool-bar-list-item)
   :type '(choice (repeat :tag "User defined list" gmm-tool-bar-item)
 		 (symbol))
   :version "29.1"

lisp/gnus/mm-decode.el

@@ -119,7 +119,7 @@
 	((executable-find "links") 'links)
         ((executable-find "lynx") 'lynx)
         (t 'shr))
-  "Render of HTML contents.
+  "Renderer of HTML contents.
 It is one of defined renderer types, or a rendering function.
 The defined renderer types are:
 `shr': use the built-in Gnus HTML renderer;
@@ -131,8 +131,8 @@ The defined renderer types are:
   :version "29.1"
   :type '(choice (const shr)
                  (const gnus-w3m)
-                 (const w3m :tag "emacs-w3m")
+                 (const :tag "emacs-w3m" w3m)
-		 (const w3m-standalone :tag "standalone w3m" )
+                 (const :tag "standalone w3m" w3m-standalone)
 		 (const links)
 		 (const lynx)
 		 (function))

lisp/mail/sendmail.el

@@ -151,11 +151,11 @@ not a valid RFC 822 (or later) header or continuation line,
 that matches the variable `mail-header-separator'.
 This is used by the default mail-sending commands.  See also
 `message-send-mail-function' for use with the Message package."
-  :type '(radio (function-item sendmail-send-it :tag "Use Sendmail package")
+  :type '(radio (function-item sendmail-send-it)
-		(function-item sendmail-query-once :tag "Query the user")
+                (function-item sendmail-query-once)
-		(function-item smtpmail-send-it :tag "Use SMTPmail package")
+                (function-item :doc "Use SMTPmail package." smtpmail-send-it)
-		(function-item feedmail-send-it :tag "Use Feedmail package")
+                (function-item feedmail-send-it)
-		(function-item mailclient-send-it :tag "Use Mailclient package")
+                (function-item mailclient-send-it)
 		function)
   :version "24.1")
 

lisp/net/gnutls.el

@@ -96,7 +96,7 @@ Security'."
           (repeat :tag "List of hostname regexps with flags for each"
            (list
             (choice :tag "Hostname"
-                    (const ".*" :tag "Any hostname")
+                    (const :tag "Any hostname" ".*")
                     regexp)
             (set (const :trustfiles)
                  (const :hostname))))))

lisp/progmodes/idlwave.el

@@ -309,7 +309,7 @@ beginning with a \";\".  Expressions for comments at the beginning of
 the line should begin with \"^\"."
   :group 'idlwave-code-formatting
   :type '(choice (const :tag "Any line beginning with `;'" nil)
-		 'regexp))
+                 regexp))
 
 (defcustom idlwave-code-comment ";;[^;]"
   "A comment that starts with this regular expression on a line by

lisp/progmodes/ps-mode.el

@@ -97,11 +97,9 @@ When the figure is finished these values should be replaced."
 	  (const :tag "archC"       (1296 1728))
 	  (const :tag "archB"        (864 1296))
 	  (const :tag "archA"        (648  864))
-	  (const :tag "flsa"         (612  936))
+          (const :tag "flsa, flse"   (612  936))
-	  (const :tag "flse"         (612  936))
 	  (const :tag "halfletter"   (396  612))
-	  (const :tag "11x17"        (792 1224))
+          (const :tag "11x17, tabloid" (792 1224))
-	  (const :tag "tabloid"      (792 1224))
 	  (const :tag "ledger"      (1224  792))
 	  (const :tag "csheet"      (1224 1584))
 	  (const :tag "dsheet"      (1584 2448))

lisp/textmodes/glyphless-mode.el

@@ -30,7 +30,6 @@ The value can be any of the groups supported by
 `all', for all glyphless characters."
   :version "29.1"
   :type '(repeat (choice (const :tag "All" all)
-                         (const :tag "No font" no-font)
                          (const :tag "C0 Control" c0-control)
                          (const :tag "C1 Control" c1-control)
                          (const :tag "Format Control" format-control)