commit/XEmacs: sperber: Don't bail out on :package-version in `defcustom'.

1 new commit in XEmacs: https://bitbucket.org/xemacs/xemacs/commits/7b42a97af782/ Changeset: 7b42a97af782 User: sperber Date: 2014-09-27 12:16:11+00:00 Summary: Don't bail out on :package-version in `defcustom'. 2014-09-27 Michael Sperber <mike(a)xemacs.org&gt; * custom.el (defcustom): (custom-handle-keyword): Handle :package-version without bailing out. Affected #: 2 files diff -r b527c25f36ce63931d68e37353ca9fce94f2890d -r 7b42a97af782e406d9ebda1890a87479ca1000f5 lisp/ChangeLog --- a/lisp/ChangeLog +++ b/lisp/ChangeLog ＠＠ -1,3 +1,8 ＠＠ +2014-09-27 Michael Sperber <mike(a)xemacs.org&gt; + + * custom.el (defcustom): + (custom-handle-keyword): Handle :package-version without bailing out. + 2014-09-25 Jerry James <james(a)xemacs.org&gt; * bytecomp.el (byte-compile-insert-header): do not insert diff -r b527c25f36ce63931d68e37353ca9fce94f2890d -r 7b42a97af782e406d9ebda1890a87479ca1000f5 lisp/custom.el --- a/lisp/custom.el +++ b/lisp/custom.el ＠＠ -274,6 +274,17 ＠＠ VALUE should be a string specifying that the variable was first introduced, or its default value was changed, in Emacs version VERSION. +:package-version + VALUE should be a list with the form (PACKAGE . VERSION), + where PACKAGE and VERSION are strings. + + This specifies that the variable was first introduced, or its + default value was changed, in PACKAGE version VERSION. This + keyword takes priority over :version. + + Since PACKAGE must be unique and the user might see it in an + error message, a good choice is the official name of the + package, such as MH-E or Gnus. :tag LABEL Use LABEL, a string, instead of the item's name, to label the item in customization menus and buffers. ＠＠ -458,6 +469,8 ＠＠ (custom-add-to-group value symbol type)) ((eq keyword :version) (custom-add-version symbol value)) + ((eq keyword :package-version) + (custom-add-package-version symbol value)) ((eq keyword :link) (custom-add-link symbol value)) ((eq keyword :load) ＠＠ -507,6 +520,14 ＠＠ "To the custom option SYMBOL add the version VERSION." (put symbol 'custom-version version)) +(defun custom-add-package-version (symbol version) + "To the custom option SYMBOL add the package version VERSION." + (unless (and (consp version) + (stringp (car version)) + (stringp (cdr version))) + (error "Invalid package version `%s'" value)) + (put symbol 'custom-package-version version)) + (defun custom-add-load (symbol load) "To the custom option SYMBOL add the dependency LOAD. LOAD should be either a library file name, or a feature name." Repository URL: https://bitbucket.org/xemacs/xemacs/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches