Current File : //proc/self/root/kunden/proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/wid-browse.elc

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

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

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

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


(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) (#$ . 628))
#@38 Menu used in widget browser buffers.
(defvar widget-browse-mode-customize-menu nil (#$ . 853))
(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 (#$ . 1146))
(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 (#$ . 1627)])
(put 'widget-browse-mode 'mode-class 'special)
#@32 Browse the widget under point.
(defalias 'widget-browse-at #[(pos) "\306\307\"\206\306\301\"\306\302\"\306\310\"	\203\311\202/\n\203&\312\202/\203.\313\202/\314	\2069\n\2069\211\203B\315
!\210\316\f!-\207" [pos field button doc text widget get-char-property real-field 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 (#$ . 2432) "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@\262
\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] 7 (#$ . 2937) (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 (#$ . 4081) 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@\262
!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 (#$ . 4962)])
#@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 (#$ . 5168)])
#@75 Insert description of WIDGET's KEY VALUE.
Nothing is assumed about value.
(defalias 'widget-browse-sexp #[(_widget _key value) "\3031\304!0\202\305	!)\306\307\n\"\203 \310\n\311\nGS#\306\312\n\"\2047\nG\313 iZV\2047\314\n!\202@\315\316\317\320\321\322\n&)\207" [value signal pp (error) pp-to-string prin1-to-string string-match "\n\\'" substring 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 (#$ . 5446)])
#@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 (#$ . 6393)])
(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) (#$ . 6960))
#@103 Non-nil if Widget minor mode is enabled.
Use the command `widget-minor-mode' to change this variable.
(defvar widget-minor-mode nil (#$ . 7142))
(make-variable-buffer-local 'widget-minor-mode)
#@281 Minor mode for traversing widgets.

If called interactively, enable Widget minor mode if ARG is positive,
and disable it if ARG is zero or negative.  If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
(defalias 'widget-minor-mode #[(&optional arg) "\304 	\305=\203\n?\202\306	!\307V\310\311\n\203\312\202\313\"\210\314\315!\203D\304 \2033\304 \232\203D\316\317\320\n\203?\321\202@\322#\210))\323 \210\n\207" [#1=#:last-message arg widget-minor-mode local 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 " in current buffer" message "Widget minor mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 7342) (list (or current-prefix-arg 'toggle))])
(defvar widget-minor-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\210\312\313!\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.)" add-minor-mode widget-minor-mode " Widget" boundp nil provide wid-browse] 6)