mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 17:24:23 +00:00
43 lines
3 KiB
Text
43 lines
3 KiB
Text
|
||
(provide (quote helper))
|
||
|
||
(defvar Helper-return-blurb nil)
|
||
|
||
(defvar Helper-help-map nil)
|
||
|
||
(if Helper-help-map nil (setq Helper-help-map (make-keymap)) (define-key Helper-help-map "m" (quote Helper-describe-mode)) (define-key Helper-help-map "b" (quote Helper-describe-bindings)) (define-key Helper-help-map "c" (quote Helper-describe-key-briefly)) (define-key Helper-help-map "k" (quote Helper-describe-key)) (define-key Helper-help-map "?" (quote Helper-help-options)) (define-key Helper-help-map (char-to-string help-char) (quote Helper-help-options)) (fset (quote Helper-help-map) Helper-help-map))
|
||
|
||
(defun Helper-help-scroller nil (byte-code "ÆÁ!… † ÇÈ‹)‡" [blurb Helper-return-blurb continue t state nil boundp "return" ((byte-code "ÅÆ !bˆÇÈ!ƒ ÉÈ!‚ ÊÈ!ˆebˆÁÄ…€ ËÌÍd!ƒ- ΂. Ï\"Íe!ƒ9 ΂: Ï\\‰ˆÐ
|
||
Ñ8 \"ˆr‰ˆÒ>…R
|
||
ÌWƒZ Ó ‚| ÔUƒe Õ ‚| ÖU…q ×Ø
|
||
Ì\"!ƒy Ù ‚| ĉˆ‚ *‡" [continue t state blurb nil window-start selected-window get-buffer-window "*Help*" pop-to-buffer switch-to-buffer * 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") (32 22) scroll-up 12 recenter 127 zerop % scroll-down] 17))] 2))
|
||
|
||
(defun Helper-help-options nil "\
|
||
Describe help options." (interactive) (byte-code "ÀˆÁÂ!ˆÃÄ!‡" [nil message "c (key briefly), m (mode), k (key), b (bindings)" sit-for 4] 3))
|
||
|
||
(defun Helper-describe-key-briefly (key) "\
|
||
Briefly describe binding of KEYS." (interactive "kDescribe key briefly: ") (byte-code "ÁˆÂ!ˆÃÄ!‡" [key nil describe-key-briefly sit-for 4] 3))
|
||
|
||
(defun Helper-describe-key (key) "\
|
||
Describe binding of KEYS." (interactive "kDescribe key: ") (byte-code "ÁˆÂ‹ˆÃ ‡" [key nil ((byte-code "Á!‡" [key describe-key] 2)) Helper-help-scroller] 2))
|
||
|
||
(defun Helper-describe-function nil "\
|
||
Describe a function. Name read interactively." (interactive) (byte-code "ÀˆÁ‹ˆÂ ‡" [nil ((byte-code "ÀÁ!‡" [call-interactively describe-function] 2)) Helper-help-scroller] 2))
|
||
|
||
(defun Helper-describe-variable nil "\
|
||
Describe a variable. Name read interactively." (interactive) (byte-code "ÀˆÁ‹ˆÂ ‡" [nil ((byte-code "ÀÁ!‡" [call-interactively describe-variable] 2)) Helper-help-scroller] 2))
|
||
|
||
(defun Helper-describe-mode nil "\
|
||
Describe the current mode." (interactive) (byte-code "Ĉ  !ŠÅÆ!qˆÇ ˆÈÉ
|
||
#)*ˆÊ ‡" [name mode-name documentation major-mode nil get-buffer-create "*Help*" erase-buffer insert " Mode
|
||
" Helper-help-scroller] 7))
|
||
|
||
(defun Helper-describe-bindings nil "\
|
||
Describe local key bindings of current mode." (interactive) (byte-code "ÀˆÁÂ!ˆÃ‹ˆÄ ‡" [nil message "Making binding list..." ((byte-code "À ‡" [describe-bindings] 2)) Helper-help-scroller] 3))
|
||
|
||
(defun Helper-help nil "\
|
||
Provide help for current mode." (interactive) (byte-code "ĈÁÄ…B ÅÆ!ˆÇÈr!!‰ˆÉ
|
||
\"‰ˆ
|
||
Ê=ƒ( Ê ‚> Ë
|
||
!ƒ8 Ì
|
||
!ˆÄ‰‚> Í ˆÄ‰ˆ‚ *‡" [continue t c Helper-help-map nil message "Help (Type ? for further options)" char-to-string downcase lookup-key Helper-help-options commandp call-interactively ding] 11))
|