;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'cl-lib)
#@76 Character position of the end of event if that exists, or nil.

(fn EVENT)
(defalias 'widget-event-point #[257 "\300\301!!\207" [posn-point event-end] 4 (#$ . 102)])
#@70 Non-nil if EVENT is a mouse-button-release event object.

(fn EVENT)
(defalias 'widget-button-release-event-p #[257 "\300
!\205\301
!\302>\205\303\304!>\206\305\304!>\207" [eventp event-basic-type (mouse-1 mouse-2 mouse-3) click event-modifiers drag] 4 (#$ . 275)])
(byte-code "\300\301\302\303\304\305\304\306\307\310\311\312&\210\300\313\302\314\311\301%\210\300\315\302\316\311\301\311\317&\207" [custom-declare-group widgets nil "Customization support for the Widget Library." :link (custom-manual "(widget)Top") (emacs-library-link :tag "Lisp File" "widget.el") :prefix "widget-" :group extensions widget-documentation "Options controlling the display of documentation strings." widget-faces "Faces used by the widget library." faces] 12)
#@120 Face used for documentation strings in widgets.
This exists as a variable so it can be set locally in certain buffers.
(defvar widget-documentation-face 'widget-documentation (#$ . 1036))
(custom-declare-face 'widget-documentation '((((class color) (background dark)) (:foreground "lime green")) (((class color) (background light)) (:foreground "dark green")) (t nil)) "Face used for documentation text." :group 'widget-documentation :group 'widget-faces)
#@106 Face used for buttons in widgets.
This exists as a variable so it can be set locally in certain buffers.
(defvar widget-button-face 'widget-button (#$ . 1499))
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\304\305&\210\300\316\317\320\304\305%\210\300\321\322\323\304\305%\207" [custom-declare-face widget-button ((t (:weight bold))) "Face used for widget buttons." :group widget-faces custom-declare-variable widget-mouse-face funcall function #[0 "\300\207" [highlight] 1 ""] "Face used for widget buttons when the mouse is above them." :type face widget-field ((((type tty)) :background "yellow3" :foreground "black" :extend t) (((class grayscale color) (background light)) :background "gray85" :extend t) (((class grayscale color) (background dark)) :background "dim gray" :extend t) (t :slant italic :extend t)) "Face used for editable fields." widget-single-line-field ((((type tty)) :background "green3" :foreground "black") (((class grayscale color) (background light)) :background "gray85") (((class grayscale color) (background dark)) :background "dim gray") (t :slant italic)) "Face used for editable fields spanning only a single line."] 8)
#@161 Return string representation of OBJECT, any Lisp object.
No quoting characters are used; no delimiters are printed around
the contents of strings.

(fn OBJECT)
(defalias 'widget-princ-to-string #[257 "\301\302\303\"\304\216\305
!\210)rq\210\306 +\207" [standard-output generate-new-buffer " *string-output*" t #[0 "\301!\207" [standard-output kill-buffer] 2] princ buffer-string] 4 (#$ . 2690)])
#@29 Clear all undo information.
(defalias 'widget-clear-undo #[0 "\300p!\210\301 \207" [buffer-disable-undo buffer-enable-undo] 2 (#$ . 3097)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\300\315\302\303\316DD\317\306\307\310\320&\207" [custom-declare-variable widget-menu-max-size funcall function #[0 "\300\207" [40] 1 #1=""] "Largest number of items allowed in a popup menu.\nLarger menus are read through the minibuffer." :group widgets :type integer widget-menu-max-shortcuts #[0 "\300\207" [40] 1 #1#] "Largest number of items for which it works to choose one with a character.\nFor a larger number of items, the minibuffer is used." widget-menu-minibuffer-flag #[0 "\300\207" [nil] 1 #1#] "Non-nil means use the minibuffer; to ask for a choice from the keyboard.\nIf nil, read a single character." boolean] 8)
#@1017 Convert the EXTENDED menu into a menu composed of simple menu items.

Each item in the simplified menu is of the form (ITEM-STRING . REAL-BINDING),
where both elements are taken from the EXTENDED MENU.  ITEM-STRING is the
correspondent ITEM-NAME in the menu-item entry:
 (menu-item ITEM-NAME REAL-BINDING . ITEM-PROPERTY-LIST), and REAL-BINDING is
the symbol in the key vector, as in `define-key'.
 (See `(elisp)Defining Menus' for more information.)

Only visible, enabled and meaningful menu items make their way into
the returned simplified menu.  That is:
For the menu item to be visible, it has to either lack a :visible form in its
item-property-list, or the :visible form has to evaluate to a non-nil value.
For the menu item to be enabled, it has to either lack a :enabled form in its
item-property-list, or the :enable form has to evaluate to a non-nil value.
Additionally, if the menu item is a radio button, then its selected form has
to evaluate to nil for the menu item to be meaningful.

(fn EXTENDED)
(defalias 'widget--simplify-menu #[257 "\300C\301\302\303\"\"\210\304
\242!\207" [nil map-keymap make-closure #[514 "\211@\301=\205~\302
8\205~\303
\233\304\211\305\211\211\203YA\203Y\306@\211\262!\203YA@\262

\307\267\202@\211\262\202Q\211\262\202Q
\310=\203Q\211@\311=\203Q\211A\262AA\262\202\312!\205|\312!\205|\203p\312!?\205|\300A@	B\300\242B\240\266\206\207" [V0 menu-item 2 3 t nil keywordp #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:visible 52 :included 52 :enable 58 :active 58)) :button :radio eval] 11 "\n\n(fn EV DEF)"] reverse] 6 (#$ . 3984)])
#@1219 Choose an item from a list.

First argument TITLE is the name of the list.
Second argument ITEMS should be a menu, either with simple item definitions,
or with extended item definitions.
When ITEMS has simple item definitions, it is a list whose members are either
 (NAME . VALUE), to indicate selectable items, or just strings to
 indicate unselectable items.

When ITEMS is a menu that uses an extended format, then ITEMS should be a
keymap, and each binding should look like this:
 (menu-item ITEM-NAME REAL-BINDING . ITEM-PROPERTY-LIST)
or like this: (menu-item ITEM-NAME) to indicate a non-selectable item.
REAL-BINDING should be a symbol, and should not be a keymap, because submenus
are not supported.

Optional third argument EVENT is an input event.

If EVENT is a mouse event, and the number of elements in items is less than
`widget-menu-max-size', a popup menu will be used, otherwise the
minibuffer.

The user is asked to choose between each NAME from ITEMS.
If ITEMS has simple item definitions, then this function returns the VALUE of
the chosen element.  If ITEMS is a keymap, then the return value is the symbol
in the key vector, as in the argument of `define-key'.

(fn TITLE ITEMS &optional EVENT)
(defalias 'widget-choose #[770 "
C\211\242GW\203K
\203K\303 \203K\304
\242!\203A\305
\242!\306\307$\216
\310\242\"\240\210
\242\211AB\241\266\311\242\"@)\207\311\312\242BD\"\207	\204W\211\242G\nV\203\221\304
\242!\203e\211\313\242!\240\210\211\314\315\242\"\240\210\316\317P\242\320\321$\211;\205\220\322
\242\"\211;\203\210\211\262\323\242\"A\262
\207\304
\242!\203\237\211\313\242!\240\210\324\320\211\211\211r\325\326!q\210\327 \210\330c\210\242\203\351\242\211\242A\240\210\242\262:\203\342\331@!A\332\333#c\210
BB\262\321\262\266T\262\202\260\334c\210eb\210\320y\210)
\204\373\335\336!\210\337 \306\340\"\216\341\342\343\326!\344\"!r\306\345\"\216\346
@\347\"\210\350\332\351
\"\352\353	\"\"\262*\210)\210\323
\"A\207" [widget-menu-max-size widget-menu-minibuffer-flag widget-menu-max-shortcuts display-popup-menus-p keymapp keymap-prompt make-closure #[0 "\301\303\300\301\242\"\240\210\302\205\301\242\211\302AB\241\262
\207" [V0 V1 V2 delete] 4] delete x-popup-menu "" widget--simplify-menu cl-remove-if stringp completing-read ": " nil t try-completion assoc 48 get-buffer-create " widget-choose" erase-buffer "Available choices:\n\n" substitute-command-keys format "%c = %s\n" "\nC-g = Quit" error "None of the choices is currently meaningful" current-window-configuration #[0 "\301\300!\207" [V0 set-window-configuration] 2] internal--before-with-selected-window display-buffer get-buffer (display-buffer-in-direction (direction . bottom) (window-height . fit-window-to-buffer)) #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord read-char-choice "%s: " mapcar car] 16 (#$ . 5645)])
#@148 Non-nil means add extra space at the end of editable text fields.
If you don't add the space, it will become impossible to edit a zero
size field.
(defconst widget-field-add-space nil (#$ . 8569))
#@184 Non-nil means use `before-change-functions' to track editable fields.
This enables the use of undo.  Using before hooks also means that
the :notify function can't know the new value.
(defvar widget-field-use-before-change t (#$ . 8773))
#@78 Specify editable button for WIDGET between FROM and TO.

(fn WIDGET FROM TO)
(defalias 'widget-specify-field #[771 "\212\211b\210\301\302\"\204\303u\210\202\203\304\305!\210`\262
)\301\306\"\301\307\"\206)\310\301\311\"\301\312\"?\206<\301\302\"\313!\203E\314\262TV\204U\301\302\"\204\233\206Z`Sf\315U\203\233\316S\317\320\317%\321
\322\323#\210\321
\324#\210\321
\325#\210\321
\326#\210\321
\327#\210\321
\330#\266S\262\320\262
\316\317\211%\331	\332#\210\321
\322#\210\321
\325#\210\321
\326#\210\321
\327#\210\321
\330#\266\333!\207" [widget-field-add-space widget-get :size 1 insert-and-inherit " " :keymap :value-face widget-field :help-echo :follow-link functionp widget-mouse-help 10 make-overlay nil t overlay-put field boundary real-field local-map face follow-link help-echo widget-put :field-overlay widget-specify-secret] 14 (#$ . 9016)])
#@72 Replace text in FIELD with value of `:secret', if non-nil.

(fn FIELD)
(defalias 'widget-specify-secret #[257 "\300
\301\"\300\302\"
\205T\303!\304!\203+\211V\203+\211Sf\305=\203+\211S\262
\202

W\205R
f\211=\204J\306\211T$\210\307\211T\310$\210T\262\210\202+\266\202\207" [widget-get :secret :size widget-field-start widget-field-end 32 subst-char-in-region put-text-property secret] 11 (#$ . 9938)])
#@69 Specify button for WIDGET between FROM and TO.

(fn WIDGET FROM TO)
(defalias 'widget-specify-button #[771 "\300\301\302\301%\303\304\"\303\305\"\306\307#\210\310
!\203\311\262
\312\313#\210\312\314\303	\315\"#\210\312\316\302#\210\303\317\"\204a\312\320\321	\322\"#\210\312\323\321	\324\"\211<\203[\325
!\202]\211C\262
#\210\312\326\327#\210\312\330#\210\312\331#\207" [make-overlay nil t widget-get :follow-link :help-echo widget-put :button-overlay functionp widget-mouse-help overlay-put button keymap :keymap evaporate :suppress-face face widget-apply :button-face-get mouse-face :mouse-face-get copy-sequence pointer hand follow-link help-echo] 12 (#$ . 10369)])
#@91 Help-echo callback for widgets whose :help-echo is a function.

(fn WINDOW OVERLAY POINT)
(defalias 'widget-mouse-help #[771 "r\300!q\210\301\302!!\211\205\303
\304\"\305
!\203!\211!\266\202\202$\211\266\202)\207" [overlay-buffer widget-at overlay-start widget-get :help-echo functionp] 7 (#$ . 11073)])
#@69 Specify sample for WIDGET between FROM and TO.

(fn WIDGET FROM TO)
(defalias 'widget-specify-sample #[771 "\300\301\302\301%\303
\304\305\306\"#\210\303
\307\302#\210\310\311#\207" [make-overlay nil t overlay-put face widget-apply :sample-face-get evaporate widget-put :sample-overlay] 10 (#$ . 11390)])
#@76 Specify documentation for WIDGET between FROM and TO.

(fn WIDGET FROM TO)
(defalias 'widget-specify-doc #[771 "\301\302\303\302%\304
\305#\210\304
\306#\210\304
\307\303#\210\310\311#\207" [widget-documentation-face make-overlay nil t overlay-put widget-doc face evaporate widget-put :doc-overlay] 9 (#$ . 11707)])
#@159 Non-nil if we should indent at the current position.
With CHECK-AFTER non-nil, considers also the content after point, if needed.

(fn &optional CHECK-AFTER)
(defalias 'widget--should-indent-p #[256 "\214~\210h\300=\205\211?\206g\301=?)\207" [10 32] 3 (#$ . 12037)])
#@71 Execute FORM without inheriting any text properties.

(fn &rest FORM)
(defalias 'widget-specify-insert '(macro . #[128 "\300\301\302\303\304\305B\306BBFD\207" [save-restriction let ((inhibit-read-only t) (inhibit-modification-hooks t)) (narrow-to-region (point) (point)) prog1 progn ((goto-char (point-max)))] 8 (#$ . 12314)]))
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311%\207" [put widget-specify-insert edebug-form-spec body custom-declare-face widget-inactive ((t :inherit shadow)) "Face used for inactive widgets." :group widget-faces] 6)
#@67 Make WIDGET inactive for user modifications.

(fn WIDGET FROM TO)
(defalias 'widget-specify-inactive #[771 "\300\301\"?\205.\302\303\304\303%\305
\306\307#\210\305
\310\304#\210\305
\311\312#\210\305
\313\314#\210\315\301#\262
\207" [widget-get :inactive make-overlay nil t overlay-put face widget-inactive evaporate priority 100 modification-hooks (widget-overlay-inactive) widget-put] 9 (#$ . 12879)])
#@59 Ignoring the arguments, signal an error.

(fn &rest JUNK)
(defalias 'widget-overlay-inactive #[128 "?\205\301\302!\207" [inhibit-read-only error "The widget here is not active"] 3 (#$ . 13295)])
#@57 Make WIDGET active for user modifications.

(fn WIDGET)
(defalias 'widget-specify-active #[257 "\300
\301\"\211\205\302
!\210\303\301\304#\207" [widget-get :inactive delete-overlay widget-put nil] 6 (#$ . 13499)])
#@64 Return the type of WIDGET.  The type is a symbol.

(fn WIDGET)
(defalias 'widget-type #[257 "\211@\207" [] 2 (#$ . 13722)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put widget-type speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@52 Return non-nil if WIDGET is a widget.

(fn WIDGET)
(defalias 'widgetp #[257 "\2119\203	\211\300N\207\211:\205\211@9\205\211@\300N\207" [widget-type] 3 (#$ . 13989)])
#@141 In WIDGET, get the value of PROPERTY.
If the value is a symbol, return its binding.
Otherwise, just return the value.

(fn WIDGET PROPERTY)
(defalias 'widget-get-indirect #[514 "\300\"\2119\203\f\211J\207\207" [widget-get] 5 (#$ . 14167)])
#@80 Non-nil if there is a definition in WIDGET for PROPERTY.

(fn WIDGET PROPERTY)
(defalias 'widget-member #[514 "\300A\"\203\n\301\207
@\203\302@\303N\"\207\304\207" [plist-member t widget-member widget-type nil] 5 (#$ . 14416)])
#@51 Extract the current value of WIDGET.

(fn WIDGET)
(defalias 'widget-value #[257 "\300
\301\300\302\"#\207" [widget-apply :value-to-external :value-get] 7 (#$ . 14657)])
#@62 Set the current value of WIDGET to VALUE.

(fn WIDGET VALUE)
(defalias 'widget-value-set #[514 "\300\301\300\302##\207" [widget-apply :value-set :value-to-internal] 9 (#$ . 14833)])
#@60 Extract the default external value of WIDGET.

(fn WIDGET)
(defalias 'widget-default-get #[257 "\300
\301\302\303\"\206I\302\304\"\203E\305!\262\306\302\304\"\211\203=\211@\307\302\310\"\2031\302\304\"\2023C\"\262
A\266\202\202\210\311\304#\266\300\312\"#\207" [widget-apply :value-to-external widget-get :value :args widget-copy nil append :inline widget-put :default-get] 12 (#$ . 15025)])
#@230 Non-nil if the widget WIDGET is inline.

With BUBBLEP non-nil, check also if WIDGET has a member that bubbles its inline
property (if any), up to WIDGET, so that WIDGET can act as an inline widget.

(fn WIDGET &optional BUBBLEP)
(defalias 'widget-inline-p #[513 "\300\301\"\206\211\205\300\302\"\205\303\302\"\207" [widget-get :inline :inline-bubbles-p widget-apply] 5 (#$ . 15445)])
#@316 In WIDGET, match the start of VALS.

For an inline widget or for a widget that acts like one (see `widget-inline-p'),
try to match elements in VALS as far as possible.  Otherwise, match the first
element of the list VALS.

Return a list whose car contains all members of VALS that matched WIDGET.

(fn WIDGET VALS)
(defalias 'widget-match-inline #[514 "\300\301\"\203
\302\303#\207\211<\203\"\302\304@#\203\"\211@C
AB\207\305\207" [widget-inline-p t widget-apply :match-inline :match nil] 6 (#$ . 15845)])
#@76 Apply :action in WIDGET in response to EVENT.

(fn WIDGET &optional EVENT)
(defalias 'widget-apply-action #[513 "\300\301\"\203
\300\302#\207\303\304!\207" [widget-apply :active :action error "Attempt to perform action on inactive widget"] 6 (#$ . 16365)])
#@164 Prompt for a value matching WIDGET, using PROMPT.
The current value is assumed to be VALUE, unless UNBOUND is non-nil.

(fn WIDGET PROMPT &optional VALUE UNBOUND)
(defalias 'widget-prompt-value #[1026 "<\204	C\262\300\301\211@\262
#\262\302!\262\303\304%\303\305#\204/\306\307@\"\210\207" [format "[%s] %s" widget-convert widget-apply :prompt-value :match error "Value does not match %S type"] 10 (#$ . 16633)])
#@123 Get the item WIDGET is assumed to toggle.
This is only meaningful for radio buttons or checkboxes in a list.

(fn WIDGET)
(defalias 'widget-get-sibling #[257 "\300\211\301\"\302\"\303\3042+
\203)
@\262

A\262\300
\305\"=\203\f\306\304\"\210\202\f\3030\207" [widget-get :parent :children nil child :button throw] 6 (#$ . 17070)])
#@275 Map FUNCTION over the buttons in BUFFER.
FUNCTION is called with the arguments WIDGET and MAPARG.

If FUNCTION returns non-nil, the walk is canceled.

The arguments MAPARG, and BUFFER default to nil and (current-buffer),
respectively.

(fn FUNCTION &optional BUFFER MAPARG)
(defalias 'widget-map-buttons #[769 "e\300\203rq\210\301 )\202\301 \302
@A\"\262
\211
A\262\242\211\262\205=\303\304\"\262
\203\"\203\300\262
\202\207" [nil overlay-lists append overlay-get button] 9 (#$ . 17414)])
#@513 Describe the widget at point.
Displays a buffer with information about the widget (e.g., its actions) as well
as a link to browse all the properties of the widget.

This command resolves the indirection of widgets running the action of its
parents, so the real action executed can be known.

When called from Lisp, pass WIDGET-OR-POS as the widget to describe,
or a buffer position where a widget is present.  If WIDGET-OR-POS is nil,
the widget at point is the widget to describe.

(fn &optional WIDGET-OR-POS)
(defalias 'widget-describe #[256 "\305\306!\210\307
!\203\211\202\310
!\311
\205\321\312\313D\314\315!\"\210\316\317!B\320\321\322\"BD\262
\311\211\223\210\323	B\324\nB\325 \326 \327
!\211\311\211r\326 q\210\330\331!\210\332\333\334\335\336\n@\337N\340\341
&\210\342\211\205\256\211@\343
!\344	\"\345
!\203\245\330\346\347\350!\351\352#\353\354%\210\2119\203\235\330\355!\210\332\356\357\360\361\362\361\340\363&	\266\202\247\330\364!\210\365
!\210\266
A\266\202\202a\262
)\262
rq\210\366\311\"\262)\345\367!\203\311\367\"\210)\266*\370 \210\371\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output require wid-browse widgetp widget-at nil help-setup-xref widget-describe called-interactively-p interactive action widget--resolve-parent-action mouse-down-action widget-get :mouse-down-action help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup widget-insert "This widget's type is " widget-create widget-browse :format "%[%v%]\n%d" :doc widget-documentation :help-echo "Browse this widget's properties" (action mouse-down-action) symbol-name alist-get functionp "\n\n" propertize capitalize face bold "'\nThe " " of this widget is" " " function-link :value :button-prefix "" :button-suffix "Describe this function" "\n" princ temp-buffer-window-show help-window-setup widget-setup t] 21 (#$ . 17931) "d"])
#@180 Resolve the real action of WIDGET up its inheritance chain.
Follow the WIDGET's parents, until its :action is no longer
`widget-parent-action', and return its value.

(fn WIDGET)
(defalias 'widget--resolve-parent-action #[257 "\300
\301\"\300\302\"
\303=\203\300
\302\"\262
\300
\301\"\262\202
\207" [widget-get :action :parent widget-parent-action] 6 (#$ . 19899)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\315\316\306\307\310\317&	\210\300\320\302\303\321DD\322\306\307\310\323&\207" [custom-declare-variable widget-image-directory funcall function #[0 "\301\302\303\"!\207" [data-directory file-name-as-directory expand-file-name "images/custom"] 4 #1=""] "Where widget button images are located.\nIf this variable is nil, widget will try to locate the directory\nautomatically." :group widgets :type directory widget-image-enable #[0 "\300\207" [t] 1 #1#] "If non-nil, use image buttons in widgets when available." :version "21.1" boolean widget-image-conversion #[0 "\300\207" [((svg ".svg") (xpm ".xpm") (gif ".gif") (png ".png") (jpeg ".jpg" ".jpeg") (xbm ".xbm"))] 1 #1#] "Conversion alist from image formats to file name suffixes." (repeat (cons :format "%v" (symbol :tag "Image Format" unknown) (repeat :tag "Suffixes" (string :format "%v"))))] 10)
#@236 Create a graphical button from IMAGE.
IMAGE should either already be an image, or be a file name sans
extension (xpm, xbm, gif, jpg, or png) located in
`widget-image-directory' or otherwise where `find-image' will find it.

(fn IMAGE)
(defalias 'widget-image-find #[257 "\211\203
\203
\304 \204\305\207\211:\203\211@\306=\203\207\211;\203X	\nB\305\211\203Q\211@\211A\211\203I\211@\307@\310PFB\262
A\266\202\202/\210
A\266\202\202'\210\311
\237!)\207\305\207" [widget-image-enable widget-image-directory load-path widget-image-conversion display-graphic-p nil image :type :file find-image] 11 (#$ . 21219)])
#@114 Face used for pressed buttons in widgets.
This exists as a variable so it can be set locally in certain
buffers.
(defvar widget-button-pressed-face 'widget-button-pressed (#$ . 21855))
#@387 In WIDGET, insert the text TAG or, if supported, IMAGE.
IMAGE should either be an image or an image file name sans extension
(xpm, xbm, gif, jpg, or png) located in `widget-image-directory'.

Optional arguments DOWN and INACTIVE are used instead of IMAGE when the
button is pressed or inactive, respectively.  These are currently ignored.

(fn WIDGET TAG IMAGE &optional DOWN INACTIVE)
(defalias 'widget-image-insert #[1283 "\300\301!\203\302!\211\262\203\303\304\305#\210\306\"\207c\207" [featurep image widget-image-find widget-put :suppress-face t insert-image] 9 (#$ . 22047)])
#@79 Move to where you click, and if it is an active field, invoke it.

(fn EVENT)
(defalias 'widget-move-and-invoke #[257 "\300
!\210\301
!\211\205\302
\303\"\205\304!\207" [mouse-set-point widget-event-point get-char-property button widget-button-click] 5 (#$ . 22645) "e"])
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\304\301&\210\306\316\310\311\317DD\320\314\315\304\301&\207" [custom-declare-group widget-button nil "The look of various kinds of buttons." :group widgets custom-declare-variable widget-button-prefix funcall function #[0 "\300\207" [#1=""] 1 #1#] "String used as prefix for buttons." :type string widget-button-suffix #[0 "\300\207" [#1#] 1 #1#] "String used as suffix for buttons."] 8)
#@98 Create widget of TYPE.
The optional ARGS are additional keyword arguments.

(fn TYPE &rest ARGS)
(defalias 'widget-create #[385 "\300\301#\302
\303\"\210\207" [apply widget-convert widget-apply :create] 6 (#$ . 23394)])
#@146 As part of the widget PARENT, create a child widget TYPE.
The child is converted, using the keyword arguments ARGS.

(fn PARENT TYPE &rest ARGS)
(defalias 'widget-create-child-and-convert #[642 "\300\301#\302
\303#\210\304
\305\"\2040\302
\305\304\305\"\206\306\304\307\"\206'\306\\\304\310\"\\#\210\311
\312\"\210\207" [apply widget-convert widget-put :parent widget-get :indent 0 :extra-offset :offset widget-apply :create] 11 (#$ . 23623)])
#@42 Create widget of TYPE.

(fn PARENT TYPE)
(defalias 'widget-create-child #[514 "\300
!\301
\302#\210\303
\304\"\204-\301
\304\303\304\"\206\305\303\306\"\206$\305\\\303\307\"\\#\210\310
\311\"\210\207" [widget-copy widget-put :parent widget-get :indent 0 :extra-offset :offset widget-apply :create] 10 (#$ . 24086)])
#@65 Create widget of TYPE with value VALUE.

(fn PARENT TYPE VALUE)
(defalias 'widget-create-child-value #[771 "\300!\301
\302\303\304##\210\301
\305#\210\306
\307\"\2049\301
\307\306\307\"\206(\310\306\311\"\2060\310\\\306\312\"\\#\210\303
\313\"\210\207" [widget-copy widget-put :value widget-apply :value-to-internal :parent widget-get :indent 0 :extra-offset :offset :create] 11 (#$ . 24418)])
#@29 Delete WIDGET.

(fn WIDGET)
(defalias 'widget-delete #[257 "\300
\301\"\207" [widget-apply :delete] 4 (#$ . 24832)])
#@42 Make a deep copy of WIDGET.

(fn WIDGET)
(defalias 'widget-copy #[257 "\300\301!\302\"\207" [widget-apply copy-sequence :copy] 4 (#$ . 24955)])
#@136 Convert TYPE to a widget without inserting it in the buffer.
The optional ARGS are additional keyword arguments.

(fn TYPE &rest ARGS)
(defalias 'widget-convert #[385 "
9\203\n
C\202
\300!\211\301A\203F\302A@!\2039AA\2039A@\303=\2031\301\262\202AA\262\202\303AD\241\210\301\262\202\203u
\204u@\303=\203`A@\262\304\262\202F\302@!\203oAA\262\202F\304\262\202F
\203\200\305\303#\210\262\203\240\306A\307\"\211\203\226\211!\262\210@\310N\262\202\203\211\203\302\211@\302
!\203\274\305A@#\210
AA\266\202\202\240\266\301\202\240\311\312\"\203\330\305\312\313\314\315\n\312\"##\210\207" [copy-sequence nil keywordp :args t widget-put plist-get :convert-widget widget-type widget-member :value widget-apply :value-to-internal widget-get] 15 (#$ . 25107)])
#@81 Call `insert' with ARGS even if surrounding text is read only.

(fn &rest ARGS)
(defalias 'widget-insert #[128 "\302\211\303\304\"*\207" [inhibit-modification-hooks inhibit-read-only t apply insert] 4 (#$ . 25932)])
#@397 Return a widget of type TYPE with endpoint FROM TO.
No text will be inserted to the buffer, instead the text between FROM
and TO will be used as the widgets end points.  If optional arguments
BUTTON-FROM and BUTTON-TO are given, these will be used as the widgets
button end points.
Optional ARGS are extra keyword arguments for TYPE.

(fn TYPE FROM TO &optional BUTTON-FROM BUTTON-TO &rest ARGS)
(defalias 'widget-convert-text #[1411 "\300\301\302\303%\304!\304!\305\306\"\210\305
\307\"\210\310\311#\210\310\312#\210\2032\313#\210\207" [apply widget-convert :delete widget-leave-text copy-marker set-marker-insertion-type t nil widget-put :from :to widget-specify-button] 13 (#$ . 26158)])
#@294 Return a widget of type TYPE with endpoint FROM TO.
Optional ARGS are extra keyword arguments for TYPE.
No text will be inserted to the buffer, instead the text between FROM
and TO will be used as the widgets end points, as well as the widgets
button end points.

(fn TYPE FROM TO &rest ARGS)
(defalias 'widget-convert-button #[899 "\300\301&\207" [apply widget-convert-text] 12 (#$ . 26876)])
#@72 Remove markers and overlays from WIDGET and its children.

(fn WIDGET)
(defalias 'widget-leave-text #[257 "\300
\301\"\300\302\"\300\303\"\300\304\"\300\305\"\306\211\223\210\300\307\"\306\211\223\210\203(\310!\210\2030\310!\210
\2038\310!\210\211\203@\310
!\210\311\312\300\313\"\"\207" [widget-get :button-overlay :sample-overlay :doc-overlay :field-overlay :from nil :to delete-overlay mapc widget-leave-text :children] 10 (#$ . 27286)])
#@57 Get the text representation of the widget.

(fn WIDGET)
(defalias 'widget-text #[257 "\300
\301\"\211\205\f\300\302\"\211\205\303!\303!=\205\304\"\207" [widget-get :from :to marker-buffer buffer-substring-no-properties] 6 (#$ . 27749)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias advertised-widget-backward widget-backward nil make-obsolete "23.2"] 4)
#@174 Keymap containing useful binding for buffers containing widgets.
Recommended as a parent keymap for modes using widgets.
Note that such modes will need to require wid-edit.
(defvar widget-keymap (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\305#\210\307\305\310\311#\210\301
\312\305#\210\301
\313\314#\210\301
\315\314#\210\301
\316\317#\210\207" [make-sparse-keymap define-key "	" widget-forward "	" widget-backward [(shift tab)] put :advertised-binding [(shift tab)] [backtab] [down-mouse-2] widget-button-click [down-mouse-1] [(control 109)] widget-button-press] 5) (#$ . 28141))
#@57 Keymap used for events a widget does not handle itself.
(defvar widget-global-map global-map (#$ . 28749))
(make-variable-buffer-local 'widget-global-map)
#@39 Keymap used inside an editable field.
(defvar widget-field-keymap (byte-code "\301!\302
\303\304#\210\302
\305\306#\210\302
\307\310#\210\302
\311\312#\210\207" [widget-keymap copy-keymap define-key "" widget-kill-line "\211" widget-complete "
" widget-field-activate "" widget-end-of-line] 5) (#$ . 28910))
#@34 Keymap used inside a text field.
(defvar widget-text-keymap (byte-code "\301!\302
\303\304#\210\207" [widget-keymap copy-keymap define-key "" widget-end-of-line] 5) (#$ . 29227))
#@63 Invoke the editable field at point.

(fn POS &optional EVENT)
(defalias 'widget-field-activate #[513 "\301!\211\203\f\302
\"\207\303\304\305 \"!\207" [widget-global-map widget-field-at widget-apply-action call-interactively lookup-key this-command-keys] 7 (#$ . 29414) "@d"])
(custom-declare-face 'widget-button-pressed '((((min-colors 88) (class color)) (:foreground "red1")) (((class color)) (:foreground "red")) (t (:weight bold :underline t))) "Face used for pressed buttons." :group 'widget-faces)
#@150 If non-nil, `widget-button-click' moves point to a button after invoking it.
If nil, point returns to its original position after invoking a button.
(defvar widget-button-click-moves-point nil (#$ . 29928))
#@122 Call BUTTON if BUTTON is a widget and EVENT is correct for it.
If nothing was called, return non-nil.

(fn EVENT BUTTON)
(defalias 'widget-button--check-and-call-button #[514 "
\304!\305>\306!\307\3102

\311 r\312\313\"\216\314\315!\211@\262
!\210\212\316\315!!b\210\317\320\"\317\321\"\2068\322\323\"\322\324\"\312\325$\216\212
\203X\326\323#\210\326\324#\210\327\n\330
#\204\334\331\332!\204\333\333 \262\203\215\n\211\242\334=\262
\203\215\n\nB\262\335\310\331\"\210\n\250\204d\n@\336>\204d\n@\337=\204d\306!\262\203\314\340\341\"\n=\203\314
\203d\326\323#\210\326\324#\210\202d\326\323#\210\326\324#\210\202d)\203\376\340\341\"\n=\203\376b\210\342\n\f\"\210\203\376`\262*\266)
\203	

b\210*\210\3070\207" [widget-button-pressed-face track-mouse unread-command-events widget-button-click-moves-point event-basic-type (mouse-1 down-mouse-1) widget-event-point nil button-press-cancelled internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] select-window event-start posn-point widget-get :button-overlay :pressed-face overlay-get face mouse-face #[0 "\303\300\304\301#\210\303\300\305\302#\207" [V0 V1 V2 overlay-put face mouse-face] 4] overlay-put widget-apply :mouse-down-action t widget-button-release-event-p read--potential-mouse-event mouse-movement throw (switch-frame select-window) scroll-bar-movement get-char-property button widget-apply-action] 16 (#$ . 30142)])
#@62 Invoke the button that the mouse is pointing at.

(fn EVENT)
(defalias 'widget-button-click #[257 "\301
!\203\202\302
!\303>\301!\304!\305\306\307\211@\262
!\205%\310\211@\262
!#\211\2031\311\"\205\201\312\313\203P\314\315\"\211\262\203G\313\262\202f\314\316\"\262
\202f\314\317\"\211\262\203`\313\262\202f\314\320\"\262

\203x\321!\204x\322 \262\202j\211\205\323
!\266\202\207\324\325!\207" [widget-global-map widget-event-point event-basic-type (mouse-1 down-mouse-1) event-start get-char-property button windowp window-buffer widget-button--check-and-call-button t nil lookup-key [down-mouse-1] [mouse-1] [down-mouse-2] [mouse-2] widget-button-release-event-p read--potential-mouse-event call-interactively message "You clicked somewhere weird."] 10 (#$ . 31671) "e"])
#@49 Invoke button at POS.

(fn POS &optional EVENT)
(defalias 'widget-button-press #[513 "\301\302\"\211\203
\303
\"\207\304\305 \"\306
!\205\307
!\207" [widget-global-map get-char-property button widget-apply-action lookup-key this-command-keys commandp call-interactively] 6 (#$ . 32483) "@d"])
#@101 Return the tabable widget at POS, or nil.
POS defaults to the value of (point).

(fn &optional POS)
(defalias 'widget-tabable-at #[256 "\300
!\211\205\301
\302\"\211\203\211\303Y\205
\202
\262
\207" [widget-at widget-get :tab-order 0] 5 (#$ . 32789)])
#@92 If non-nil, use overlay change functions to tab around in the buffer.
This is much faster.
(defvar widget-use-overlay-change t (#$ . 33055))
#@198 Move point to the ARG next field or button.
ARG may be negative to move backward.
When the second optional argument is non-nil,
nothing is shown in the echo area.

(fn ARG &optional SUPPRESS-ECHO)
(defalias 'widget-move #[513 "\301\302 \301V\203Nm\203eb\210T\262\202'\203$\303`!b\210\202'\304u\210\305U\2037=\2037\306\307!\210\302 \211\203J\211=\204JS\262\211\262\210\202\301W\203\225o\203bdb\210T\262\202q\203n\310`!b\210\202q\311u\210\305U\203\201=\203\201\306\307!\210\302 \211\203\221\211=\204\221T\262\210\202N\302 \302 
=\203\244\311u\210\202\227\210\312u\266\211\204\261\313`!\210\314\315!\207" [widget-use-overlay-change 0 widget-tabable-at next-overlay-change 1 2 error "No buttons or fields found" previous-overlay-change -1 nil widget-echo-help run-hooks widget-move-hook] 8 (#$ . 33203)])
#@100 Move point to the next field or button.
With optional ARG, move across that many fields.

(fn ARG)
(defalias 'widget-forward #[257 "\300\301!\210\302
!\207" [run-hooks widget-forward-hook widget-move] 3 (#$ . 34059) "p"])
#@104 Move point to the previous field or button.
With optional ARG, move across that many fields.

(fn ARG)
(defalias 'widget-backward #[257 "\300\301!\210\302
[!\207" [run-hooks widget-backward-hook widget-move] 3 (#$ . 34288) "p"])
(defalias 'widget-beginning-of-line 'beginning-of-line)
#@138 Go to end of field or end of line, whichever is first.
Trailing spaces at the end of padded fields are not considered part of
the field.
(defalias 'widget-end-of-line #[0 "\300\210l?\205\301\302`S!x\207" [nil " " field-beginning] 3 (#$ . 34580) nil])
#@58 Kill to end of field or end of line, whichever is first.
(defalias 'widget-kill-line #[0 "\300`!\211\205\n\301
!
\203\302\303!
V\203\304`\"\207\305\306!\207" [widget-field-find widget-field-end line-beginning-position 2 kill-region call-interactively kill-line] 5 (#$ . 34840) nil])
#@18 Narrow to field.
(defalias 'widget-narrow-to-field #[0 "\300`!\211\205\f\301 \302 }\207" [widget-field-find line-beginning-position line-end-position] 3 (#$ . 35135) nil])
#@90 Complete content of editable field from point.
When not inside a field, signal an error.
(defalias 'widget-complete #[0 "\301 \302
!\203\211 \207\211:\203$\303
8\304
@A@\3058\306\307\"$)\207\310\311!\207" [completion-extra-properties widget-completions-at-point functionp 3 completion-in-region 2 plist-get :predicate error "No completions available for this field"] 8 (#$ . 35314) nil])
(defalias 'widget-completions-at-point #[0 "\300`!\211\203\f\301
\302\"\207\303\304!\207" [widget-field-find widget-apply :completions-function error "Not in an editable field"] 4])
#@58 List of all newly created editable fields in the buffer.
(defvar widget-field-new nil (#$ . 35898))
(make-variable-buffer-local 'widget-field-new)
#@44 List of all editable fields in the buffer.
(defvar widget-field-list nil (#$ . 36051))
(make-variable-buffer-local 'widget-field-list)
#@66 The button or field at POS (default, point).

(fn &optional POS)
(defalias 'widget-at #[256 "\300
\206`\301\"\206\302
!\303
!\205\211\207" [get-char-property button widget-field-at widgetp] 4 (#$ . 36192)])
#@55 Setup current buffer so editing string widgets works.
(defalias 'widget-setup #[0 "\304\211\305
\n\2038\n@\262
\nA\211B\306
\307\"@\306\307\"A\310\311!\311!#\210
\305\211\223\210\211\305\211\223\266\202*\266\312 \210\313 \207" [inhibit-modification-hooks inhibit-read-only widget-field-new widget-field-list t nil widget-get :field-overlay widget-specify-field marker-position widget-clear-undo widget-add-change] 10 (#$ . 36411)])
#@30 Last field containing point.
(defvar widget-field-last nil (#$ . 36864))
(make-variable-buffer-local 'widget-field-last)
#@36 The widget data before the change.
(defvar widget-field-was nil (#$ . 36991))
(make-variable-buffer-local 'widget-field-was)
#@59 Return the widget field at POS, or nil if none.

(fn POS)
(defalias 'widget-field-at #[257 "\300
\206`\301\"\211\302=\203\300\206`\303\"\207\207" [get-char-property field boundary real-field] 5 (#$ . 37122)])
#@59 Return the buffer of WIDGET's editing field.

(fn WIDGET)
(defalias 'widget-field-buffer #[257 "\300
\301\"\302
!\203\303
!\207\211:\205\304
@!\207" [widget-get :field-overlay overlayp overlay-buffer marker-buffer] 4 (#$ . 37344)])
#@58 Return the start of WIDGET's editing field.

(fn WIDGET)
(defalias 'widget-field-start #[257 "\300
\301\"\302
!\203\303
!\207\211@\207" [widget-get :field-overlay overlayp overlay-start] 4 (#$ . 37586)])
#@56 Return the end of WIDGET's editing field.

(fn WIDGET)
(defalias 'widget-field-end #[257 "\301
\302\"\303
!\2039\304
!\205;r\305!q\210\214~\210\306\307!\310\"*\311=\2045\2040\301\312\"\2045\307
!S\207\307
!\207\211A\207" [widget-field-add-space widget-get :field-overlay overlayp overlay-buffer widget-field-buffer get-char-property overlay-end field boundary :size] 5 (#$ . 37798)])
#@15 

(fn WIDGET)
(defalias 'widget-field-text-end #[257 "\300
!\301\302\"\211\203\211\303U\203
\207\304!\211\205;\205;r\305!q\210
V\2039Sf\306=\2039S\262\202$)\207" [widget-field-end widget-get :size 0 widget-field-start widget-field-buffer 32] 6 (#$ . 38197)])
#@111 Return the field at POS.
Unlike (get-char-property POS \='field), this works with empty fields too.

(fn POS)
(defalias 'widget-field-find #[257 "\301\211\203-@\262A\262\302!X\203\303!X\203\211\203'\304\305!\210
\262
\202\207" [widget-field-list nil widget-field-start widget-field-end error "Overlapping fields"] 7 (#$ . 38481)])
#@16 

(fn FROM TO)
(defalias 'widget-before-change #[514 "?\205>\302!\302!

=\204\303\304\305\306\307$\210\310\311\312\"\207
\204-\303\304\305\306\307$\210\310\311\313\"\207	\205<\314\315\316E$\266\202\207" [inhibit-read-only widget-field-use-before-change widget-field-find add-hook post-command-hook widget-add-change nil t signal text-read-only ("Change should be restricted to a single field") ("Attempt to change text outside editable field") widget-apply :notify before-change] 11 (#$ . 38836)])
(defalias 'widget-add-change #[0 "\300\301\302\303#\210\304\305\306\307\303$\210\304\310\311\307\303$\207" [remove-hook post-command-hook widget-add-change t add-hook before-change-functions widget-before-change nil after-change-functions widget-after-change] 5])
#@58 Adjust field size and text properties.

(fn FROM TO OLD)
(defalias 'widget-after-change #[771 "\300!\300!
\205\210

=\204\301\302!\210\303\304\"\211\203x\305!\306!\211ZW\203=\212\211b\210\307\310\\Z\"\210)\266\202x\211ZV\203v`\\W\204S`
V\203[
\\\262\202^`\262\212\211b\210h\310=\203u`V\203u\311\312!\210\202b)\266\313!\266\314\315\316		E$\207" [widget-field-find error "Change in different fields" widget-get :size widget-field-start widget-field-end insert-char 32 delete-char -1 widget-specify-secret widget-apply :notify after-change] 12 (#$ . 39618)])
#@131 Tell :parent of WIDGET to handle the :action.
Optional EVENT is the event that triggered the action.

(fn WIDGET &optional EVENT)
(defalias 'widget-parent-action #[513 "\300\301\302\"\303#\207" [widget-apply widget-get :parent :action] 6 (#$ . 40220)])
#@59 Delete all :children and :buttons in WIDGET.

(fn WIDGET)
(defalias 'widget-children-value-delete #[257 "\300\301\302\303\"\"\210\304
\303\305#\210\300\301\302\306\"\"\210\304
\306\305#\207" [mapc widget-delete widget-get :children widget-put nil :buttons] 6 (#$ . 40481)])
#@47 All the :children must be valid.

(fn WIDGET)
(defalias 'widget-children-validate #[257 "\300
\301\"\302\211\203\211\204@\262A\262\303\304\"\262
\202\207" [widget-get :children nil widget-apply :validate] 7 (#$ . 40763)])
#@72 Get the value of the first member of :children in WIDGET.

(fn WIDGET)
(defalias 'widget-child-value-get #[257 "\300\301\302\"@!\207" [widget-value widget-get :children] 5 (#$ . 41003)])
#@79 Get the inline value of the first member of :children in WIDGET.

(fn WIDGET)
(defalias 'widget-child-value-inline #[257 "\300\301\302\"@\303\"\207" [widget-apply widget-get :children :value-inline] 5 (#$ . 41197)])
#@80 The result of validating the first member of :children in WIDGET.

(fn WIDGET)
(defalias 'widget-child-validate #[257 "\300\301\302\"@\303\"\207" [widget-apply widget-get :children :validate] 5 (#$ . 41420)])
#@213 Convert and instantiate the value of the :type attribute of WIDGET.
Store the newly created widget in the :children attribute.

The value of the :type attribute should be an unconverted widget type.

(fn WIDGET)
(defalias 'widget-type-value-create #[257 "\300
\301\"\300\302\"\303\304\305\306!#C#\207" [widget-get :value :type widget-put :children widget-create-child-value widget-convert] 10 (#$ . 41637)])
#@140 Get default value from the :type attribute of WIDGET.

The value of the :type attribute should be an unconverted widget type.

(fn WIDGET)
(defalias 'widget-type-default-get #[257 "\300\301\302\303\"!!\207" [widget-default-get widget-convert widget-get :type] 6 (#$ . 42060)])
#@144 Non-nil if the :type value of WIDGET matches VALUE.

The value of the :type attribute should be an unconverted widget type.

(fn WIDGET VALUE)
(defalias 'widget-type-match #[514 "\300\301\302\303\"!\304#\207" [widget-apply widget-convert widget-get :type :match] 7 (#$ . 42345)])
#@52 Copy :args as widget types in WIDGET.

(fn WIDGET)
(defalias 'widget-types-copy #[257 "\300
\301\302\303\304\301\"\"#\210\207" [widget-put :args mapcar widget-copy widget-get] 9 (#$ . 42633)])
#@55 Convert :args as widget types in WIDGET.

(fn WIDGET)
(defalias 'widget-types-convert-widget #[257 "\300
\301\302\303\304\301\"\"#\210\207" [widget-put :args mapcar widget-convert widget-get] 9 (#$ . 42834)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put widget-types-convert-widget speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@54 Initialize :value from :args in WIDGET.

(fn WIDGET)
(defalias 'widget-value-convert-widget #[257 "\300
\301\"\211\203\302\303@#\210\302\301\304#\210\210\207" [widget-get :args widget-put :value nil] 6 (#$ . 43204)])
#@52 Return the :value property of WIDGET.

(fn WIDGET)
(defalias 'widget-value-value-get #[257 "\300
\301\"\207" [widget-get :value] 4 (#$ . 43432)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\302\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\344\352\353\354\355\356\357\360\344\361\362\363\364\365\366&9\207" [define-widget default nil "Basic widget other widgets are derived from." :value-to-internal #[514 "\207" #1=[] 3 "\n\n(fn WIDGET VALUE)"] :value-to-external #[514 "\207" #1# 3 "\n\n(fn WIDGET VALUE)"] :button-prefix widget-button-prefix :button-suffix widget-button-suffix :completions-function widget-default-completions :create widget-default-create :indent :offset 0 :format-handler widget-default-format-handler :button-face-get widget-default-button-face-get :mouse-face-get widget-default-mouse-face-get :sample-face-get widget-default-sample-face-get :delete widget-default-delete :copy identity :value-set widget-default-value-set :value-inline widget-default-value-inline :value-delete ignore :default-get widget-default-default-get :menu-tag-get widget-default-menu-tag-get :validate :active widget-default-active :activate widget-specify-active :deactivate widget-default-deactivate :mouse-down-action :action widget-default-action :notify widget-default-notify :prompt-value widget-default-prompt-value] 58)
#@82 Return completion data, like `completion-at-point-functions' would.

(fn WIDGET)
(defalias 'widget-default-completions #[257 "\300
\301\"\211\203\302!`\303!]E\207\300\304\"\203\305\306\"\207\300\307\"\205*\305\310\"\207" [widget-get :completions widget-field-start widget-field-text-end :complete make-closure #[0 "\301\300\302\"\207" [V0 widget-apply :complete] 3] :complete-function #[0 "\300\302\303\300\304\"!)\207" [V0 widget--completing-widget call-interactively widget-get :complete-function] 4]] 6 (#$ . 44857)])
#@60 Create WIDGET at point in the current buffer.

(fn WIDGET)
(defalias 'widget-default-create #[257 "\214\302\211``}\210`\303\211\211\211\211\211\211\304	\305\"c\210b\210\306\307\303\302#\203
\310\224f\311\312!\210\211\313\267\202\375\314c\266\202`\262\315\n\316\"c\266\202\315\n\317\"c\210`\262\210\202`\262\210\202`\262\210\202\304\n\320\"\203
\321c\210\322\323\304\f\320\"\"\266\202\304\n\324\"\325\304\f\326\"!
\203\231\327\f\206\222\330#\266\202\211\203\244\211c\266\202\331\304
\332\"p\"\266\202\304\n\333\"\211\203\325`\262\325
!c\210h\321=\203\317\311\334!\210\202\302\321c\210`\262\266\202\335\n!\266\202\203\367\204\367\336\n\337\"\266\202`\266\202\202\336\n\340#\210\210\202\203
\203
\341	#\210\203+
\203+
\342	#\210\203:

\203:
\343	#\210\211\203G
\211b\210\336	\337\"\210\266\344 \345 \346\302\"\210\346
\303\"\210\347\350#\210\347\351#\266db\210+\352 \207" [inhibit-modification-hooks inhibit-read-only t nil widget-get :format re-search-forward "%\\(.\\)" 1 delete-char -2 #s(hash-table size 10 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (37 49 91 56 93 70 123 84 125 91 110 98 116 122 100 177 104 218 118 227)) 37 widget-get-indirect :button-prefix :button-suffix :indent 10 insert-char 32 :tag-glyph substitute-command-keys :tag widget-image-insert "image" princ :value :doc -1 widget-add-documentation-string-button widget-apply :value-create :format-handler widget-specify-button widget-specify-sample widget-specify-doc point-min-marker point-max-marker set-marker-insertion-type widget-put :from :to widget-clear-undo] 16 (#$ . 45397)])
#@22 

(fn WIDGET ESCAPE)
(defalias 'widget-default-format-handler #[514 "\300\301\"\207" [error "Unknown escape `%c'"] 5 (#$ . 47087)])
#@15 

(fn WIDGET)
(defalias 'widget-default-button-face-get #[257 "\301
\302\"\206\301
\303\"\211\203\304
\305\"\202\262
\207" [widget-button-face widget-get :button-face :parent widget-apply :button-face-get] 5 (#$ . 47226)])
#@15 

(fn WIDGET)
(defalias 'widget-default-mouse-face-get #[257 "\301
\302\"\206\301
\303\"\211\203\304
\305\"\202\262
\207" [widget-mouse-face widget-get :mouse-face :parent widget-apply :mouse-face-get] 5 (#$ . 47462)])
#@15 

(fn WIDGET)
(defalias 'widget-default-sample-face-get #[257 "\300
\301\"\207" [widget-get :sample-face] 4 (#$ . 47694)])
#@45 Remove widget from the buffer.

(fn WIDGET)
(defalias 'widget-default-delete #[257 "\302
\303\"\302\304\"\302\305\"\302\306\"\302\307\"\302\310\"\311\211\312\313\"\210\314!\210\2030\315!\210\2038\315!\210
\203@\315!\210\211\203H\315
!\210W\203R|\210\316\211\223\210\316\211\223\210*\266\317 \207" [inhibit-read-only inhibit-modification-hooks widget-get :from :to :inactive :button-overlay :sample-overlay :doc-overlay t widget-apply :value-delete widget-children-value-delete delete-overlay nil widget-clear-undo] 10 (#$ . 47823)])
#@52 Recreate widget with new value.

(fn WIDGET VALUE)
(defalias 'widget-default-value-set #[514 "`\300\301\302\"!\300\301\303\"!
X\205*
X\205*
SY\203'
ZS\202*Z\212\301\302\"b\210\304\305\"\210\306\307#\210\304\310\"\210)\211\205f\211\311W\203[\301\303\"
\\Tb\207
\\\301\303\"S^b\207" [copy-marker widget-get :from :to widget-apply :delete widget-put :value :create 0] 10 (#$ . 48391)])
#@56 Wrap value in a list unless it is inline.

(fn WIDGET)
(defalias 'widget-default-value-inline #[257 "\300
\301\"\203\302
!\207\302
!C\207" [widget-get :inline widget-value] 4 (#$ . 48809)])
#@28 Get `:value'.

(fn WIDGET)
(defalias 'widget-default-default-get #[257 "\300
\301\"\207" [widget-get :value] 4 (#$ . 49007)])
#@42 Use tag or value for menus.

(fn WIDGET)
(defalias 'widget-default-menu-tag-get #[257 "\300
\301\"\206\300
\302\"\206\303\300\304\"!\207" [widget-get :menu-tag :tag widget-princ-to-string :value] 5 (#$ . 49139)])
#@67 Return t if this widget is active (user modifiable).

(fn WIDGET)
(defalias 'widget-default-active #[257 "\300
\301\"\206\"\300
\302\"?\205\"\300
\303\"\211?\206\304
\305\"\262
\205\"\306\207" [widget-get :always-active :inactive :parent widget-apply :active t] 5 (#$ . 49363)])
#@59 Make WIDGET inactive for user modifications.

(fn WIDGET)
(defalias 'widget-default-deactivate #[257 "\300
\301\302\"\301\303\"#\207" [widget-specify-inactive widget-get :from :to] 7 (#$ . 49653)])
#@71 Notify the parent when a widget changes.

(fn WIDGET &optional EVENT)
(defalias 'widget-default-action #[513 "\300\301\"\211\205\302
\303$\207" [widget-get :parent widget-apply :notify] 8 (#$ . 49859)])
#@65 Pass notification to parent.

(fn WIDGET CHILD &optional EVENT)
(defalias 'widget-default-notify #[770 "\300\"\207" [widget-default-action] 6 (#$ . 50073)])
#@60 Read an arbitrary value.

(fn WIDGET PROMPT VALUE UNBOUND)
(defalias 'widget-default-prompt-value #[1028 "\300!\207" [eval-minibuffer] 6 (#$ . 50238)])
#@397 Return the documentation string specified by WIDGET, or nil if none.
If WIDGET has a `:doc' property, that specifies the documentation string.
Otherwise, try the `:documentation-property' property.  If this
is a function, call it with the widget's value as an argument; if
it is a symbol, use this symbol together with the widget's value
as the argument to `documentation-property'.

(fn WIDGET)
(defalias 'widget-docstring #[257 "\300
\301\"\206)\300
\302\"\300\303\"\304!\203

!\266\202\202)
9\205'\305
\306#\266\202\211;\205R\211G\307V\205R\211\307H\310=\203C\211\311\312O\262
\313\314\"\203Q\211\307\211\224O\262
\211\207" [widget-get :doc :documentation-property :value functionp documentation-property t 0 42 1 nil string-match "\n+\\'"] 7 (#$ . 50398)])
(define-widget 'item 'default "Constant items for inclusion in other widgets." :convert-widget 'widget-value-convert-widget :value-create 'widget-item-value-create :value-delete 'ignore :value-get 'widget-value-value-get :match 'widget-item-match :match-inline 'widget-item-match-inline :action 'widget-item-action :format "%t\n")
#@62 Insert the printed representation of the value.

(fn WIDGET)
(defalias 'widget-item-value-create #[257 "\300\301\302\"p\"\207" [princ widget-get :value] 5 (#$ . 51509)])
#@21 

(fn WIDGET VALUE)
(defalias 'widget-item-match #[514 "\300\301\"
\232\207" [widget-get :value] 5 (#$ . 51686)])
#@20 

(fn WIDGET VALS)
(defalias 'widget-item-match-inline #[514 "\300\301\"\211<\205&\211GGX\205&\302\303G#\211\232\205$\211\302G\"B\262
\207" [widget-get :value seq-subseq 0] 8 (#$ . 51807)])
#@31 

(fn WIDGET &optional EVENT)
(defalias 'widget-item-action #[513 "\300\301$\207" [widget-apply :notify] 7 (#$ . 52013)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\315\316\317\320\321\322\323\322\324\325\326\327&\207" [custom-declare-variable widget-push-button-prefix funcall function #[0 "\300\207" ["["] 1 #1=""] "String used as prefix for buttons." :type string :group widget-button widget-push-button-suffix #[0 "\300\207" ["]"] 1 #1#] "String used as suffix for buttons." define-widget push-button item "A pushable button." :button-prefix #1# :button-suffix :value-create widget-push-button-value-create :format "%[%v%]"] 12)
#@66 Insert text representing the `on' and `off' states.

(fn WIDGET)
(defalias 'widget-push-button-value-create #[257 "\302\303\304\"!\206
\303
\305\"\303\306\"	Q
\203\307#\207\211c\207" [widget-push-button-prefix widget-push-button-suffix substitute-command-keys widget-get :tag :value :tag-glyph widget-image-insert] 8 (#$ . 52722)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\207" [custom-declare-variable widget-link-prefix funcall function #[0 "\300\207" ["["] 1 #1=""] "String used as prefix for links." :type string :group widget-button widget-link-suffix #[0 "\300\207" ["]"] 1 #1#] "String used as suffix for links."] 8)
#@35 Keymap used inside a link widget.
(defvar widget-link-keymap (byte-code "\302!\303
\304\305	\306\"#\210\303
\307\310#\210\303
\311\310#\210\207" [widget-keymap widget-global-map copy-keymap define-key [down-mouse-1] lookup-key [down-mouse-1] [down-mouse-2] widget-button-click [mouse-2]] 7) (#$ . 53426))
(byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317&\210\301\320\302\321\322\323%\207" [widget-link-keymap define-widget link item "An embedded link." :button-prefix widget-link-prefix :button-suffix widget-link-suffix :follow-link mouse-face :keymap :help-echo "Follow the link." :format "%[%t%]" info-link "A link to an info file." :action widget-info-link-action] 16)
#@70 Open the info node specified by WIDGET.

(fn WIDGET &optional EVENT)
(defalias 'widget-info-link-action #[513 "\300\301!!\207" [info widget-value] 5 (#$ . 54132)])
(define-widget 'url-link 'link "A link to a web page." :action 'widget-url-link-action)
#@64 Open the URL specified by WIDGET.

(fn WIDGET &optional EVENT)
(defalias 'widget-url-link-action #[513 "\300\301!!\207" [browse-url widget-value] 5 (#$ . 54391)])
(define-widget 'function-link 'link "A link to an Emacs function." :action 'widget-function-link-action)
#@69 Show the function specified by WIDGET.

(fn WIDGET &optional EVENT)
(defalias 'widget-function-link-action #[513 "\300\301!!\207" [describe-function widget-value] 5 (#$ . 54666)])
(define-widget 'variable-link 'link "A link to an Emacs variable." :action 'widget-variable-link-action)
#@69 Show the variable specified by WIDGET.

(fn WIDGET &optional EVENT)
(defalias 'widget-variable-link-action #[513 "\300\301!!\207" [describe-variable widget-value] 5 (#$ . 54958)])
(define-widget 'face-link 'link "A link to an Emacs face." :action 'widget-face-link-action)
#@69 Show the variable specified by WIDGET.

(fn WIDGET &optional EVENT)
(defalias 'widget-face-link-action #[513 "\300\301!!\207" [describe-face widget-value] 5 (#$ . 55238)])
(define-widget 'file-link 'link "A link to a file." :action 'widget-file-link-action)
#@65 Find the file specified by WIDGET.

(fn WIDGET &optional EVENT)
(defalias 'widget-file-link-action #[513 "\300\301!!\207" [find-file widget-value] 5 (#$ . 55503)])
(define-widget 'emacs-library-link 'link "A link to an Emacs Lisp library file." :action 'widget-emacs-library-link-action)
#@79 Find the Emacs library file specified by WIDGET.

(fn WIDGET &optional EVENT)
(defalias 'widget-emacs-library-link-action #[513 "\300\301\302!!!\207" [find-file locate-library widget-value] 6 (#$ . 55798)])
(define-widget 'emacs-commentary-link 'link "A link to Commentary in an Emacs Lisp library file." :action 'widget-emacs-commentary-link-action)
#@97 Find the Commentary section of the Emacs file specified by WIDGET.

(fn WIDGET &optional EVENT)
(defalias 'widget-emacs-commentary-link-action #[513 "\300\301!!\207" [finder-commentary widget-value] 5 (#$ . 56156)])
(define-widget 'editable-field 'default "An editable text field.\nNote: In an `editable-field' widget, the `%v' escape must be preceded\nby some other text in the `:format' string (if specified)." :convert-widget 'widget-value-convert-widget :keymap widget-field-keymap :format "%v" :help-echo "M-TAB: complete field; RET: enter value" :value "" :prompt-internal 'widget-field-prompt-internal :prompt-history 'widget-field-history :prompt-value 'widget-field-prompt-value :action 'widget-field-action :validate 'widget-field-validate :valid-regexp "" :error "Field's value doesn't match allowed forms" :value-create 'widget-field-value-create :value-set 'widget-field-value-set :value-delete 'widget-field-value-delete :value-get 'widget-field-value-get :match 'widget-field-match)
#@36 History of field minibuffer edits.
(defvar widget-field-history nil (#$ . 57161))
#@166 Read string for WIDGET prompting with PROMPT.
INITIAL is the initial input and HISTORY is a symbol containing
the earlier input.

(fn WIDGET PROMPT INITIAL HISTORY)
(defalias 'widget-field-prompt-internal #[1028 "\300#\207" [read-string] 8 (#$ . 57250)])
#@56 Prompt for a string.

(fn WIDGET PROMPT VALUE UNBOUND)
(defalias 'widget-field-prompt-value #[1028 "\300\301\300\302?\205\300\303#\304B\305\f\306\"%#\207" [widget-apply :value-to-external :prompt-internal :value-to-internal 0 widget-get :prompt-history] 15 (#$ . 57514)])
(defvar widget-edit-functions nil)
#@50 Move to next field.

(fn WIDGET &optional EVENT)
(defalias 'widget-field-action #[513 "\300\301!\210\302\303\"\207" [widget-forward 1 run-hook-with-args widget-edit-functions] 5 (#$ . 57841)])
#@60 Valid if the content matches `:valid-regexp'.

(fn WIDGET)
(defalias 'widget-field-validate #[257 "\300\301\302\"\303\304\"\"?\205\211\207" [string-match widget-get :valid-regexp widget-apply :value-get] 6 (#$ . 58041)])
#@64 Set an editable text field WIDGET to VALUE.

(fn WIDGET VALUE)
(defalias 'widget-field-value-set #[514 "\300!\301!\302!\205'
\205'\303
!\205'r\211q\210b\210\304Z!\210c)\207" [widget-field-start widget-field-text-end widget-field-buffer buffer-live-p delete-char] 8 (#$ . 58272)])
#@45 Create an editable text field.

(fn WIDGET)
(defalias 'widget-field-value-create #[257 "\302
\303\"\302\304\"`\305 \305 B\306\307#\210c\210\203*GW\203*\310\311GZ\"\210>\2044	B\211A`\312\223\210\313
A\312\"\210\204G\314c\210\211@\312\223\210\313
@\315\"\207" [widget-field-list widget-field-new widget-get :size :value make-marker widget-put :field-overlay insert-char 32 nil set-marker-insertion-type 10 t] 9 (#$ . 58569)])
#@72 Remove the widget from the list of active editing fields.

(fn WIDGET)
(defalias 'widget-field-value-delete #[257 "\302
\"\302
	\"\303
\304\"\305
!\205\306
!\207" [widget-field-list widget-field-new delq widget-get :field-overlay overlayp delete-overlay] 4 (#$ . 59018)])
#@185 Return current text in editing field.
Normally, trailing spaces within the editing field are truncated.
But if NO-TRUNCATE is non-nil, include them.

(fn WIDGET &optional NO-TRUNCATE)
(defalias 'widget-field-value-get #[513 "\300!
\203
\301!\202\302!\303!\304\305\"p\203M\203Mq\210\306\"\203I\307
\\W\203H

\310	\\\311\"I\210\211T\262
\202,\210
q\210\207\304\312\"\207" [widget-field-start widget-field-end widget-field-text-end widget-field-buffer widget-get :secret buffer-substring-no-properties 0 get-char-property secret :value] 14 (#$ . 59302)])
#@21 

(fn WIDGET VALUE)
(defalias 'widget-field-match #[514 "\211;\207" [] 3 (#$ . 59887)])
(byte-code "\301\302\303\304\305\306\307&\210\301\310\311\312\313\314\315\316\305\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351&#\207" [widget-text-keymap define-widget text editable-field "A multiline text area." :format "%{%t%}: %v" :keymap menu-choice default "A menu of options." :convert-widget widget-types-convert-widget :copy widget-types-copy "%[%t%]: %v" :case-fold t :tag "choice" :void (item :format "invalid (%t)\n") :value-create widget-choice-value-create :value-get widget-child-value-get :value-inline widget-child-value-inline :default-get widget-choice-default-get :mouse-down-action widget-choice-mouse-down-action :action widget-choice-action :error "Make a choice" :validate widget-choice-validate :match widget-choice-match :match-inline widget-choice-match-inline] 36)
#@62 Insert the first choice that matches the value.

(fn WIDGET)
(defalias 'widget-choice-value-create #[257 "\300
\301\"\300\302\"\300\303\"\304\211\211\211\2032\305\306\307	\f#C#\210\305\310#\210\305\303\304#\207\311\312\"\262\203\224@\262A\262
\203e\300\313\"\203Z\262\314\262
\202l@\262\315\262
\202l\262\315\262
\316#\2039\305\306\307#C#\210\305\310#\210\304\262\304\262\2029\205\264\300\317\"\305	\306\320\f\301$C#\210\305	\310#\262
\207" [widget-get :value :args :explicit-choice nil widget-put :children widget-create-child-value :choice widget-inline-p t :inline :match-inline :match widget-apply :void widget-create-child-and-convert] 17 (#$ . 60838)])
#@15 

(fn WIDGET)
(defalias 'widget-choice-default-get #[257 "\300\301\302\"@!\207" [widget-default-get widget-get :args] 5 (#$ . 61572)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable widget-choice-toggle funcall function #[0 "\300\207" [nil] 1 ""] "If non-nil, a binary choice will just toggle between the values.\nOtherwise, the user will explicitly have to choose between the values\nwhen he invoked the menu." :type boolean :group widgets] 8)
#@31 

(fn WIDGET &optional EVENT)
(defalias 'widget-choice-mouse-down-action #[513 "\302\303\"\302\304\"\305 \204\306\207
G\307W\203\306\207
GV\203!\306\207
G\307V\203*\310\207	\2036\211>\2036\306\207\310\207" [widget-menu-max-size widget-choice-toggle widget-get :args :choice display-popup-menus-p nil 2 t] 6 (#$ . 62064)])
#@31 

(fn WIDGET &optional EVENT)
(defalias 'widget-choice-action #[513 "\302\303\"\302\304\"\305\306\"\302\307\"\310\211\211\2033\305	\311\"\2043\312	!\305\313#\314\315#\266G\316U\203?\310\202\234G\317U\203M@\202\234	\203uG\320U\203u>\203u@=\203oA@\202\234@\202\234\203\221@\262A\262\305\306\"B
B\262
\202u\321\262\322\323!\n#\262
\203\302\203\255\314	\324#\210\325	\326!\"\210\327 \210\305	\330$\210)\266\331\332\"\207" [completion-ignore-case widget-choice-toggle widget-get :args :choice widget-apply :menu-tag-get :case-fold nil :validate widget-value :value-to-internal widget-put :value 0 1 2 t widget-choose reverse :explicit-choice widget-value-set widget-default-get widget-setup :notify run-hook-with-args widget-edit-functions] 15 (#$ . 62404)])
#@15 

(fn WIDGET)
(defalias 'widget-choice-validate #[257 "\300
\301\"\300\302\"=\203
\207\303\300\304\"@\305\"\207" [widget-get :void :choice widget-apply :children :validate] 5 (#$ . 63241)])
#@21 

(fn WIDGET VALUE)
(defalias 'widget-choice-match #[514 "\300\301\"\302\211\203!\211\204!@\262A\262\303\304#\262
\202\207" [widget-get :args nil widget-apply :match] 9 (#$ . 63440)])
#@20 

(fn WIDGET VALS)
(defalias 'widget-choice-match-inline #[514 "\300\301\"\302\211\203\211\204@\262A\262\303\"\262
\202\207" [widget-get :args nil widget-match-inline] 8 (#$ . 63643)])
(define-widget 'toggle 'item "Toggle between two states." :format "%[%v%]\n" :value-create 'widget-toggle-value-create :action 'widget-toggle-action :match #[514 "\300\207" [t] 3 "\n\n(fn WIDGET VALUE)"] :on "on" :off "off")
#@66 Insert text representing the `on' and `off' states.

(fn WIDGET)
(defalias 'widget-toggle-value-create #[257 "\300
!\301\302\203\303\202\304\"!\305\302\203\306\202\307\"!\310\206&\311\205.\312\313\"#\207" [widget-value substitute-command-keys widget-get :on :off widget-image-find :on-glyph :off-glyph widget-image-insert "" append (:ascent center)] 10 (#$ . 64073)])
#@31 

(fn WIDGET &optional EVENT)
(defalias 'widget-toggle-action #[513 "\300\301!?\"\210\302\303$\210\304\305\"\207" [widget-value-set widget-value widget-apply :notify run-hook-with-args widget-edit-functions] 7 (#$ . 64465)])
(define-widget 'checkbox 'toggle "A checkbox toggle." :button-suffix "" :button-prefix "" :format "%[%v%]" :on "[X]" :on-glyph "checked" :off "[ ]" :off-glyph "unchecked" :help-echo "Toggle this item." :action 'widget-checkbox-action)
#@95 Toggle checkbox, notify parent, and set active state of sibling.

(fn WIDGET &optional EVENT)
(defalias 'widget-checkbox-action #[513 "\300\"\210\301!\211\205!\302!\203\303
\304\"\210\202\303
\305\"\210\306 \207" [widget-toggle-action widget-get-sibling widget-value widget-apply :activate :deactivate widget-clear-undo] 6 (#$ . 64937)])
(define-widget 'checklist 'default "A multiple choice widget." :convert-widget 'widget-types-convert-widget :copy 'widget-types-copy :format "%v" :offset 4 :entry-format "%b %v" :greedy nil :value-create 'widget-checklist-value-create :value-get 'widget-checklist-value-get :validate 'widget-checklist-validate :match 'widget-checklist-match :match-inline 'widget-checklist-match-inline)
#@15 

(fn WIDGET)
(defalias 'widget-checklist-value-create #[257 "\300
!\301\302\"\211\211\203\211@\303\211\236#\210
A\266\202\202\210\304\305\301\305\"\237#\207" [widget-checklist-match-find widget-get :args widget-checklist-add-item widget-put :children] 10 (#$ . 65678)])
#@137 Create checklist item in WIDGET of type TYPE.
If the item is checked, CHOSEN is a cons whose cdr is the value.

(fn WIDGET TYPE CHOSEN)
(defalias 'widget-checklist-add-item #[771 "\302 \203\303\304\"\203\305\306\303\304\"\"\210\214\307\211``}\210\303\310\"\303\311\"\303\312\"\2060\303\313\"`\314\211\303	\315\"c\210b\210\316\317\314\307#\203\257\320\224f\321\322!\210\211\323\267\202\246\324c\266\202=\325\326\327\330\f??\n&\266\202\202=\204\202\331\n\n\"\332
\333\"\210\211\262
\202\240\334	\307\"\203\226\335\n\n\nA#\202\240\335\n\n\nA@#\262\210\202=\336\337\"\266\202=\211\203\275
\203\275\340\341#\210\211\203\313\340	\311B#\210
\205\330\340	\310	B#\266\206db\210+\207" [inhibit-modification-hooks inhibit-read-only widget--should-indent-p widget-get :indent insert-char 32 t :children :buttons :sibling-args :button-args nil :entry-format re-search-forward "%\\([bv%]\\)" 1 delete-char -2 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (37 82 98 89 118 108)) 37 apply widget-create-child-and-convert checkbox :value widget-create-child widget-apply :deactivate widget-inline-p widget-create-child-value error "Unknown escape `%c'" widget-put :button] 17 (#$ . 65968)])
#@20 

(fn WIDGET VALS)
(defalias 'widget-checklist-match #[514 "\211<\205\300\"A?\207" [widget-checklist-match-inline] 5 (#$ . 67245)])
#@20 

(fn WIDGET VALS)
(defalias 'widget-checklist-match-inline #[514 "\300\301\"\302\300\303\"!\304\211\203X\305\"\211\2035\306
\"\307@\"\262\211A\262\310\"\262\266\202\f\203J\307@C\"\262A\262\210\202\f\307\"\262\304\262\210\202\f

B\207" [widget-get :greedy copy-sequence :args nil widget-checklist-match-up widget-match-inline append delq] 11 (#$ . 67387)])
#@113 Find the vals which match a type in the checklist.
Return an alist of (TYPE MATCH).

(fn WIDGET &optional VALS)
(defalias 'widget-checklist-match-find #[513 "\211\204\n\300\301\"\262
\300\302\"\303\300\304\"!\305\203P\306\"\211\203=\307
\"

@BB\262\211A\262\310\"\262\266\202\203IA\262\210\202\305\262\210\202\207" [widget-get :value :greedy copy-sequence :args nil widget-checklist-match-up widget-match-inline delq] 10 (#$ . 67786)])
#@68 Return the first type from ARGS that matches VALS.

(fn ARGS VALS)
(defalias 'widget-checklist-match-up #[514 "\300\211\203\211\204@\262A\262\301\"\262
\202\211\205 
\207" [nil widget-match-inline] 7 (#$ . 68257)])
#@15 

(fn WIDGET)
(defalias 'widget-checklist-value-get #[257 "\300
\301\"\302\211\203'@\262A\262\303\300\304\"!\203\305
\306\307\"\"\262
\202\207" [widget-get :children nil widget-value :button append widget-apply :value-inline] 9 (#$ . 68492)])
#@15 

(fn WIDGET)
(defalias 'widget-checklist-validate #[257 "\300
\301\"\302\211\211\203,\211\204,@\262A\262\300\303\"\262\304!\205'\305\306\"\262
\202\207" [widget-get :children nil :button widget-value widget-apply :validate] 8 (#$ . 68753)])
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\311\312\313\314&\210\300\315\316\317\320\321\313\322\323\324\325\324\326\327\330\331\332\333\334\335&\207" [define-widget option checklist "An widget with an optional item." :inline t choice-item item "Button items that delegate action events to their parents." :action widget-parent-action :format "%[%t%] \n" radio-button toggle "A radio button for use in the `radio' widget." :notify widget-radio-button-notify "%[%v%]" :button-suffix "" :button-prefix :on "(*)" :on-glyph "radio-checked" :off "( )" :off-glyph "radio"] 20)
#@37 

(fn WIDGET CHILD &optional EVENT)
(defalias 'widget-radio-button-notify #[770 "\300\301\302\"\303$\207" [widget-apply widget-get :parent :action] 8 (#$ . 69602)])
(define-widget 'radio-button-choice 'default "Select one of multiple options." :convert-widget 'widget-types-convert-widget :copy 'widget-types-copy :offset 4 :format "%v" :entry-format "%b %v" :value-create 'widget-radio-value-create :value-get 'widget-radio-value-get :value-inline 'widget-radio-value-inline :value-set 'widget-radio-value-set :error "You must push one of the buttons" :validate 'widget-radio-validate :match 'widget-choice-match :match-inline 'widget-choice-match-inline :action 'widget-radio-action)
#@15 

(fn WIDGET)
(defalias 'widget-radio-value-create #[257 "\300
\301\"\302
\205
@\262

A\262\303\"\210\202\207" [widget-get :args nil widget-radio-add-item] 6 (#$ . 70297)])
#@84 Add to radio widget WIDGET a new radio button item of type TYPE.

(fn WIDGET TYPE)
(defalias 'widget-radio-add-item #[514 "\302 \203\303\304\"\203\305\306\303\304\"\"\210\214\307\211``}\210\303\310\"\303\311\"\303\312\"\303\313\"\2064\303\314\"`\303\315\"?\205E\316\317#\320\211\303\n\321\"c\210b\210\322\323\320\307#\203\255\324\224f\325\326!\210\211\327\267\202\244\330c\266\202Q\331\332\f\333\310??&\266\202\202Q\203\217\334#\202\225\335\"\262\204\251\316\336\"\266\202Q\337\340\"\210\210\202Q\203\271\341\n\315#\210\211\203\316\341\342#\210\341\n\312C\244#\210
\203\335\341\n\311	C\244#\210
\266\210db\210+\207" [inhibit-modification-hooks inhibit-read-only widget--should-indent-p widget-get :indent insert-char 32 t :value :children :buttons :sibling-args :button-args :choice widget-apply :match nil :entry-format re-search-forward "%\\([bv%]\\)" 1 delete-char -2 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (37 102 98 109 118 128)) 37 apply widget-create-child-and-convert radio-button widget-create-child-value widget-create-child :deactivate error "Unknown escape `%c'" widget-put :button] 18 (#$ . 70483)])
#@15 

(fn WIDGET)
(defalias 'widget-radio-value-get #[257 "\300
!\211\205\n\301
!\207" [widget-radio-chosen widget-value] 4 (#$ . 71719)])
#@70 Return the widget representing the chosen radio button.

(fn WIDGET)
(defalias 'widget-radio-chosen #[257 "\300
\301\"\302\211\203%@\262A\262\303\300\304\"\305\"\203
\262
\302\262\202\207" [widget-get :children nil widget-apply :button :value-get] 8 (#$ . 71861)])
#@15 

(fn WIDGET)
(defalias 'widget-radio-value-inline #[257 "\300
\301\"\302\211\203(@\262A\262\303\300\304\"\305\"\203\303\306\"\262
\302\262\202\207" [widget-get :children nil widget-apply :button :value-get :value-inline] 8 (#$ . 72144)])
#@21 

(fn WIDGET VALUE)
(defalias 'widget-radio-value-set #[514 "\300\301\"\302\211\205G@\262A\262\300\303\"
?\205!\304\305#\306\"\210\211\2038\306\"\210\304\307\"\210\202=\304\310\"\210\206B\211\266\203\202\207" [widget-get :children nil :button widget-apply :match widget-value-set :activate :deactivate] 10 (#$ . 72402)])
#@15 

(fn WIDGET)
(defalias 'widget-radio-validate #[257 "\300
\301\"\302\211\211\203&
\204&@\262A\262\300\303\"\262
\304
\305\"\262\202
\203/\304\306\"\207\207" [widget-get :children nil :button widget-apply :value-get :validate] 8 (#$ . 72754)])
#@27 

(fn WIDGET CHILD EVENT)
(defalias 'widget-radio-action #[771 "\300\301\"\300\302\"\303>\203G\203G@\262
A\262\300
\304\"
=\2033\305
\306\"\210\307\310\"\266\202\311
!\203C\305
\303\"\210\307\312\"\210\210\202\266\307\313$\207" [widget-get :children :buttons nil :button widget-value-set t widget-apply :activate widget-value :deactivate :notify] 10 (#$ . 73018)])
(define-widget 'insert-button 'push-button "An insert button for the `editable-list' widget." :tag "INS" :help-echo #[257 "\300\211\301\"\302\"\203\f\303\207\304\207" [widget-get :parent :last-deleted "Insert back the last deleted item from this list, at this position." "Insert a new item into the list at this position."] 5 "\n\n(fn WIDGET)"] :action 'widget-insert-button-action)
#@31 

(fn WIDGET &optional EVENT)
(defalias 'widget-insert-button-action #[513 "\300\301\302\"\303\301\304\"#\207" [widget-apply widget-get :parent :insert-before :widget] 8 (#$ . 73798)])
(define-widget 'delete-button 'push-button "A delete button for the `editable-list' widget." :tag "DEL" :help-echo "Delete this item from the list, saving it for later reinsertion." :action 'widget-delete-button-action)
#@31 

(fn WIDGET &optional EVENT)
(defalias 'widget-delete-button-action #[513 "\300\301\302\"\303\301\304\"#\207" [widget-apply widget-get :parent :delete-at :widget] 8 (#$ . 74211)])
(define-widget 'editable-list 'default "A variable list of widgets of the same type." :convert-widget 'widget-types-convert-widget :copy 'widget-types-copy :offset 12 :format "%v%i\n" :format-handler 'widget-editable-list-format-handler :entry-format "%i %d %v" :value-create 'widget-editable-list-value-create :value-get 'widget-editable-list-value-get :validate 'widget-children-validate :match 'widget-editable-list-match :match-inline 'widget-editable-list-match-inline :insert-before 'widget-editable-list-insert-before :delete-at 'widget-editable-list-delete-at)
#@22 

(fn WIDGET ESCAPE)
(defalias 'widget-editable-list-format-handler #[514 "\211\300=\203%\301 \203\302\303\"\203\304\305\302\303\"\"\210\306\307\310\302\311\"$\207\312\"\207" [105 widget--should-indent-p widget-get :indent insert-char 32 apply widget-create-child-and-convert insert-button :append-button-args widget-default-format-handler] 9 (#$ . 74969)])
#@15 

(fn WIDGET)
(defalias 'widget-editable-list-value-create #[257 "\300
\301\"\300\302\"@\303\304\305\306 #\210\307\300\305\"\310\"\210\203K\311\"\211\203D\312\313\310\"\2033@\2026@@\310#B\262\211A\262\210\202\303\262\210\202\304\314\237#\207" [widget-get :value :args nil widget-put :value-pos point-marker set-marker-insertion-type t widget-match-inline widget-editable-list-entry-create widget-inline-p :children] 10 (#$ . 75345)])
#@15 

(fn WIDGET)
(defalias 'widget-editable-list-value-get #[257 "\300\301\302\303\304\305\"\"\"\207" [apply append mapcar #[257 "\300
\301\"\207" [widget-apply :value-inline] 4 "\n\n(fn CHILD)"] widget-get :children] 8 (#$ . 75809)])
#@21 

(fn WIDGET VALUE)
(defalias 'widget-editable-list-match #[514 "\211<\205\300\"A?\207" [widget-editable-list-match-inline] 5 (#$ . 76048)])
#@21 

(fn WIDGET VALUE)
(defalias 'widget-editable-list-match-inline #[514 "\300\301\"@\302\303\203-
\203-\304\"\211\203&\305@\"\262\211A\262\210\202\303\262\210\202\211B\207" [widget-get :args t nil widget-match-inline append] 9 (#$ . 76199)])
#@265 Insert a new widget as a child of WIDGET.

If there is a recently deleted child, the new widget is that deleted child.
Otherwise, the new widget is the default child of WIDGET.

The new widget gets inserted at the position of the BEFORE child.

(fn WIDGET BEFORE)
(defalias 'widget-editable-list-insert-before #[514 "\212\302\303\"\302\304\"\211\205\211
A\262\242\305\304#\210\262
\306\211\203,\302\307\"b\210\2022\302\310\"b\210\311\205A\312\313\302\314\"##\302
\307\"\302\315\"W\203[\302\315\"\302\307\"\316\223\210@=\203o\305\303B#\266\202\206A@=\204~A\262\202o
AB\241\266*\266)\317 \210\312\320#\207" [inhibit-modification-hooks inhibit-read-only widget-get :children :last-deleted widget-put t :entry-from :value-pos widget-editable-list-entry-create widget-apply :value-to-external :value :from nil widget-setup :notify] 12 (#$ . 76464)])
#@156 Delete the widget CHILD from the known children of widget WIDGET.

Save CHILD into the :last-deleted list, so it can be inserted later.

(fn WIDGET CHILD)
(defalias 'widget-editable-list-delete-at #[514 "\302
\303\304\305\"#\210\306\307\"

B\262
\302\307#\266\212\310\306\311\"!\312\313\211
\203N
@\262

A\262\306
\314\"=\203%\302\311\315\306	\311\"\"#\210\316
!\210\202%*\266\306
\317\"\306\320\"\313\211\316!\210

|\210
\312\211\223\210\211\312\211\223\210*\266\302\321\315\306\321\"\"#\210)\322 \210\304\323#\207" [inhibit-modification-hooks inhibit-read-only widget-put :value widget-apply :value-get widget-get :last-deleted copy-sequence :buttons nil t :widget delq widget-delete :entry-from :entry-to :children widget-setup :notify] 12 (#$ . 77363)])
#@26 

(fn WIDGET VALUE CONV)
(defalias 'widget-editable-list-entry-create #[771 "\302\303\"@\304\211\211\214\305\211``}\210\212\306 \203(\302\307\"\203(\310\311\302	\307\"\"\210\302\312\"c\210)\313\314\304\305#\203\230\315\224f\316\317!\210\211\320\267\202\217\321c\266\2020\322\323	\324\302\f\325\"$\266\202\2020\322\323	\326\302\f\327\"$\262\210\2020\203\330	#\262\210\2020\330\331!#\262\210\2020\332\333\"\266\2020\302\334\"
\203\246

B\262
\203\257
B\262
\335\334#\266\306\305!\203\316\302\307\"\203\316\310\311\302	\307\"\"\210\336 \337 \340\305\"\210\340
\304\"\210\335\341#\210\335\342#\266db\210+\211\203\367\335
\343#\210
\203

\335\343#\210\207" [inhibit-modification-hooks inhibit-read-only widget-get :args nil t widget--should-indent-p :indent insert-char 32 :entry-format re-search-forward "%\\(.\\)" 1 delete-char -2 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (37 69 105 76 100 92 118 109)) 37 apply widget-create-child-and-convert insert-button :insert-button-args delete-button :delete-button-args widget-create-child-value widget-default-get error "Unknown escape `%c'" :buttons widget-put point-min-marker point-max-marker set-marker-insertion-type :entry-from :entry-to :widget] 15 (#$ . 78155)])
(define-widget 'group 'default "A widget which groups other widgets inside." :convert-widget 'widget-types-convert-widget :copy 'widget-types-copy :format ":\n%v" :value-create 'widget-group-value-create :value-get 'widget-editable-list-value-get :default-get 'widget-group-default-get :validate 'widget-children-validate :match 'widget-group-match :match-inline 'widget-group-match-inline)
#@15 

(fn WIDGET)
(defalias 'widget-group-value-create #[257 "\300
\301\"\300\302\"\303\211\211\203c@\262A\262\304\"\262
A\262\305 \2037\300\306\"\2037\307\310\300\306\"\"\210
\204C\311\"\202\\\312\313\"\203T\314@#\202\\\314@@#
B\262
\202\315\316\237#\207" [widget-get :args :value nil widget-match-inline widget--should-indent-p :indent insert-char 32 widget-create-child widget-inline-p t widget-create-child-value widget-put :children] 11 (#$ . 79875)])
#@15 

(fn WIDGET)
(defalias 'widget-group-default-get #[257 "\300\301\302\303\"\"\207" [mapcar widget-default-get widget-get :args] 6 (#$ . 80372)])
#@20 

(fn WIDGET VALS)
(defalias 'widget-group-match #[514 "\211<\205\300\"\211\205\211A?\262
\207" [widget-group-match-inline] 5 (#$ . 80524)])
#@20 

(fn WIDGET VALS)
(defalias 'widget-group-match-inline #[514 "\300\301\"\302\211\211\2035@\262A\262\303\"\211\262\203,\304
@\"\262

A\262\202\302\262\302\262\202
\205<\211B\207" [widget-get :args nil widget-match-inline append] 9 (#$ . 80677)])
(byte-code "\300\301\302\303\304\305\306\307\310\307\311\312\313\314\315\316\317\320\321\322\323\324\325\326&\210\327\322\330\"\210\300\331\332\333\334\335\336\337\323\340&	\207" [define-widget visibility item "An indicator and manipulator for hidden items.\n\nThe following properties have special meanings for this widget:\n:on-glyph  Image filename or spec to display when the item is visible.\n:on        Text shown if the \"on\" image is nil or cannot be displayed.\n:off-glyph Image filename or spec to display when the item is hidden.\n:off       Text shown if the \"off\" image is nil cannot be displayed." :format "%[%v%]" :button-prefix "" :button-suffix :on-glyph "down" :on "Hide" :off-glyph "right" :off "Show" :value-create widget-visibility-value-create :action widget-toggle-action :match #[514 "\300\207" [t] 3 "\n\n(fn WIDGET VALUE)"] defalias widget-toggle-value-create documentation-link link "Link type used in documentation strings." :tab-order -1 :help-echo "Describe this symbol" widget-documentation-link-action] 24)
#@105 Display documentation for WIDGET's value.  Ignore optional argument EVENT.

(fn WIDGET &optional EVENT)
(defalias 'widget-documentation-link-action #[513 "\300\301\"\302
!\303
!\203\304
!\203\305\306\307!\310Q!\207\303
!\203&\311
!\207\312
!\2030\313
!\207\314
!\203:\315
!\207\304
!\204F\211\316N\203J\317
!\207\320\321\"\207" [widget-get :value intern fboundp boundp apropos "\\`" regexp-quote "\\'" describe-function facep describe-face featurep describe-package variable-documentation describe-variable message "No documentation available for %s"] 8 (#$ . 81995)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\300\316\302\303\317DD\320\306\303\321\322\310\311&	\210\300\323\302\303\324DD\325\306\326\310\311&\207" [custom-declare-variable widget-documentation-links funcall function #[0 "\300\207" [t] 1 #1=""] "Add hyperlinks to documentation strings when non-nil." :type boolean :group widget-documentation widget-documentation-link-regexp #[0 "\300\207" ["['`‘]\\([^\n `'‘’]+\\)['’]"] 1 #1#] "Regexp for matching potential links in documentation strings.\nThe first group should be the link itself." regexp widget-documentation-link-p #[0 "\300\207" [intern-soft] 1 #1#] "Predicate used to test if a string is useful as a link.\nThe value should be a function.  The function will be called with one\nargument, a string, and should return non-nil if there should be a\nlink for that string." :options (widget-documentation-link-p) widget-documentation-link-type #[0 "\300\207" [documentation-link] 1 #1#] "Widget type used for links in documentation strings." symbol] 10)
#@23 

(fn WIDGET FROM TO)
(defalias 'widget-documentation-link-add #[771 "\306#\210\205L	\307\310\"\311\305!\n\211\212b\210\312\313#\203C\314\315!\315\224\315\225!\203>\316\317%B\262\266\202)\320\310#+\266\202\207" [widget-documentation-links widget-documentation-link-regexp widget-documentation-face widget-button-pressed-face widget-button-face widget-mouse-face widget-specify-doc widget-get :buttons default-value re-search-forward t match-string 1 widget-convert-button :value widget-put widget-documentation-link-p widget-documentation-link-type] 14 (#$ . 83664)])
(define-widget 'documentation-string 'item "A documentation string." :format "%v" :action 'widget-documentation-string-action :value-create 'widget-documentation-string-value-create :visibility-widget 'visibility)
#@15 

(fn WIDGET)
(defalias 'widget-documentation-string-value-create #[257 "\300\301!!\302\303\"\302\211\304\"\305\"`\306\307\"\203\252\310\211\224O\310\225\311O\311\211\312!\210\313\261\210\314	`#\210\315	\302\316\"\317\320\321\322\323\324\325\326\327\330&
\262\203\236\331c\210`\262\203j\310U\204j\332\313\"\210c\210`\262
\314	#\210\203\236\310V\203\236\212\214
}\210eb\210\333\307\311\326#\203\235\312!\210\202\215*\334	\335C#\266	\202\270\312!\210c\210\314`#\266\331c\207" [substitute-command-keys widget-value widget-get :indent :parent :documentation-shown string-match "\n" 0 nil widget-documentation-string-indent-to 32 widget-documentation-link-add widget-create-child-and-convert :visibility-widget :help-echo "Show or hide rest of the documentation." :on "Hide" :off "More" :always-active t :action widget-parent-action 10 insert-char search-forward widget-put :buttons] 23 (#$ . 84482)])
#@12 

(fn COL)
(defalias 'widget-documentation-string-indent-to #[257 "\211\247\205\211\300V\205`
j\210\301
`\302\303\304E$\262
\207" [0 put-text-property display space :align-to] 9 (#$ . 85440)])
#@28 

(fn WIDGET &rest IGNORE)
(defalias 'widget-documentation-string-action #[385 "\300\301\"\302
\303\300\303\"?#\266\304\305!\"\207" [widget-get :parent widget-put :documentation-shown widget-value-set widget-value] 9 (#$ . 85645)])
#@347 Insert a new `documentation-string' widget based on WIDGET.
The new widget becomes a child of WIDGET, and is also added to
its `:buttons' list.  The documentation string is found from
WIDGET using the function `widget-docstring'.
Optional ARGS specifies additional keyword arguments for the
`documentation-string' widget.

(fn WIDGET &rest ARGS)
(defalias 'widget-add-documentation-string-button #[385 "\300!\301\302\"\301\303\"\205Dh\304=\203
\203\305\306\"\210\211\247\204*\211\203*\307\262
\310\311\312\313	\314\302\f\fC\244&\301	\311\"B#\207" [widget-docstring widget-get :indent :documentation-indent 10 insert-char 32 0 widget-put :buttons apply widget-create-child-and-convert documentation-string] 16 (#$ . 85889)])
(define-widget 'const 'item "An immutable sexp." :prompt-value 'widget-const-prompt-value :format "%t\n%d")
#@36 

(fn WIDGET PROMPT VALUE UNBOUND)
(defalias 'widget-const-prompt-value #[1028 "\300!\207" [widget-value] 6 (#$ . 86747)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\305\306\312&\210\300\313\314\315\316\317\304\320\321\313&	\207" [define-widget function-item const "An immutable function name." :format "%v\n%h" :documentation-property #[257 "\3001\n\301
\302\"0\207\210\303\207" [(error) documentation t nil] 4 "\n\n(fn SYMBOL)"] variable-item "An immutable variable name." variable-documentation other sexp "Matches any value, but doesn't let the user edit the value.\nThis is useful as last item in a `choice' widget.\nYou should use this widget type with a default value,\nas in (other DEFAULT) or (other :tag \"NAME\" DEFAULT).\nIf the user selects this alternative, that specifies DEFAULT\nas the value." :tag "Other" "%t\n" :value] 10)
#@51 History of input to `widget-string-prompt-value'.
(defvar widget-string-prompt-value-history nil (#$ . 87627))
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313&\210\300\314\301\315\316\317\320\321\304\322&	\207" [define-widget string editable-field "A string." :tag "String" :format "%{%t%}: %v" :complete #[257 "\300\301!\210\212\302\303!A@)\211\304!W\203\305\306!\207\307 \207" [require ispell ispell-get-word nil widget-field-start message "No word to complete inside field" ispell-complete-word] 5 "\n\n(fn WIDGET)"] :prompt-history widget-string-prompt-value-history regexp "A regular expression." :match widget-regexp-match :validate widget-regexp-validate "Regexp"] 12)
#@21 

(fn WIDGET VALUE)
(defalias 'widget-regexp-match #[514 "\211;\205\3001\301
\302\"\210\3030\207\210\304\207" [(error) string-match "" t nil] 5 (#$ . 88326)])
#@64 Check that the value of WIDGET is a valid regexp.

(fn WIDGET)
(defalias 'widget-regexp-validate #[257 "\3001\301\302!\303\"\210\3040\207\305\306\307!#\210
\207" [(error) string-match widget-value "" nil widget-put :error error-message-string] 7 (#$ . 88495)])
(byte-code "\301\302\303\304\305\306\307?\"\310\311\312\313\314\315\316\317\320\321&\207" [read-file-name-completion-ignore-case define-widget file string "A file widget.\nIt reads a file name from an editable text field." :completions completion-table-case-fold completion-file-name-table :match #[514 "\211;\205\300\301\"?\206\302
!\207" [widget-get :must-match file-exists-p] 5 "\n\n(fn WIDGET VALUE)"] :validate #[257 "\300
!\301\302#?\205\303\304\305\306\"#\210
\207" [widget-value widget-apply :match widget-put :error format "File %s does not exist"] 8 "\n\n(fn WIDGET)"] :prompt-value widget-file-prompt-value :format "%{%t%}: %v" :tag "File"] 16)
#@36 

(fn WIDGET PROMPT VALUE UNBOUND)
(defalias 'widget-file-prompt-value #[1028 "\300
\203\301!\202%\302!\303!\304\305\"\301\306\"\307%\266\203!\207" [abbreviate-file-name read-file-name file-name-directory file-name-nondirectory widget-get :must-match format-prompt nil] 14 (#$ . 89436)])
(byte-code "\301\302\303\304\305\306\307\310\311?\"\312\313$\314\315&\207" [read-file-name-completion-ignore-case define-widget directory file "A directory widget.\nIt reads a directory name from an editable text field." :completions apply-partially completion-table-with-predicate completion-table-case-fold completion-file-name-table directory-name-p strict :tag "Directory"] 10)
#@51 History of input to `widget-symbol-prompt-value'.
(defvar widget-symbol-prompt-value-history nil (#$ . 90130))
(define-widget 'symbol 'editable-field "A Lisp symbol." :value nil :tag "Symbol" :format "%{%t%}: %v" :match #[514 "\2119\207" [] 3 "\n\n(fn WIDGET VALUE)"] :completions obarray :prompt-internal 'widget-symbol-prompt-internal :prompt-match 'symbolp :prompt-history 'widget-symbol-prompt-value-history :value-to-internal #[514 "\2119\203	\300
!\207\207" [symbol-name] 4 "\n\n(fn WIDGET VALUE)"] :value-to-external #[514 "\211;\203	\300
!\207\207" [intern] 4 "\n\n(fn WIDGET VALUE)"])
#@38 

(fn WIDGET PROMPT INITIAL HISTORY)
(defalias 'widget-symbol-prompt-internal #[1028 "\301\302\303\"\304&\211;\203\211G\305U\204\207\306\307!\207" [obarray completing-read widget-get :prompt-match nil 0 error "No value"] 11 (#$ . 90732)])
#@53 History of input to `widget-function-prompt-value'.
(defvar widget-function-prompt-value-history nil (#$ . 90990))
(byte-code "\301\302\303\304\305\306\307\310\311$\312\313\314\315\316\310\317\320\321\322\323\324\325\326\327\330\331\332&\207" [obarray define-widget function restricted-sexp "A Lisp function." :completions apply-partially completion-table-with-predicate fboundp strict :prompt-value widget-field-prompt-value :prompt-internal widget-symbol-prompt-internal :prompt-match :prompt-history widget-function-prompt-value-history :action widget-field-action :match-alternatives (functionp) :validate #[257 "\300\301!!?\205\302
\303\304\305\301!\"#\210\211\207" [functionp widget-value widget-put :error format "Invalid function: %S"] 8 "\n\n(fn WIDGET)"] :value ignore :tag "Function"] 24)
#@53 History of input to `widget-variable-prompt-value'.
(defvar widget-variable-prompt-value-history nil (#$ . 91803))
(byte-code "\301\302\303\304\305\306\307\310\311\312\313\306\314$\315\316&\210\301\317\303\320\321\322\315\323\324\325\307\326\327\330\331\332\311\312\313\333\314$\334\335\336\337\305\333&\207" [obarray define-widget variable symbol "A Lisp variable." :prompt-match boundp :prompt-history widget-variable-prompt-value-history :completions apply-partially completion-table-with-predicate strict :tag "Variable" coding-system "A MULE coding-system." :format "%{%t%}: %v" "Coding system" :base-only nil coding-system-value-history :prompt-value widget-coding-system-prompt-value :action widget-coding-system-action coding-system-p :validate #[257 "\300\301!!?\205\302
\303\304\305\301!\"#\210\211\207" [coding-system-p widget-value widget-put :error format "Invalid coding system: %S"] 8 "\n\n(fn WIDGET)"] :value undecided] 24)
#@71 Read coding-system from minibuffer.

(fn WIDGET PROMPT VALUE UNBOUND)
(defalias 'widget-coding-system-prompt-value #[1028 "\301\302\"\203\303\304\305\"\306\307\310\311!\"\312\211\211&!\207\313\305\"\"\207" [coding-system-history widget-get :base-only intern completing-read format-prompt mapcar list coding-system-list t nil read-coding-system] 12 (#$ . 92759)])
#@31 

(fn WIDGET &optional EVENT)
(defalias 'widget-coding-system-action #[513 "\300\301\302\"\303!\304$\305\"\210\301\306$\210\307 \207" [widget-coding-system-prompt-value widget-apply :menu-tag-get widget-value t widget-value-set :notify widget-setup] 8 (#$ . 93138)])
#@57 History of input to `widget-key-sequence-prompt-value'.
(defvar widget-key-sequence-prompt-value-history nil (#$ . 93419))
#@42 Default value for an empty key sequence.
(defvar widget-key-sequence-default-value [ignore] (#$ . 93548))
(defvar widget-key-sequence-map (byte-code "\301 \302
\"\210\303
\304\305#\210\207" [widget-field-keymap make-sparse-keymap set-keymap-parent define-key [(control 113)] widget-key-sequence-read-event] 5))
(define-widget 'key-sequence 'restricted-sexp "A key sequence." :prompt-value 'widget-field-prompt-value :prompt-internal 'widget-symbol-prompt-internal :prompt-history 'widget-key-sequence-prompt-value-history :action 'widget-field-action :match-alternatives '(stringp vectorp) :format "%{%t%}: %v" :validate 'widget-key-sequence-validate :value-to-internal 'widget-key-sequence-value-to-internal :value-to-external 'widget-key-sequence-value-to-external :value widget-key-sequence-default-value :keymap widget-key-sequence-map :help-echo "C-q: insert KEY, EVENT, or CODE; RET: enter value" :tag "Key sequence")
#@11 

(fn EV)
(defalias 'widget-key-sequence-read-event #[257 "\303\304!>\205\f\305\306\307\"\310!\205\311\312!\"\250\203^\313X\203-\313\314	^\\W\204?\315\227X\203^\227\316\317	^\\W\203^\nB\320\321\322	\"!\262\306\262
\250\203^\323!\204^\324!c\210\325C!\262\326
!\203\203\325
\327HC!\262
\330\321\331\211$!\203\203\211\262\306\262`Sf\332U\203\217\333\202\220\334\334\261\210
\205\240\325C!\334\261\207" [local-function-key-map read-quoted-char-radix unread-command-events down event-modifiers read-key nil t keymapp lookup-key vector 48 10 97 87 36 read-quoted-char format "Enter code (radix %d)" characterp char-to-string key-description arrayp 0 y-or-n-p "Key %s is translated to %s -- use %s? " 32 "" " "] 9 (#$ . 94479) (byte-code "\302\303\304\305\302\"*C\207" [quit-flag inhibit-quit t nil read-key "Insert KEY, EVENT, or CODE: "] 3)])
#@15 

(fn WIDGET)
(defalias 'widget-key-sequence-validate #[257 "\300
!;\206\f\301\300!!?\205\302
\303\304\305\300!\"#\210\211\207" [widget-value vectorp widget-put :error format "Invalid key sequence: %S"] 8 (#$ . 95365)])
#@21 

(fn WIDGET VALUE)
(defalias 'widget-key-sequence-value-to-internal #[514 "\301\302#\203\211\232\203\303\207\304
!\207\207" [widget-key-sequence-default-value widget-apply :match "" key-description] 6 (#$ . 95597)])
#@21 

(fn WIDGET VALUE)
(defalias 'widget-key-sequence-value-to-external #[514 "\211;\203\301\302\"\203\207\303
!\207\207" [widget-key-sequence-default-value string-match "\\`[[:space:]]*\\'" read-kbd-macro] 5 (#$ . 95827)])
(define-widget 'sexp 'editable-field "An arbitrary Lisp expression." :tag "Lisp expression" :format "%{%t%}: %v" :value nil :validate 'widget-sexp-validate :match #[514 "\300\207" [t] 3 "\n\n(fn WIDGET VALUE)"] :value-to-internal 'widget-sexp-value-to-internal :value-to-external #[514 "\300
!\207" [read] 4 "\n\n(fn WIDGET VALUE)"] :prompt-history 'widget-sexp-prompt-value-history :prompt-value 'widget-sexp-prompt-value)
#@21 

(fn WIDGET VALUE)
(defalias 'widget-sexp-value-to-internal #[514 "\2119\203\300
!\202\301
!\302\303\"\203\211\304\305O\262
\202\302\303\"\204,\211G\306V\2030\307
P\207\207" [prin1-to-string pp-to-string string-match "\n\\'" 0 -1 40 "\n"] 6 (#$ . 96484)])
#@15 

(fn WIDGET)
(defalias 'widget-sexp-validate #[257 "\300\301\302\"r\211q\210\303\304\"\216\305\306\"c\210eb\210\307\3101d\3111Z\312\313!\210m\203-\314\262
\202=\305\315\316p!#\204=\317\320\"\262
\312\313!\210m?\205T\211?\205T\321\322`d{\"\211\26200\210\202l0\323\211\262\266\202l\324
!\211\262\266\211\205w\325\326#\210\262
*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] widget-apply :value-get nil (error) (end-of-file) skip-syntax-forward "-" "Empty sexp -- use nil?" :match read widget-get :type-error format "Junk at end of expression: %s" "Unbalanced sexp" error-message-string widget-put :error] 8 (#$ . 96759)])
#@49 History of input to `widget-sexp-prompt-value'.
(defvar widget-sexp-prompt-value-history nil (#$ . 97480))
#@36 

(fn WIDGET PROMPT VALUE UNBOUND)
(defalias 'widget-sexp-prompt-value #[1028 "\300?\205\f\301!\302B\303\304\"#\305
!\211AGU\204&\306\307A\310O\"\210\211@\207" [read-string prin1-to-string 0 widget-get :prompt-history read-from-string error "Junk at end of expression: %s" nil] 11 (#$ . 97593)])
(define-widget 'restricted-sexp 'sexp "A Lisp expression restricted to values that match.\nTo use this type, you must define :match or :match-alternatives." :type-error "The specified value is not valid" :match 'widget-restricted-sexp-match :value-to-internal #[514 "\300\301#\203
\302\"\207\207" [widget-apply :match widget-sexp-value-to-internal] 6 "\n\n(fn WIDGET VALUE)"] :value-to-external #[514 "\211;\204\300\301\302\303\211@\262
\304\305\"\304	\306\"%\307#\210\310
!\207" [display-warning widget-bad-default-value format-message "\nA widget of type %S has a bad default value.\nvalue: %S\nmatch function: %S\nmatch-alternatives: %S" widget-get :match :match-alternatives :warning read] 12 "\n\n(fn WIDGET VALUE)"])
#@21 

(fn WIDGET VALUE)
(defalias 'widget-restricted-sexp-match #[514 "\300\301\"\302
\203<\211\204<\303@!\203
@!\202/
@:\2035
@@\304=\2035@A@=\2035\305\262

A\262\202\207" [widget-get :match-alternatives nil functionp quote t] 6 (#$ . 98640)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313&\210\300\314\302\315\304\316\306\307\310\317\312\320&\210\300\321\302\322\304\323\306\324\310\325\312\326&\210\300\327\302\330\304\331\306\324\310\332\312\333&\210\300\334\335\336\304\337\306\307\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361&\207" [define-widget integer restricted-sexp "An integer." :tag "Integer" :value 0 :type-error "This field should contain an integer" :match-alternatives (integerp) natnum "A nonnegative integer." "Integer (positive or zero)" "This field should contain a nonnegative integer" (natnump) number "A number (floating point or integer)." "Number" 0.0 "This field should contain a number (floating point or integer)" (numberp) float "A floating point number." "Floating point number" "This field should contain a floating point number" (floatp) character editable-field "A character." "Character" :size 1 :format "%{%t%}: %v\n" :valid-regexp "\\`\\(.\\|\n\\)\\'" :error "This field should contain a single character" :value-get #[257 "\300
\301\"\207" [widget-field-value-get t] 4 "\n\n(fn W)"] :value-to-internal #[514 "\211;\203\207\300
!\211\203\301\302!\303#\207\302!\207" [widget-character--change-character-display propertize char-to-string display] 7 "\n\n(fn WIDGET VALUE)"] :value-to-external #[514 "\211;\203	\211\300H\207\207" [0] 4 "\n\n(fn WIDGET VALUE)"] :match #[514 "\300
!\207" [characterp] 4 "\n\n(fn WIDGET VALUE)"] :notify widget-character-notify] 26)
#@292 Alist that associates escape sequences to a character.
Each element has the form (ESCAPE-SEQUENCE . CHARACTER).

The character widget uses this alist to display the
non-printable character represented by ESCAPE-SEQUENCE as \CHARACTER,
since that makes it easier to see what's in the widget.
(defvar widget-character--escape-sequences-alist '((9 . 116) (10 . 110) (32 . 115)) (#$ . 100412))
#@449 Return a string to represent the character C, or nil.

The character widget represents some characters (e.g., the newline character
or the tab character) specially, to make it easier for the user to see what's
in it.  For those characters, return a string to display that character in a
more user-friendly way.

For the caller, nil should mean that it is good enough to use the return value
of `char-to-string' for the representation of C.

(fn C)
(defalias 'widget-character--change-character-display #[257 "\301
\"\211\205\302\303\304\"\305\306#\207" [widget-character--escape-sequences-alist alist-get propertize format "\\%c" face escape-glyph] 6 (#$ . 100809)])
#@205 Notify function for the character widget.

This function allows the widget character to better display some characters,
like the newline character or the tab character.

(fn WIDGET CHILD &optional EVENT)
(defalias 'widget-character-notify #[770 "\211\242\300=\203N\211A@\3018\302\303\"\2035\304\305!\306\"\203L\307\310\"\311\312!\313!\314\315\306!$\266\202N\316\"\262
\315
\317H!\211\203K\311\314$\210\210\266\320#\207" [after-change 2 nil eql char-equal widget-value 32 widget-get :field-overlay put-text-property overlay-start overlay-end display widget-character--change-character-display buffer-substring-no-properties 0 widget-default-notify] 13 (#$ . 101487)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\312\306\307\313\314\315\316\317\320&
\207" [define-widget list group "A Lisp list." :tag "List" :format "%{%t%}:\n%v" vector "A Lisp vector." "Vector" :match widget-vector-match :value-to-internal #[514 "\300
\301\"\207" [append nil] 5 "\n\n(fn WIDGET VALUE)"] :value-to-external #[514 "\300\301\"\207" [apply vector] 5 "\n\n(fn WIDGET VALUE)"]] 14)
#@21 

(fn WIDGET VALUE)
(defalias 'widget-vector-match #[514 "\300
!\205\301\302\303#\"\207" [vectorp widget-group-match widget-apply :value-to-internal] 8 (#$ . 102606)])
(define-widget 'cons 'group "A cons-cell." :tag "Cons-cell" :format "%{%t%}:\n%v" :match 'widget-cons-match :value-to-internal #[514 "\211@
AD\207" [] 4 "\n\n(fn WIDGET VALUE)"] :value-to-external #[514 "\300\301\"\207" [apply cons] 5 "\n\n(fn WIDGET VALUE)"])
#@21 

(fn WIDGET VALUE)
(defalias 'widget-cons-match #[514 "\211:\205
\300\301\302#\"\207" [widget-group-match widget-apply :value-to-internal] 8 (#$ . 103047)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323&\210\300\324\325\326\327\330\331\332\306\333\334\335&\207" [define-widget lazy default "Base widget for recursive data structures.\n\nThe `lazy' widget will, when instantiated, contain a single inferior\nwidget, of the widget type specified by the :type parameter.  The\nvalue of the `lazy' widget is the same as the value of the inferior\nwidget.  When deriving a new widget from the `lazy' widget, the :type\nparameter is allowed to refer to the widget currently being defined,\nthus allowing recursive data structures to be described.\n\nThe :type parameter takes the same arguments as the defcustom\nparameter with the same name.\n\nMost composite widgets, i.e. widgets containing other widgets, does\nnot allow recursion.  That is, when you define a new widget type, none\nof the inferior widgets may be of the same type you are currently\ndefining.\n\nIn Lisp, however, it is custom to define data structures in terms of\nthemselves.  A list, for example, is defined as either nil, or a cons\ncell whose cdr itself is a list.  The obvious way to translate this\ninto a widget type would be\n\n  (define-widget \\='my-list \\='choice\n    \"A list of sexps.\"\n    :tag \"Sexp list\"\n    :args \\='((const nil) (cons :value (nil) sexp my-list)))\n\nHere we attempt to define my-list as a choice of either the constant\nnil, or a cons-cell containing a sexp and my-lisp.  This will not work\nbecause the `choice' widget does not allow recursion.\n\nUsing the `lazy' widget you can overcome this problem, as in this\nexample:\n\n  (define-widget \\='sexp-list \\='lazy\n    \"A list of sexps.\"\n    :tag \"Sexp list\"\n    :type \\='(choice (const nil) (cons :value (nil) sexp sexp-list)))" :format "%{%t%}: %v" :convert-widget widget-value-convert-widget :value-create widget-type-value-create :value-get widget-child-value-get :value-inline widget-child-value-inline :default-get widget-type-default-get :match widget-type-match :validate widget-child-validate plist list "A property list." :key-type (symbol :tag "Key") :value-type (sexp :tag "Value") widget-plist-convert-widget :tag "Plist"] 20)
#@15 

(fn WIDGET)
(defalias 'widget-plist-convert-widget #[257 "\301
\302\"\301\303\"\304\305\306\307\305\306\301\310\"\257F
\2030\311\305\306\312\306\313\314\"BBBBB
D\2022\211C\315\316#\210)\207" [widget-plist-value-type widget-get :options :value-type editable-list :inline t group :key-type checklist :greedy mapcar widget-plist-convert-option widget-put :args] 11 (#$ . 105416)])
#@15 

(fn OPTION)
(defalias 'widget-plist-convert-option #[257 "\301\211<\203!@A@\262\211<\203\262\202)\302
D\262\210\202)\302D\262\262
\303\304\305\306\307\257\207" [widget-plist-value-type nil const group :format "Key: %v" :inline t] 10 (#$ . 105815)])
(define-widget 'alist 'list "An association list." :key-type '(sexp :tag "Key") :value-type '(sexp :tag "Value") :convert-widget 'widget-alist-convert-widget :tag "Alist")
#@15 

(fn WIDGET)
(defalias 'widget-alist-convert-widget #[257 "\301
\302\"\301\303\"\304\305\306\307\310\311\301\312\"\257F
\2030\313\305\306\314\306\315\316\"BBBBB
D\2022\211C\317\320#\210)\207" [widget-alist-value-type widget-get :options :value-type editable-list :inline t cons :format "%v" :key-type checklist :greedy mapcar widget-alist-convert-option widget-put :args] 11 (#$ . 106263)])
#@15 

(fn OPTION)
(defalias 'widget-alist-convert-option #[257 "\301\211<\203!@A@\262\211<\203\262\202)\302
D\262\210\202)\302D\262\262
\303\304\305\257\207" [widget-alist-value-type nil const cons :format "Key: %v"] 8 (#$ . 106674)])
(define-widget 'choice 'menu-choice "A union of several sexp types.\n\nIf one of the choices of a choice widget has an :inline t property,\nthen the choice widget can act as an inline widget on its own if the\ncurrent choice is inline." :tag "Choice" :format "%{%t%}: %[Value Menu%] %v" :button-prefix 'widget-push-button-prefix :button-suffix 'widget-push-button-suffix :prompt-value 'widget-choice-prompt-value :inline-bubbles-p 'widget-choice-inline-bubbles-p)
#@50 Make a choice.

(fn WIDGET PROMPT VALUE UNBOUND)
(defalias 'widget-choice-prompt-value #[1028 "\301\302\"\301\303\"\304\211\211\211\203-\305
@\306\n#\203&\211@\262\304\262
\202\211A\262
\202\210G\307U\2039\304\202\236G\310U\203E@\202\236G\311U\203d\211>\203d\211@=\203_A@\202\236@\202\236\203}@\262A\262\305\312\"BB\262\202d\313\304\314$\211;\205\234\315
\"\211;\203\225\211\262\316\"A\262
\262
\262\203\256\317	\304\314$\202\260)\207" [completion-ignore-case widget-get :args :case-fold nil widget-apply :match 0 1 2 :menu-tag-get completing-read t try-completion assoc widget-prompt-value] 14 (#$ . 107392)])
#@240 Non-nil if the choice WIDGET has at least one choice that is inline.
This is used when matching values, because a choice widget needs to
match a value inline rather than just match it if at least one of its choices
is inline.

(fn WIDGET)
(defalias 'widget-choice-inline-bubbles-p #[257 "\300
\301\"\302\211\203\211\204@\262A\262\300\303\"\262
\202\207" [widget-get :args nil :inline] 7 (#$ . 108068)])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\304\315\306\316&\210\300\317\320\321\304\322\306\307&\210\300\323\324\325\304\326\310\327\330\331\332\333\306\334\335\336\337\340&\207" [define-widget radio radio-button-choice "A union of several sexp types." :tag "Choice" :format "%{%t%}:\n%v" :prompt-value widget-choice-prompt-value repeat editable-list "A variable length homogeneous list." "Repeat" "%{%t%}:\n%v%i\n" set checklist "A list of members from a fixed set." "Set" boolean toggle "To be nil or non-nil, that is the question." "Boolean" widget-boolean-prompt-value :button-prefix widget-push-button-prefix :button-suffix widget-push-button-suffix "%{%t%}: %[Toggle%]  %v\n" :on "on (non-nil)" :off "off (nil)"] 18)
#@36 

(fn WIDGET PROMPT VALUE UNBOUND)
(defalias 'widget-boolean-prompt-value #[1028 "\300\301\302\303#\304P!\207" [y-or-n-p replace-regexp-in-string ": ?\\'" "" " true: "] 9 (#$ . 109247)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316 \"#T\317\320\321\322\323\316 \324\325\326\327\330\331\332\333\334\335&\207" [define-widget color editable-field "Choose a color name (with sample)." :format "%{%t%}: %v (%{sample%})\n" :value-create widget-color-value-create :size apply max 13 mapcar length defined-colors :tag "Color" :value "black" :completions :sample-face-get widget-color-sample-face-get :notify widget-color-notify :match widget-color-match :validate widget-color-validate :action widget-color-action] 26)
#@15 

(fn WIDGET)
(defalias 'widget-color-value-create #[257 "\300
!\210\301\302!\210\303
\304\305\306\307\310&\210\301\302!\207" [widget-field-value-create widget-insert " " widget-create-child-and-convert push-button :tag " Choose " :action widget-color--choose-action] 8 (#$ . 109995)])
#@31 

(fn WIDGET &optional EVENT)
(defalias 'widget-color--choose-action #[513 "\300\301!\210\302\303\211p\304\305\"\306\307#\266\202#\207" [require facemenu list-colors-display nil widget-get :parent make-closure #[257 "\302\300!\205'\303\301\"\210\304\305!\306
\307\"\211\203\310\311\"\266\202$\312!\266\313\300!\207" [V0 V1 buffer-live-p widget-value-set get-buffer "*Colors*" get-buffer-window 0 quit-window nil bury-buffer pop-to-buffer] 6 "\n\n(fn COLOR)"]] 11 (#$ . 110288)])
#@15 

(fn WIDGET)
(defalias 'widget-color-sample-face-get #[257 "\3001\301
!0\202\210\302
\303\"\304
!\203\305
BC\207\306\207" [(error) widget-value widget-get :value color-defined-p foreground-color default] 4 (#$ . 110786)])
#@50 Prompt for a color.

(fn WIDGET &optional EVENT)
(defalias 'widget-color-action #[513 "\300\301!\210\302\303\"\211\304P\305
!\211G\306U?\205&\307\"\210\310 \210\302\311$\207" [require facemenu widget-apply :menu-tag-get ": " facemenu-read-color 0 widget-value-set widget-setup :notify] 10 (#$ . 111021)])
#@78 Update the sample, and notify the parent.

(fn WIDGET CHILD &optional EVENT)
(defalias 'widget-color-notify #[770 "\300\301\302\"\303\304\305\"#\210\306#\207" [overlay-put widget-get :sample-overlay face widget-apply :sample-face-get widget-default-notify] 9 (#$ . 111341)])
#@77 Non-nil if VALUE is a defined color or a RGB hex string.

(fn WIDGET VALUE)
(defalias 'widget-color-match #[514 "\211;\205\301
!\206\302
\303\304\305#)\266\203\207" [inhibit-changing-match-data color-defined-p "^#\\(?:[[:xdigit:]]\\{3\\}\\)\\{1,4\\}$" nil t string-match] 9 (#$ . 111628)])
#@58 Check that WIDGET's value is a valid color.

(fn WIDGET)
(defalias 'widget-color-validate #[257 "\300
!\301\"?\205\302\303\304\305\"#\210
\207" [widget-value widget-color-match widget-put :error format "Invalid color: %S"] 8 (#$ . 111932)])
#@53 Display help-echo text for widget at POS.

(fn POS)
(defalias 'widget-echo-help #[257 "\300
!\211\205\301
\302\"\303
!\203\211!\262
\211\205 \304\305\306!\"\207" [widget-at widget-get :help-echo functionp message "%s" eval] 7 (#$ . 112185)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307!\207" [defalias widget-sublist seq-subseq nil make-obsolete "28.1" provide wid-edit] 4)