(custom-guess-name-alist): -alist variables should use the `alist' type.

Suggested by Drew Adams.

Fixes: debbugs:3120

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ffba716..8ae1978 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-07-11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * cus-edit.el (custom-guess-name-alist): -alist variables should
+       use the `alist' type (bug#3120).  Suggested by Drew Adams.
+
        * printing.el: Add documentation to all the `pr-toggle-' commands.
 
 2011-07-11  Leo  <sdl.web@gmail.com>  (tiny change)

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 820bcfe..22b7cc6 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -594,7 +594,7 @@ WIDGET is the widget to apply the filter entries of MENU on."
     ("-function\\'" function)
     ("-functions\\'" (repeat function))
     ("-list\\'" (repeat sexp))
-    ("-alist\\'" (repeat (cons sexp sexp))))
+    ("-alist\\'" (alist :key-type sexp :value-type sexp)))
   "Alist of (MATCH TYPE).
 
 MATCH should be a regexp matching the name of a symbol, and TYPE should