changeset 5829:0303baa7c4e9

Committed Mike Sperber's change from earlier today.
author Vin Shelton <acs@xemacs.org>
date Mon, 10 Nov 2014 14:20:19 -0500
parents 4d7032d36975 (current diff) a3234d587dc2 (diff)
children 5f02d29a2a65 ad3e9b3274d5
files
diffstat 2 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Mon Nov 10 13:43:46 2014 -0500
+++ b/lisp/ChangeLog	Mon Nov 10 14:20:19 2014 -0500
@@ -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): 
--- a/lisp/custom.el	Mon Nov 10 13:43:46 2014 -0500
+++ b/lisp/custom.el	Mon Nov 10 14:20:19 2014 -0500
@@ -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)