# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 881705065 0
# Node ID 20ff88ac8cc22ac73e01a56aea1c0769eab6773c
# Parent  a9fbb6791eb76aae559d6e43b5b3fae345ba828a
(custom-add-version): New function.
(custom-handle-keyword): Handle :version.

diff -r a9fbb6791eb7 -r 20ff88ac8cc2 lisp/custom.el
--- 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."