From c743cc52aba26ecfbecda269a308c9c36383fdc5 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 9 Dec 1997 22:04:25 +0000 Subject: [PATCH] (custom-add-version): New function. (custom-handle-keyword): Handle :version. --- lisp/custom.el | 6 ++++++ 1 file changed, 6 insertions(+) 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." -- 2.39.2