;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:04 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/helper.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.

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


(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\312 !b\210\313\314!\203$\315\314!\210\202(\316\314!\210eb\210\317\320\f\205\220\321d!\203=\322\202>\323\324_\321e!\203J\322\202K\323\\\325\3268	\"\210\327 \211\330>\203i\324W\203i\331 \210\202/\f\332U\203u\333 \210\202/\f\334U\203\211\335\324\246!\203\211\336 \210\202/\320\211\2043\320-\207" [Helper-return-blurb blurb #1=#:wconfig state continue boundp "return" current-window-configuration ((set-window-configuration #1#)) window-start selected-window 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 zerop 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 (#$ . 1859) 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 (#$ . 2045) "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 ((set-window-configuration #1#)) describe-key Helper-help-scroller] 2 (#$ . 2236) "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 ((set-window-configuration #1#)) call-interactively describe-function Helper-help-scroller] 2 (#$ . 2492) 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 ((set-window-configuration #1#)) call-interactively describe-variable Helper-help-scroller] 2 (#$ . 2782) 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 (#$ . 3072) 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 ((set-window-configuration #1#)) describe-bindings Helper-help-scroller] 2 (#$ . 3405) 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 (#$ . 3716) nil])
(provide 'helper)