Mercurial > hg > xemacs-beta
changeset 5828:a3234d587dc2
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.
| author | Mike Sperber <sperber@deinprogramm.de> |
|---|---|
| date | Mon, 10 Nov 2014 09:37:20 +0100 |
| parents | 5d5aeb79edb4 |
| children | 0303baa7c4e9 |
| files | lisp/ChangeLog lisp/custom.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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)