(custom-add-version): New function.

(custom-handle-keyword): Handle :version.

diff --git a/lisp/custom.el b/lisp/custom.el
index 9cdab4cc3d87a79493709757168041d69817e906..180358523469d6f299960229ab11bf718bd89421 100644 (file)
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -328,6 +328,8 @@ Third argument TYPE is the custom option type."
 Fourth argument TYPE is the custom option type."
   (cond ((eq keyword :group)
         (custom-add-to-group value symbol type))
+       ((eq keyword :version)
+        (custom-add-version symbol value))
        ((eq keyword :link)
         (custom-add-link symbol value))
        ((eq keyword :load)
@@ -352,6 +354,10 @@ For other types variables, the effect is undefined."
     (unless (member widget links)
       (put symbol 'custom-links (cons widget links)))))
 
+(defun custom-add-version (symbol version)
+  "To the custom option SYMBOL add the version VERSION."
+  (put symbol 'custom-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."