;ELC ;;; Compiled ;;; in Emacs version 27.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\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)