diff lisp/custom.el @ 20445:20ff88ac8cc2

(custom-add-version): New function. (custom-handle-keyword): Handle :version.

--- a/lisp/custom.el	Tue Dec 09 21:41:33 1997 +0000
+++ b/lisp/custom.el	Tue Dec 09 22:04:25 1997 +0000
@@ -328,6 +328,8 @@
 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 @@
     (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."