ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/wid-browse.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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) (#$ . 630))
#@38 Menu used in widget browser buffers.
(defvar widget-browse-mode-customize-menu nil (#$ . 855))
(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 (#$ . 1148))
(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 (#$ . 1629)])
(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 (#$ . 2434) "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 (#$ . 2911) (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 (#$ . 4055) 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 (#$ . 4936)])
#@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 (#$ . 5142)])
#@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 \n\310\nGSO\306\311\n\"\2046 \nG\312 iZV\2046 \313\n!\202? \314\315\316\317\320\321\n&)\207" [value signal pp (error) pp-to-string prin1-to-string 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 (#$ . 5420)])
#@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 (#$ . 6353)])
(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) (#$ . 6920))
#@103 Non-nil if Widget minor mode is enabled.
Use the command `widget-minor-mode' to change this variable.
(defvar widget-minor-mode nil (#$ . 7102))
(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) "\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 (#$ . 7302) (list (or current-prefix-arg 'toggle))])
#@182 Hook run after entering or leaving `widget-minor-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar widget-minor-mode-hook nil (#$ . 8078))
(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)
Kontol Shell Bypass