;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:33 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/wid-browse.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311%\207" [require easymenu custom 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 "\302 \303	\"\210\304\305\306#\210)\207" [map widget-keymap make-sparse-keymap set-keymap-parent define-key "q" bury-buffer] 4) (#$ . 773))
#@38 Menu used in widget browser buffers.
(defvar widget-browse-mode-customize-menu nil (#$ . 998))
(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 (#$ . 1291))
(byte-code "\301\302\303\304$\210\305\306\307\310\311\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 nil "Hook called when entering widget-browse-mode." :type hook :group widget-browse] 8)
#@410 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.

Entry to this mode calls the value of `widget-browse-mode-hook'
if that value is non-nil.
(defalias 'widget-browse-mode #[nil "\305 \210\306\307\310\n!\210\311!\210\311\f!\210\312\313!\207" [major-mode mode-name widget-browse-mode-map widget-browse-mode-customize-menu widget-browse-mode-menu kill-all-local-variables widget-browse-mode "Widget" use-local-map easy-menu-add run-mode-hooks widget-browse-mode-hook] 2 (#$ . 1772)])
(put 'widget-browse-mode 'mode-class 'special)
#@32 Browse the widget under point.
(defalias 'widget-browse-at #[(pos) "\306\301\"\306\302\"\306\307\"	\203\310\202(\n\203\311\202(\203'\312\202(\313	\2062\n\2062\211\203;\314
!\210\315\f!-\207" [pos field button doc text widget get-char-property widget-doc "This is an editable text area." "This is an active area." "This is documentation text." "This is unidentified text." widget-browse message] 4 (#$ . 2577) "d"])
(defvar widget-browse-history nil)
#@37 Create a widget browser for WIDGET.
(defalias 'widget-browse #[(widget) ";\203	\306!9\203\307N\202 :\203#\211@)\307N\204'\310\311!\2109\203A\312\313\"\314\315	!!\210\316\315	!!\210)\202M\314\315\317!!\210\316\315\317!!\210\320 \210<\203\\\321\322!\210\202~\321\323!\210\324\325\326\327\330\331N&\210h\332=\204v\321\333!\210\321\334!\210\307N@A\335\211\211$\324\325\326\336$$\210\321\333!\210
\203\303
@
A@\f\337N\206\251\340
AA\321\333\341\f!\342#\210\n\f#\210\321\333!\210\202\227-\343 \210eb\207" [widget buffer printer value key items 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 name] 8 (#$ . 3054) (list (completing-read "Widget: " obarray #'(lambda (symbol) (get symbol 'widget-type)) t nil 'widget-browse-history))])
#@49 Show widget browser for WIDGET in other window.
(defalias 'widget-browse-other-window #[(&optional widget) "\302 \303\304!\210	\203\305	!\210\202\306\305!\210\307!)\207" [window widget selected-window switch-to-buffer-other-window "*Browse Widget*" widget-browse call-interactively select-window] 2 (#$ . 4195) nil])
(define-widget 'widget-browse 'push-button "Button for creating a widget browser.\nThe :value of the widget shuld be the widget to be browsed." :format "%[[%v]%]" :value-create 'widget-browse-value-create :action 'widget-browse-action)
(defalias 'widget-browse-action #[(widget &optional _event) "\301\302\303\"!\207" [widget widget-browse widget-get :value] 4])
(defalias 'widget-browse-value-create #[(widget) "\302\303\"\2119\203\304	!c\202#	:\203!\304	\211@)!c\202#\305c)\207" [widget value widget-get :value symbol-name "strange"] 4])
#@76 Insert description of WIDGET's KEY VALUE.
VALUE is assumed to be a widget.
(defalias 'widget-browse-widget #[(_widget _key value) "\301\302\"\207" [value widget-create widget-browse] 3 (#$ . 5073)])
#@85 Insert description of WIDGET's KEY VALUE.
VALUE is assumed to be a list of widgets.
(defalias 'widget-browse-widgets #[(_widget _key value) "\205\301\302@\"\210A\211\203\303\304!\210\202\207" [value widget-create widget-browse widget-insert " "] 4 (#$ . 5279)])
#@75 Insert description of WIDGET's KEY VALUE.
Nothing is assumed about value.
(defalias 'widget-browse-sexp #[(_widget _key value) "\301\302\303\217\304\305\"\203\306GSO\304\307\"\204*G\310 iZV\204*\311!\2023\312\313\314\315\316\317&)\207" [pp signal (pp-to-string value) ((error (prin1-to-string signal))) string-match "\n\\'" 0 "\n" window-width widget-insert widget-create push-button :tag "show" :action #[(widget &optional _event) "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 #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks 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 inhibit-read-only #2=#:buf standard-output widget] 5]] 7 (#$ . 5557)])
#@85 Insert description of WIDGET's KEY VALUE.
VALUE is assumed to be a list of widgets.
(defalias 'widget-browse-sexps #[(widget key value) "i	\205\304\n	@#\210	A\211\203\305\306\307\310\"\"\210\202)\207" [target value widget key widget-browse-sexp widget-insert "\n" make-string 32] 6 (#$ . 6484)])
(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 "\302 \303	\"\210)\207" [map widget-keymap make-sparse-keymap set-keymap-parent] 3) (#$ . 7051))
#@103 Non-nil if Widget minor mode is enabled.
Use the command `widget-minor-mode' to change this variable.
(defvar widget-minor-mode nil (#$ . 7233))
(make-variable-buffer-local 'widget-minor-mode)
#@190 Minor mode for traversing widgets.
With a prefix argument ARG, enable the mode if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
(defalias 'widget-minor-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\307\310\n\203\311\202\312\"\210\313\314!\203@\303 \2033\303 \232\203@\315\316\n\203=\317\202>\320\"\210)\321 \210\n\207" [#1=#:last-message arg widget-minor-mode current-message toggle prefix-numeric-value 0 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" "en" "dis" force-mode-line-update] 3 (#$ . 7433) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\305\211%\210\306\307!\207" [widget-minor-mode-map add-minor-mode widget-minor-mode " Widget" boundp nil provide wid-browse] 6)