(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 ffba716f189b205618c0b4f8e5f2ccc680663ed3..8ae1978b84905ccd5ade05e52bc7ccac1367bb16 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 820bcfeacba941f6810e3895e4e14de6cf2bde06..22b7cc6b3fef8603a0fc2d82ec33668cfe8d17d6 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