From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Mon, 11 Jul 2011 14:57:15 +0000 (+0200)
Subject: (custom-guess-name-alist): -alist variables should use the `alist' type.
X-Git-Tag: emacs-pretest-24.0.90~104^2~382
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5bedb26cb8cc705c14a3e6e8d5474bf220345775;p=emacs.git

(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 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