Mercurial > hg > xemacs-beta
diff lisp/custom.el @ 5923:61d7d7bcbe76 cygwin
merged heads after pull -u
author | Henry Thompson <ht@markup.co.uk> |
---|---|
date | Thu, 05 Feb 2015 17:19:05 +0000 |
parents | a3234d587dc2 |
children |
line wrap: on
line diff
--- a/lisp/custom.el Wed Apr 23 22:22:37 2014 +0100 +++ b/lisp/custom.el Thu Feb 05 17:19:05 2015 +0000 @@ -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) + (symbolp (car version)) + (stringp (cdr version))) + (error "Invalid package version `%s'" version)) + (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."