ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/emacs-lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/emacs-lisp/helper.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar Helper-return-blurb nil)
(defvar Helper-help-map nil)
(byte-code "\2041 \302 \303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316 !\315#\210\300M\210\302\207" [Helper-help-map help-char make-keymap define-key "m" Helper-describe-mode "b" Helper-describe-bindings "c" Helper-describe-key-briefly "k" Helper-describe-key "?" Helper-help-options char-to-string] 4)
(defalias 'Helper-help-scroller #[nil "\305\300!\203\n \206 \306\307 \310\216\311 b\210\312\313!\203\" \314\313!\210\202& \315\313!\210eb\210\316\317 \f\205\216 \320d!\203; \321\202< \322\323_\320e!\203H \321\202I \322\\\324 \3258 \"\210\326 \211\327>\203g \323W\203g \330 \210\202- \f\331U\203s \332 \210\202- \f\333U\203\207 \323\246\322U\203\207 \334 \210\202- \317\211\2041 \317-\207" [Helper-return-blurb blurb #1=#:wconfig state continue boundp "return" current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] window-start get-buffer-window "*Help*" pop-to-buffer switch-to-buffer t nil pos-visible-in-window-p 1 0 2 message ("Space forward, Delete back. Other keys %s" "Space scrolls forward. Other keys %s" "Delete scrolls back. Other keys %s" "Type anything to %s") read-event (32 22) scroll-up 12 recenter 127 scroll-down] 4])
#@24 Describe help options.
(defalias 'Helper-help-options #[nil "\300\301!\210\302\303!\207" [message "c (key briefly), m (mode), k (key), b (bindings)" sit-for 4] 2 (#$ . 1703) nil])
#@34 Briefly describe binding of KEY.
(defalias 'Helper-describe-key-briefly #[(key) "\301!\210\302\303!\207" [key describe-key-briefly sit-for 4] 2 (#$ . 1889) "kDescribe key briefly: "])
#@26 Describe binding of KEY.
(defalias 'Helper-describe-key #[(key) "\302 \303\216\304 !\210*\305 \207" [#1=#:wconfig key current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] describe-key Helper-help-scroller] 2 (#$ . 2080) "kDescribe key: "])
#@48 Describe a function. Name read interactively.
(defalias 'Helper-describe-function #[nil "\301 \302\216\303\304!\210*\305 \207" [#1=#:wconfig current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] call-interactively describe-function Helper-help-scroller] 2 (#$ . 2356) nil])
#@48 Describe a variable. Name read interactively.
(defalias 'Helper-describe-variable #[nil "\301 \302\216\303\304!\210*\305 \207" [#1=#:wconfig current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] call-interactively describe-variable Helper-help-scroller] 2 (#$ . 2666) nil])
#@28 Describe the current mode.
(defalias 'Helper-describe-mode #[nil "\305!\302 !r\306\307!q\210\310\311 \210 \312\n\261\210\313 \210+\314 \207" [mode-name major-mode documentation name buffer-read-only format-mode-line get-buffer-create "*Help*" nil erase-buffer " Mode\n" help-mode Helper-help-scroller] 3 (#$ . 2976) nil])
#@46 Describe local key bindings of current mode.
(defalias 'Helper-describe-bindings #[nil "\301\302!\210\303 \304\216\305 \210*\306 \207" [#1=#:wconfig message "Making binding list..." current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] describe-bindings Helper-help-scroller] 2 (#$ . 3309) nil])
#@32 Provide help for current mode.
(defalias 'Helper-help #[nil "\303\304 \205; \305\306!\210\307\304!\310\n\"\211\311=\203! \311 \210\202 \312!\2031 \313!\210\304\211\202 \314 \210\304\211\204 \304*\207" [c continue Helper-help-map t nil message "Help (Type ? for further options)" read-key-sequence lookup-key Helper-help-options commandp call-interactively ding] 4 (#$ . 3640) nil])
(provide 'helper)
Kontol Shell Bypass