| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/wid-browse.elc |
;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)