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.
This commit is contained in:
Basil L. Contovounesios
parent
6a402bd3a7
commit
ff2a02afa6
10 changed files with 29 additions and 35 deletions
|
|
@ -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")
|
||||
(const diary-simple-display :tag "Basic display")
|
||||
:type '(choice (const :tag "Fancy display" diary-fancy-display)
|
||||
(const :tag "Basic display" diary-simple-display)
|
||||
(const :tag "No display" ignore)
|
||||
(function :tag "User-specified function"))
|
||||
:initialize 'custom-initialize-default
|
||||
|
|
|
|||
|
|
@ -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"
|
||||
|
|
|
|||
|
|
@ -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
|
||||
:tag "Calls to unknown functions")
|
||||
(const unbound-reference
|
||||
:tag "Reference to unknown variables")
|
||||
(const unbound-assignment
|
||||
:tag "Assignment to unknown variables")
|
||||
(const macro-expansion
|
||||
:tag "Failure to expand macros")
|
||||
(const empty-let
|
||||
:tag "Let-binding with empty varlist"))))
|
||||
(choice (const :tag "Calls to unknown functions"
|
||||
undefined-functions)
|
||||
(const :tag "Reference to unknown variables"
|
||||
unbound-reference)
|
||||
(const :tag "Assignment to unknown variables"
|
||||
unbound-assignment)
|
||||
(const :tag "Failure to expand macros"
|
||||
macro-expansion)
|
||||
(const :tag "Let-binding with empty varlist"
|
||||
empty-let))))
|
||||
:safe (lambda (value) (or (null value)
|
||||
(and (listp value)
|
||||
(equal value
|
||||
|
|
|
|||
|
|
@ -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
|
||||
:tag "Use send-mail-function")
|
||||
:type '(radio (function-item message--default-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
|
||||
:tag "Use Mailclient package")
|
||||
(function-item message-send-mail-with-mailclient)
|
||||
(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"
|
||||
|
|
|
|||
|
|
@ -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 w3m-standalone :tag "standalone w3m" )
|
||||
(const :tag "emacs-w3m" w3m)
|
||||
(const :tag "standalone w3m" w3m-standalone)
|
||||
(const links)
|
||||
(const lynx)
|
||||
(function))
|
||||
|
|
|
|||
|
|
@ -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")
|
||||
(function-item sendmail-query-once :tag "Query the user")
|
||||
(function-item smtpmail-send-it :tag "Use SMTPmail package")
|
||||
(function-item feedmail-send-it :tag "Use Feedmail package")
|
||||
(function-item mailclient-send-it :tag "Use Mailclient package")
|
||||
:type '(radio (function-item sendmail-send-it)
|
||||
(function-item sendmail-query-once)
|
||||
(function-item :doc "Use SMTPmail package." smtpmail-send-it)
|
||||
(function-item feedmail-send-it)
|
||||
(function-item mailclient-send-it)
|
||||
function)
|
||||
:version "24.1")
|
||||
|
||||
|
|
|
|||
|
|
@ -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))))))
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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 "flse" (612 936))
|
||||
(const :tag "flsa, flse" (612 936))
|
||||
(const :tag "halfletter" (396 612))
|
||||
(const :tag "11x17" (792 1224))
|
||||
(const :tag "tabloid" (792 1224))
|
||||
(const :tag "11x17, tabloid" (792 1224))
|
||||
(const :tag "ledger" (1224 792))
|
||||
(const :tag "csheet" (1224 1584))
|
||||
(const :tag "dsheet" (1584 2448))
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue