;;; Source file: /usr/local/lib/jade/3.2/lisp/help.jl
;;; Compiled by jsh@orcrist on Sun Oct 16 20:21:08 1994
;;; Jade 3.2

(provide (quote help))

(defvar help-buffer (make-buffer "*Help*"))

(set-buffer-special help-buffer t)

(defvar help-keymap (make-keylist))

(bind-keys help-keymap "SPC" (quote next-screen) "BS" (quote prev-screen) "q" (quote bury-buffer))

(defvar help-prompt-keymap (make-keylist))

(bind-keys help-prompt-keymap "a" (quote apropos-function) "b" (quote describe-keymap) "e" (quote apropos-variable) "f" (quote describe-function) "h" (quote help-help) "Ctrl-h" (quote help-help) "i" (quote info) "Ctrl-i" (quote (info t)) "k" (quote describe-key) "m" (quote describe-mode) "?" (quote help-help) "v" (quote describe-variable) "SPC" (quote (progn (next-screen) (help))) "BS" (quote (progn (prev-screen) (help))))

(jade-byte-code "±\"$IF%G±H" [help-buffer (help-keymap global-keymap) keymap-path "Help" mode-name buffer-record-undo] 3)

(defun help nil 87072 (interactive) (jade-byte-code "	HF#" [message "Type: a b f h i k m v -- h for more help" (help-prompt-keymap) next-keymap-path] 2))

(defun help-help nil 87108 (interactive) (jade-byte-code "	HH	HH" [clear-buffer help-buffer insert "
Help mode -- Type one of the following:

a   `apropos-function'
	Search for functions which match a regular expression.

b   `describe-keymap'
	Print the key bindings which are currently active.

f   `describe-function'
	View the documentation for a particular function.

h   `help-help'
	Display this text.

i   `info'
	Enter the info hypertext viewer.

k   `describe-key'
	Display the command (and its documentation) that a particular
	sequence of keys is currently bound to.

m   `describe-mode'
	Show the documentation for the edit mode of the current buffer.

v   `describe-variable'
	View the documentation and value of a variable." buffer-start goto-buffer goto-buffer-start help] 4))

(defun help-setup nil (jade-byte-code "	H	H	H" [clear-buffer help-buffer goto-buffer insert "
----
Type `q' to return to the buffer you were in." goto-buffer-start] 2))

(defun apropos-function (regexp) (interactive "sRegular expression:") (jade-byte-code "HH

H" [help-setup format help-buffer "Apropos for expression %S:
" regexp print apropos fboundp goto-buffer-start] 4))

(defun apropos-variable (regexp) (interactive "sRegular expression:") (jade-byte-code "HH

H" [help-setup format help-buffer "Apropos for expression %S:
" regexp print apropos boundp goto-buffer-start] 4))

(defun describe-keymap nil 87170 (interactive) (jade-byte-code "DI²12H
HE" [keymap-path km-list old-buf help-setup print-keymap goto-buffer-start] 3))

(defun describe-function (fun &aux doc) 87252 (interactive "aDescribe function:") (jade-byte-code "	F\"HHD	5‘ü û 9’ü \"û 9Laü /	û 9Jü 8
û 9I6nþ Q‚þ Q
F&HHwþ Ó’ÿ ÓDLaü uû wP6
HLaþ ‘MF&Hþ ÌDL	6Sbÿ ¶Ž
F&HEHMF&Hû ’H	EEHÿ Ý 	H!	H\"" [documentation fun doc help-setup symbol-function fval "Special Form" "Built-in Function" macro "Macro" "Function" type jade-byte-code concat "Compiled " format help-buffer "
%s: %s

" 2 1 lambda-list prin1 lambda symbol-name arg-name 0 38 translate-string upcase-table " %s" insert "

" "Undocumented." "
" goto-buffer-start] 5))

(defun describe-variable (var) (interactive "vDescribe variable:") (jade-byte-code "DJ
I²23H	ü 	û 
	±J
G±Hÿ 3HE" [documentation var old-buf doc help-setup format help-buffer "
%s: %s
Current value: %S

%s
" const-variable-p "Constant" "Variable" symbol-name symbol-value "Undocumented." goto-buffer-start] 9))

(defun describe-mode nil 87316 (interactive) (jade-byte-code "D1HD	4qþ HEE" [major-mode mode help-setup documentation doc format help-buffer "
%s
" goto-buffer-start] 4))

(defun documentation (symbol &optional is-variable) 87366 (jade-byte-code "yþ vDI1ü zF!û b	Laþ &	P	H	F H’ü ;	F!û b	Laÿ H
Laü TPF!û bJü aPF!û bIHpþ n	F!Hqþ uE" [symbol doc is-variable variable-documentation symbol-function autoload load 1 subr-documentation macro special 3 2 get-doc-string] 4))

(defun document-var (symbol doc-string) 87531 (jade-byte-code "{H" [symbol variable-documentation doc-string] 3))
