Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/emacs-lisp/helper.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.

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


(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\320\321d!\203<\322\202=\323_\321e!\203H\322\202I\323\\\324\3258	\"\210\326 \211\327>\203g\320W\203g\330 \210\202-\f\331U\203s\332 \210\202-\f\333U\203\207\320\246\323U\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 2 pos-visible-in-window-p 1 0 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 (#$ . 1701) 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 (#$ . 1887) "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 (#$ . 2078) "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 (#$ . 2354) 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 (#$ . 2664) 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 (#$ . 2974) 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 (#$ . 3307) 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 (#$ . 3638) nil])
(provide 'helper)