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



(byte-code "\300\301!\210\302\303\304\305\306\307%\207" [require wid-edit custom-declare-group widget-browse nil "Customization support for browsing widgets." :group widgets] 6)
#@34 Keymap for `widget-browse-mode'.
(defvar widget-browse-mode-map (byte-code "\301 \302
\"\210\303
\304\305#\210\207" [widget-keymap make-sparse-keymap set-keymap-parent define-key "q" bury-buffer] 5) (#$ . 262))
#@38 Menu used in widget browser buffers.
(defvar widget-browse-mode-customize-menu nil (#$ . 480))
(byte-code "\301\302\303\304\305!$\207" [widget-browse-mode-map easy-menu-do-define widget-browse-mode-customize-menu "Menu used in widget browser buffers." customize-menu-create widgets] 6)
#@38 Menu used in widget browser buffers.
(defvar widget-browse-mode-menu nil (#$ . 773))
(byte-code "\301\302\303\304$\210\305\306\307\310\311DD\312\313\314%\207" [widget-browse-mode-map easy-menu-do-define widget-browse-mode-menu "Menu used in widget browser buffers." ("Widget" ["Browse" widget-browse t] ["Browse At" widget-browse-at t]) custom-declare-variable widget-browse-mode-hook funcall function #[0 "\300\207" [nil] 1 ""] "Hook run after entering `widget-browse-mode'." :type hook] 6)
(defvar widget-browse-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [widget-browse-mode-hook variable-documentation put "Hook run after entering Widget Browse mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp widget-browse-mode-map definition-name widget-browse-mode] 4)
(defvar widget-browse-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [widget-browse-mode-abbrev-table widget-browse-mode-map variable-documentation put purecopy "Keymap for `widget-browse-mode'." boundp widget-browse-mode-syntax-table definition-name widget-browse-mode (lambda (#1=#:def-tmp-var) (defvar widget-browse-mode-syntax-table #1#)) make-syntax-table "Syntax table for `widget-browse-mode'." (lambda (#1#) (defvar widget-browse-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `widget-browse-mode'." derived-mode-parent special-mode] 5)
#@499 Major mode for widget browser buffers.

The following commands are available:

\[widget-forward]		Move to next button or editable field.
\[widget-backward]		Move to previous button or editable field.
\[widget-button-click]		Activate button under the mouse pointer.
\[widget-button-press]		Activate button under point.

In addition to any hooks its parent mode `special-mode' might have
run, this mode runs the hook `widget-browse-mode-hook', as the final
or penultimate step during initialization.
(defalias 'widget-browse-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\326
\325C#\210\327!\210\330\f!\210
)\331\332!\207" [delay-mode-hooks major-mode mode-name widget-browse-mode-map widget-browse-mode-syntax-table widget-browse-mode-abbrev-table make-local-variable t special-mode widget-browse-mode "Widget Browse" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks widget-browse-mode-hook local-abbrev-table] 5 (#$ . 2519) nil])
(put 'widget-browse-mode 'mode-class 'special)
#@42 Browse the widget under point.

(fn POS)
(defalias 'widget-browse-at #[257 "\300
\301\"\206\300
\302\"\300\303\"\300\304\"\203\305\202,
\203#\306\202,\211\203+\307\202,\310\2065\2065
\211\203=\311
!\210\312!\207" [get-char-property real-field field button widget-doc "This is an editable text area." "This is an active area." "This is documentation text." "This is unidentified text." widget-browse message] 8 (#$ . 3838) "d"])
(defvar widget-browse-history nil)
#@50 Create a widget browser for WIDGET.

(fn WIDGET)
(defalias 'widget-browse #[257 "\211;\203\n\300
!\262
\2119\203\211\301N\202!\211:\203$\211\211@\262
\301N\204(\302\303!\210\2119\203A\304\305\"\306\307!!\210\310\307!!\266\202M\306\307\311!!\210\310\307\311!!\210\312 \210\211<\203\\\313\314!\210\202\200\313\315!\210\316\317\320\321\322\323N&\210h\324=\204w\313\325!\210\313\326!\210\211\301N\262
\211@
A\327\211\211\316\317\320\330$\210\313\325!\210\203\304@\262A@\262\331N\206\247\332\262
AA\262\313\325\333!\334#\210\211#\210\313\325!\210\202\223\266\335 \210eb\207" [intern widget-type error "Not a widget" format "*Browse %s Widget*" kill-buffer get-buffer-create switch-to-buffer "*Browse Widget*" widget-browse-mode widget-insert "Widget object browser.\n\nClass: " "Widget class browser.\n\n" widget-create widget-browse :format "%[%v%]\n%d" :doc widget-documentation 10 "\n" "\nSuper: " nil "%[%v%]" widget-keyword-printer widget-browse-sexp symbol-name "\n	" widget-setup] 11 (#$ . 4325) (byte-code "\301\302\303\304\305\306&C\207" [obarray completing-read "Widget: " #[257 "\211\300N\207" [widget-type] 3 "\n\n(fn SYMBOL)"] t nil widget-browse-history] 7)])
#@72 Show widget browser for WIDGET in other window.

(fn &optional WIDGET)
(defalias 'widget-browse-other-window #[256 "\300 \301\302!\210
\203\303!\210\202\304\303!\210\305
!\207" [selected-window switch-to-buffer-other-window "*Browse Widget*" widget-browse call-interactively select-window] 4 (#$ . 5540) nil])
(define-widget 'widget-browse 'push-button "Button for creating a widget browser.\nThe :value of the widget should be the widget to be browsed." :format "%[[%v]%]" :value-create 'widget-browse-value-create :action 'widget-browse-action)
#@74 Create widget browser for :value of WIDGET.

(fn WIDGET &optional EVENT)
(defalias 'widget-browse-action #[513 "\300\301\302\"!\207" [widget-browse widget-get :value] 6 (#$ . 6098)])
#@43 Insert type name for WIDGET.

(fn WIDGET)
(defalias 'widget-browse-value-create #[257 "\300
\301\"\2119\203\302
!c\207\211:\203\302
\211@\262
!c\207\303c\207" [widget-get :value symbol-name "strange"] 5 (#$ . 6288)])
#@99 Insert description of WIDGET's KEY VALUE.
VALUE is assumed to be a widget.

(fn WIDGET KEY VALUE)
(defalias 'widget-browse-widget #[771 "\300\301\"\207" [widget-create widget-browse] 6 (#$ . 6515)])
#@108 Insert description of WIDGET's KEY VALUE.
VALUE is assumed to be a list of widgets.

(fn WIDGET KEY VALUE)
(defalias 'widget-browse-widgets #[771 "\211\205\300\301@\"\210\211A\262
\211\203\302\303!\210\202\207" [widget-create widget-browse widget-insert " "] 6 (#$ . 6722)])
#@98 Insert description of WIDGET's KEY VALUE.
Nothing is assumed about value.

(fn WIDGET KEY VALUE)
(defalias 'widget-browse-sexp #[771 "\3001\301
!0\202\302
!\262
\303\304\"\203\211\305GSO\262
\306\307\"\2044\211G\310 iZV\2044\311
!\207\312\313\314\315\316\317&\207" [(error) pp-to-string prin1-to-string string-match "\n\\'" 0 string-search "\n" window-width widget-insert widget-create push-button :tag "show" :action #[513 "r\306\307!q\210p\310 \210
\311\211\312\211\312\313 \210\314\315!\210+\211\316\317\320\"!\321!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only get-buffer-create "*Pp Eval Output*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ widget-get :value internal-temp-output-buffer-show standard-output] 9 "\n\n(fn WIDGET &optional EVENT)"]] 11 (#$ . 7010)])
#@108 Insert description of WIDGET's KEY VALUE.
VALUE is assumed to be a list of widgets.

(fn WIDGET KEY VALUE)
(defalias 'widget-browse-sexps #[771 "i
\205\300@#\210
A\262
\203
\301\302\303\304\"\"\210\202
\207" [widget-browse-sexp widget-insert "\n" make-string 32] 9 (#$ . 7929)])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\305#\210\300\307\302\303#\210\300\310\302\311#\207" [put :parent widget-keyword-printer widget-browse-widget :children widget-browse-widgets :buttons :button :args widget-browse-sexps] 4)
#@35 Keymap used in Widget Minor Mode.
(defvar widget-minor-mode-map (byte-code "\301 \302
\"\210\207" [widget-keymap make-sparse-keymap set-keymap-parent] 4) (#$ . 8478))
#@103 Non-nil if Widget minor mode is enabled.
Use the command `widget-minor-mode' to change this variable.
(defvar widget-minor-mode nil (#$ . 8653))
(make-variable-buffer-local 'widget-minor-mode)
#@595 Minor mode for traversing widgets.

This is a minor mode.  If called interactively, toggle the `Widget
minor mode' mode.  If the prefix argument is positive, enable the
mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `widget-minor-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'widget-minor-mode #[256 "\302 
\303=\203
?\202
\247\203
\304W\203\305\202\306\307\301!\2031\310\300	\"\2031\300	B\311\312\203;\313\202<\314\"\210\315\316!\203^\302 \203P\211\302 \232\203^\317\320\203Z\321\202[\322\323#\210\210\324 \210\207" [widget-minor-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks widget-minor-mode-hook widget-minor-mode-on-hook widget-minor-mode-off-hook called-interactively-p any message "Widget minor mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 8853) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar widget-minor-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\210\315\316!\207" [widget-minor-mode-map widget-minor-mode-hook variable-documentation put "Hook run after entering or leaving `widget-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode widget-minor-mode " Widget" boundp provide wid-browse] 6)