;ELC ;;; Compiled ;;; in Emacs version 30.2 ;;; with all optimizations. #@19 (fn &rest KEYS) (defalias 'define-widget-keywords '(macro . #[128 "\300\207" [nil] 2 (#$ . 83)]))#@438 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. (fn NAME CLASS DOC &rest ARGS) (byte-code "\300\301\302\303#\210\304\301\305\306#\302\207" [make-obsolete define-widget-keywords nil "27.1" function-put lisp-indent-function defun] 4) (defalias 'define-widget #[899 "\203 ;\204 \300\301!\210\302\303B#\210\302\304\305!#\210\207" [error "Widget documentation must be nil or a string" put widget-type widget-documentation purecopy] 9 (#$ . 189)]) (byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\311#\210\312\307\310\313#\210\314\315!\207" [function-put define-widget doc-string-elt 3 lisp-indent-function defun defalias widget-plist-member plist-member nil make-obsolete "26.1" provide widget] 6)