procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix missing :value with defcustom const :type

Browse source 
* lisp/calendar/calendar.el (calendar-intermonth-header)
(calendar-intermonth-text, calendar-date-style):
* lisp/calendar/diary-lib.el (diary-face-attrs):
* lisp/emacs-lisp/package.el (package-check-signature):
* lisp/erc/erc-dcc.el (erc-dcc-get-default-directory):
* lisp/gnus/gnus-art.el (gnus-auto-select-part):
* lisp/gnus/gnus-cus.el (gnus-agent-parameters):
* lisp/gnus/gnus.el (gnus-user-agent):
* lisp/mail/rmail.el (rmail-retry-ignored-headers):
* lisp/progmodes/sh-script.el (sh-indent-after-continuation):
Fix missing :value with defcustom const :type.
This commit is contained in:
Stefan Kangas 2022-07-06 15:25:56 +02:00
parent b5cd9343ae
commit 22bcbf8e2c
9 changed files with 28 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/calendar/calendar.el
View file

@ -565,7 +565,7 @@ See `calendar-intermonth-text'."
:set (lambda (sym val)
(set sym val)
(calendar-redraw))
:type '(choice (const nil :tag "Nothing")
:type '(choice (const :value nil :tag "Nothing")
(string :tag "Fixed string")
(sexp :value
(propertize "WK" 'font-lock-face
@ -597,7 +597,7 @@ See also `calendar-intermonth-header'."
:set (lambda (sym val)
(set sym val)
(calendar-redraw))
:type '(choice (const nil :tag "Nothing")
:type '(choice (const :value nil :tag "Nothing")
(string :tag "Fixed string")
(sexp :value
(propertize
@ -742,9 +742,9 @@ Setting this variable directly does not take effect (if the
calendar package is already loaded). Rather, use either
\\[customize] or the function `calendar-set-date-style'."
:version "23.1"
:type '(choice (const american :tag "Month/Day/Year")
(const european :tag "Day/Month/Year")
(const iso :tag "Year/Month/Day"))
:type '(choice (const :value american :tag "American (Month/Day/Year)")
(const :value european :tag "European (Day/Month/Year)")
(const :value iso :tag "ISO 8601 (Year/Month/Day)"))
:initialize 'custom-initialize-default
:set (lambda (_symbol value)
(calendar-set-date-style value))

10
lisp/calendar/diary-lib.el
View file

@ -100,11 +100,11 @@ are: `string', `symbol', `int', `tnil', `stringtnil'."
:type '(repeat (list (regexp :tag "Regular expression")
(integer :tag "Sub-expression")
(symbol :tag "Attribute (e.g. :foreground)")
(choice (const string :tag "A string")
(const symbol :tag "A symbol")
(const int :tag "An integer")
(const tnil :tag "t or nil")
(const stringtnil
(choice (const :value string :tag "A string")
(const :value symbol :tag "A symbol")
(const :value int :tag "An integer")
(const :value tnil :tag "t or nil")
(const :value stringtnil
:tag "A string, t, or nil"))))
:group 'diary)

8
lisp/emacs-lisp/package.el
View file

@ -355,10 +355,10 @@ More specifically the value can be:
This also applies to the \"archive-contents\" file that lists the
contents of the archive."
:type '(choice (const nil :tag "Never")
(const allow-unsigned :tag "Allow unsigned")
(const t :tag "Check always")
(const all :tag "Check all signatures"))
:type '(choice (const :value nil :tag "Never")
(const :value allow-unsigned :tag "Allow unsigned")
(const :value t :tag "Check always")
(const :value all :tag "Check all signatures"))
:risky t
:version "27.1")

2
lisp/erc/erc-dcc.el
View file

@ -391,7 +391,7 @@ the accepted connection."
(defcustom erc-dcc-get-default-directory nil
"Default directory for incoming DCC file transfers.
If this is nil, then the current value of `default-directory' is used."
:type '(choice (const nil :tag "Default directory") directory))
:type '(choice (const :value nil :tag "Default directory") directory))
;;;###autoload
(defun erc-cmd-DCC (cmd &rest args)

6
lisp/gnus/gnus-art.el
View file

@ -1091,9 +1091,9 @@ positive (negative), move point forward (backwards) this many
parts. When nil, redisplay article."
:version "23.1" ;; No Gnus
:group 'gnus-article-mime
:type '(choice (const nil :tag "Redisplay article.")
(const 1 :tag "Next part.")
(const 0 :tag "Current part.")
:type '(choice (const :value nil :tag "Redisplay article")
(const :value 1 :tag "Next part")
(const :value 0 :tag "Current part")
integer))
;;;

2
lisp/gnus/gnus-cus.el
View file

@ -273,7 +273,7 @@ DOC is a documentation string for the parameter.")
gnus-agent-cat-predicate)
(agent-score
(choice :tag "Score File" :value nil
(const file :tag "Use group's score files")
(const :value file :tag "Use group's score files")
(repeat (list (string :format "%v" :tag "File name"))))
"Which score files to use when using score to select articles to fetch.

10
lisp/gnus/gnus.el
View file

@ -2263,12 +2263,12 @@ a string, be sure to use a valid format, see RFC 2616."
:version "22.1"
:group 'gnus-message
:type '(choice (list (set :inline t
(const gnus :tag "Gnus version")
(const emacs :tag "Emacs version")
(const :value gnus :tag "Gnus version")
(const :value emacs :tag "Emacs version")
(choice :tag "system"
(const type :tag "system type")
(const config :tag "system configuration"))
(const codename :tag "Emacs codename")))
(const :value type :tag "system type")
(const :value config :tag "system configuration"))
(const :value codename :tag "Emacs codename")))
(string)))
;; Convert old (< 2005-01-10) symbol type values:

2
lisp/mail/rmail.el
View file

@ -388,7 +388,7 @@ If nil, display all header fields except those matched by
;;;###autoload
(defcustom rmail-retry-ignored-headers (purecopy "^x-authentication-warning:\\|^x-detected-operating-system:\\|^x-spam[-a-z]*:\\|content-type:\\|content-transfer-encoding:\\|mime-version:\\|message-id:")
"Headers that should be stripped when retrying a failed message."
:type '(choice regexp (const nil :tag "None"))
:type '(choice regexp (const :value nil :tag "None"))
:group 'rmail-headers
:version "23.2") ; added x-detected-operating-system, x-spam

6
lisp/progmodes/sh-script.el
View file

@ -1926,9 +1926,9 @@ With t, you get the latter as long as that would indent the continuation line
deeper than the initial line."
:version "25.1"
:type '(choice
(const nil :tag "Never")
(const t :tag "Only if needed to make it deeper")
(const always :tag "Always"))
(const :value nil :tag "Never")
(const :value t :tag "Only if needed to make it deeper")
(const :value always :tag "Always"))
:group 'sh-indentation)
(defun sh-smie--continuation-start-indent ()