(custom-add-version): New function.

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

1 files changed, 6 insertions, 0 deletions

diff --git a/lisp/custom.el b/lisp/custom.el
index 9cdab4cc3d8..18035852346 100644
--- 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."