;ELC   
;;; Compiled by rms@psilocin.gnu.org on Wed Apr 29 01:10:36 1998
;;; from file /gd/gnu/emacs/lisp/widget.el
;;; in Emacs version 20.2.92.7
;;; with bytecomp version 2.41
;;; with all optimizations.
;;; This file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`widget.el' was compiled for Emacs 19.29 or later"))


(defalias 'define-widget-keywords '(macro . #[(&rest keys) "\301\302\303\304DDC\305\303\306\307\310\303DD\311\310\303D\310\303DEE\312\303\313\303DEFED\207" [keys eval-and-compile let keywords quote while or boundp car set setq cdr] 11]))
(byte-code "\301\302@!\204 @@L\210A\211\204 )\302\207" [keywords (:documentation-indent :complete-function :complete :button-overlay :field-overlay :documentation-shown :button-prefix :button-suffix :mouse-down-action :glyph-up :glyph-down :glyph-inactive :prompt-internal :prompt-history :prompt-match :prompt-value :deactivate :active :inactive :activate :sibling-args :delete-button-args :insert-button-args :append-button-args :button-args :tag-glyph :off-glyph :on-glyph :valid-regexp :secret :sample-face :sample-face-get :case-fold :create :convert-widget :format :value-create :offset :extra-offset :tag :doc :from :to :args :value :action :value-set :value-delete :match :parent :delete :menu-tag-get :value-get :choice :void :menu-tag :on :off :on-type :off-type :notify :entry-format :button :children :buttons :insert-before :delete-at :format-handler :widget :value-pos :value-to-internal :indent :size :value-to-external :validate :error :directory :must-match :type-error :value-inline :inline :match-inline :greedy :button-face-get :button-face :value-face :keymap :entry-from :entry-to :help-echo :documentation-property :tab-order) boundp] 3)
#@403 Define a new widget type named NAME from CLASS.

NAME and CLASS should both be symbols, CLASS should be one of the
existing widget types, or nil to create the widget from scratch.

After the new widget has been defined, the following two calls will
create identical widgets:

* (widget-create NAME)

* (apply 'widget-create CLASS ARGS)

The third argument DOC is a documentation string for the widget.
(defalias 'define-widget #[(name class doc &rest args) "\304\305	\nB#\210\304\306#\210\207" [name class args doc put widget-type widget-documentation] 5 (#$ . 1936)])
(provide 'widget)