Mercurial > emacs
changeset 20445:20ff88ac8cc2
(custom-add-version): New function.
(custom-handle-keyword): Handle :version.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 09 Dec 1997 22:04:25 +0000 |
| parents | a9fbb6791eb7 |
| children | 4bcd559e2cb4 |
| files | lisp/custom.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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."