[Emacs-diffs] /srv/bzr/emacs/trunk r105101: (custom-guess-name-alist): -alist variables should use the `alist' type.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 105101
fixes bug(s): http://debbugs.gnu.org/3120
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Mon 2011-07-11 16:57:15 +0200
message:
  (custom-guess-name-alist): -alist variables should use the `alist' type.
  
  Suggested by Drew Adams.
modified:
  lisp/ChangeLog
  lisp/cus-edit.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-07-11 14:52:48 +0000
+++ b/lisp/ChangeLog    2011-07-11 14:57:15 +0000
@@ -1,5 +1,8 @@
 2011-07-11  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * 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  <address@hidden>  (tiny change)

=== modified file 'lisp/cus-edit.el'
--- a/lisp/cus-edit.el  2011-07-07 15:59:00 +0000
+++ b/lisp/cus-edit.el  2011-07-11 14:57:15 +0000
@@ -594,7 +594,7 @@
     ("-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