;ELC   
;;; compiled by amu@tux.mit.edu on Sun Jan  3 22:58:25 1999
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/custom-1.9962/widget.el
;;; emacs version 19.34.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (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) "АБВГ\fDDCЕBBD‡" [eval-and-compile let keywords quote keys ((while keywords (or (boundp (car keywords)) (set (car keywords) (car keywords))) (setq keywords (cdr keywords))))] 5]))
(byte-code "АВ	@!„ 	@	@L€	A‰„ )ГД!„M ЕЖЗ\"€ЕИЗ\"€ЕЙЗ\"€ЕКЗ\"€ЕЛМНО$€ЕПМНО$€ЕРМНО$€ЕСМНО$€Н‡" [(:doc-overlay :sample-overlay :match-alternatives :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) keywords boundp fboundp load-gc autoload widget-apply "wid-edit" widget-create widget-insert widget-prompt-value widget-browse "wid-browse" nil t widget-browse-other-window widget-browse-at widget-minor-mode] 6)
#@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) "А	В\fB#€А	Е#€	‡" [put name widget-type class args widget-documentation doc] 5 (#$ . 2175)])
(provide (quote widget))