Current File : //usr/local/share/emacs/27.2/lisp/widget.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defalias 'define-widget-keywords '(macro . #[(&rest _keys) "\300\207" [nil] 1]))
(make-obsolete 'define-widget-keywords nil "27.1")
#@406 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) "\203
;\204
\304\305!\210\306 \307\n B#\210\306 \310\311!#\210 \207" [doc name class args error "widget documentation must be nil or a string." put widget-type widget-documentation purecopy] 5 (#$ . 542)])
(byte-code "\300\301\302\303#\304\305\306\307#\210\310\305\306\311#\210\312\313!\207" [function-put define-widget doc-string-elt 3 defalias widget-plist-member plist-member nil make-obsolete "26.1" provide widget] 5)
Mini Shell