# HG changeset patch
# User Mike Sperber <sperber@deinprogramm.de>
# Date 1415608640 -3600
# Node ID a3234d587dc2a55b1c71fd1b7c79891e65dd7d6e
# Parent  5d5aeb79edb47904410c6600f2ed1ea71c28c481
Make :package-version in customize right.

2014-11-10  Michael Sperber  <mike@xemacs.org>

	* custom.el (custom-add-package-version): The car of a
	:package-version is a symbol, not a string.

diff -r 5d5aeb79edb4 -r a3234d587dc2 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Nov 06 09:34:06 2014 -0700
+++ b/lisp/ChangeLog	Mon Nov 10 09:37:20 2014 +0100
@@ -1,3 +1,8 @@
+2014-11-10  Michael Sperber  <mike@xemacs.org>
+
+	* custom.el (custom-add-package-version): The car of a
+	:package-version is a symbol, not a string.
+
 2014-10-11  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* mule/korea-util.el (korean-key-bindings): 
diff -r 5d5aeb79edb4 -r a3234d587dc2 lisp/custom.el
--- a/lisp/custom.el	Thu Nov 06 09:34:06 2014 -0700
+++ b/lisp/custom.el	Mon Nov 10 09:37:20 2014 +0100
@@ -523,9 +523,9 @@
 (defun custom-add-package-version (symbol version)
   "To the custom option SYMBOL add the package version VERSION."
   (unless (and (consp version)
-	       (stringp (car version))
+	       (symbolp (car version))
 	       (stringp (cdr version)))
-        (error "Invalid package version `%s'" value))
+        (error "Invalid package version `%s'" version))
   (put symbol 'custom-package-version version))
 
 (defun custom-add-load (symbol load)