Specify key and value types for alist defcustoms

Author: bcc32

ledger-report.el

@@ -78,7 +78,8 @@ The function is called with no parameters and expected to return
 a string, or a list of strings, that should replace the format specifier.
 Single strings are quoted with `shell-quote-argument'; lists of strings are
 simply concatenated (no quoting)."
-  :type 'alist
+  :type '(alist :key-type string
+                :value-type function)
   :group 'ledger-report)
 
 (defcustom ledger-report-auto-refresh t

ledger-schedule.el

@@ -71,7 +71,7 @@
   "List of weekday abbreviations.
 There must be exactly seven entries each with a two character
 abbreviation for a day and the number of that day in the week."
-  :type '(alist :value-type (group integer))
+  :type '(alist :key-type string :value-type (group integer))
   :group 'ledger-schedule)
 
 (defsubst ledger-between (val low high)