| Server IP : 217.160.0.212 / Your IP : 216.73.217.5 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/emacs-lisp/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(defvar Helper-return-blurb nil)
(defvar Helper-help-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315!\314#\210\316M\210\207" [help-char make-sparse-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 Helper-help-map] 5))
(defalias 'Helper-help-scroller #[0 "\301\300!\203\n \206 \302\303 \304\305\"\216\306 b\210\307\310!\203# \311\310!\210\202' \312\310!\210eb\210\313\314\205\216 \315\316d!\203; \317\202< \320_\316e!\203G \317\202H \320\\\262\321\3228\"\210\323 \262\324>\203h \211\315W\203h \325 \210\202, \326U\203t \327 \210\202, \330U\203\210 \211\315\246\320U\203\210 \331 \210\202, \314\262\202, \266\202)\207" [Helper-return-blurb boundp "return" current-window-configuration make-closure #[0 "\301\300!\207" [V0 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] 7])
#@24 Describe help options.
(defalias 'Helper-help-options #[0 "\300\301!\210\302\303!\207" [message "c (key briefly), m (mode), k (key), b (bindings)" sit-for 4] 2 (#$ . 1359) nil])
#@44 Briefly describe binding of KEY.
(fn KEY)
(defalias 'Helper-describe-key-briefly #[257 "\300!\210\301\302!\207" [describe-key-briefly sit-for 4] 3 (#$ . 1543) "kDescribe key briefly: "])
#@36 Describe binding of KEY.
(fn KEY)
(defalias 'Helper-describe-key #[257 "\300 \301\302\"\216\303!\210)\210\304 \207" [current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] describe-key Helper-help-scroller] 5 (#$ . 1738) "kDescribe key: "])
#@48 Describe a function. Name read interactively.
(defalias 'Helper-describe-function #[0 "\300 \301\302\"\216\303\304!\210)\210\305 \207" [current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] call-interactively describe-function Helper-help-scroller] 4 (#$ . 2028) nil])
#@48 Describe a variable. Name read interactively.
(defalias 'Helper-describe-variable #[0 "\300 \301\302\"\216\303\304!\210)\210\305 \207" [current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] call-interactively describe-variable Helper-help-scroller] 4 (#$ . 2346) nil])
#@28 Describe the current mode.
(defalias 'Helper-describe-mode #[0 "\303!\304 !r\305\306!q\210\307\310 \210\311\261\210\312 \210)\266\313 \207" [mode-name major-mode buffer-read-only format-mode-line documentation get-buffer-create "*Help*" nil erase-buffer " Mode\n" help-mode Helper-help-scroller] 5 (#$ . 2664) nil])
#@46 Describe local key bindings of current mode.
(defalias 'Helper-describe-bindings #[0 "\300\301!\210\302 \303\304\"\216\305 \210)\210\306 \207" [message "Making binding list..." current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] describe-bindings Helper-help-scroller] 4 (#$ . 2992) nil])
#@32 Provide help for current mode.
(defalias 'Helper-help #[0 "\301\302\205: \303\304!\210\305\302!\262\306\"\262\211\307=\203! \307 \210\202 \310!\2031 \311!\210\302\262\202 \312 \210\302\262\202 \207" [Helper-help-map t nil message "Help (Type ? for further options)" read-key-sequence lookup-key Helper-help-options commandp call-interactively ding] 5 (#$ . 3331) nil])
(provide 'helper)