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

Suggested by Drew Adams.

Fixes: debbugs:3120

2 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ffba716f189..8ae1978b849 100644
--- 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 820bcfeacba..22b7cc6b3fe 100644
--- 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