;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May  3 21:50:06 1994
;;; from file /gd/gnu/emacs/19.0/lisp/help.el
;;; emacs version 19.22.92.2.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/gd/gnu/emacs/19.0/lisp/help.el' was compiled for Emacs 19"))

(defvar help-map (make-sparse-keymap) "\
Keymap for characters following the Help key.")
(byte-code "ہ	آ!ؤ#ˆؤMˆہآ!ئ#ˆہائ#ˆہبة#ˆہتث#ˆہجح#ˆہخد#ˆہذر#ˆہزس#ˆہشص#ˆہض×#ˆہطظ#ˆہعظ#ˆہغـ#ˆہفق#ˆہكà#ˆہلâ#ˆہمن#ˆہهو#ˆہçو#ˆہèé#ˆêéë\"ˆہىي#ˆہîï#ˆہًٌ#ˆہٍَ#ˆہôُ#ˆُِ÷\"‡" [define-key global-map char-to-string help-char help-command help-map help-for-help "?" "" describe-copying "" describe-distribution "" describe-no-warranty "" describe-project "a" command-apropos "b" describe-bindings "c" describe-key-briefly "k" describe-key "d" describe-function "f" "i" info "" Info-goto-emacs-command-node "" Info-goto-emacs-key-command-node "l" view-lossage "m" describe-mode "" view-emacs-news "n" "p" finder-by-keyword autoload "finder" "s" describe-syntax "t" help-with-tutorial "w" where-is "v" describe-variable "q" help-quit defalias (lambda nil (interactive))] 4)
(defalias 'help-with-tutorial #[nil "ہء!أ ˆؤ\n!ƒ إؤ\n!!‚v إئ\n!!ˆ\nہب!	تجہح\"!ˆebˆدذ!ˆرyˆ`تˆ`|ˆزس !شe`\"ZصZ‰×WƒZ ط!ˆ‚o طظ¥!ˆعغ±ˆط‰ظ¥Z!ˆ)ebˆـت!)‡" [expand-file-name "~/TUTORIAL" file delete-other-windows get-file-buffer switch-to-buffer create-file-buffer buffer-file-name "~/" default-directory nil buffer-auto-save-file-name insert-file-contents "TUTORIAL" data-directory search-forward "\n<<" 0 window-height selected-window count-lines 6 n 12 newline 2 "[Middle of page left blank for didactic purposes.  " "Text continues below]" set-buffer-modified-p] 5 "\
Select the Emacs learn-by-doing tutorial." nil])
(defalias 'describe-key-briefly #[(key) "‰GSH‰<ƒ 	@	9ƒ آأ	!>ƒ ؤ ˆ)إ!‰ƒ. ¨ƒ7 ابة!\"‚L اتة!9ƒG ‚K ث!#)‡" [key type down event-modifiers read-event key-binding defn message "%s is undefined" key-description "%s runs the command %s" prin1-to-string] 6 "\
Print the name of the function KEY invokes.  KEY is a string." "kDescribe key briefly: "])
(defalias 'print-help-return-message #[(&optional function) "ہ	!?…' \n†\f أؤإئ!ƒ  ƒ ب‚! ة‚! ت!ؤث!P!‡" [get-buffer-window standard-output function message substitute-command-keys one-window-p t pop-up-windows "Type \\[delete-other-windows] to remove help window." "Type \\[switch-to-buffer] RET to remove help window." "Type \\[switch-to-buffer-other-window] RET to restore the other window." "  \\[scroll-other-window] to scroll the help."] 4 "\
Display or return message saying how to restore windows after help command.
Computes a message and applies the optional argument FUNCTION to it.
If FUNCTION is nil, applies `message' to it, thus printing it."])
(defalias 'describe-key #[(key) "‰GSH‰<ƒ 	@	9ƒ آأ	!>ƒ ؤ ˆ)إ!‰ƒ. ¨ƒ7 ابة!\"‚Z تگث!ˆجح!ˆخ!ƒS جخ!!ˆ‚W جد!ˆذ ‘)‡" [key type down event-modifiers read-event key-binding defn message "%s is undefined" key-description "*Help*" prin1 princ ":\n" documentation "not documented" print-help-return-message] 5 "\
Display documentation of the function invoked by KEY.  KEY is a string." "kDescribe key: "])
(defalias 'describe-mode #[nil "ہگ	آ ‰ƒr \f@@\f@A@‍‰ƒj Aƒj ب!ƒj 	تثج!\"ƒA حج!خ‰”O!	ƒU 9ƒU J‰„F دذر	#!ˆدز!!ˆدس!ˆ)+\fA‰„ *د!ˆدص!ˆدز!!ˆ× ‘‡" ["*Help*" minor-mode-alist buffer-local-variables locals minor-modes minor-mode indicator local-binding fboundp pretty-minor-mode string-match "-mode$" symbol-name capitalize 0 princ format "%s minor mode (indicator%s):\n" documentation "\n\n" mode-name " mode:\n" major-mode print-help-return-message] 7 "\
Display documentation of current major mode and minor modes.
For this to work correctly for a minor mode, the mode's indicator variable
(listed in `minor-mode-alist') must also be a function whose documentation
describes the minor mode." nil])
(byte-code "ہءKM‡" [defining-kbd-macro start-kbd-macro] 2)
(defalias 'describe-distribution #[nil "ہءآ\"!‡" [find-file-read-only expand-file-name "DISTRIB" data-directory] 4 "\
Display info on how to obtain the latest version of GNU Emacs." nil])
(defalias 'describe-copying #[nil "ہءآ\"!ˆeb‡" [find-file-read-only expand-file-name "COPYING" data-directory] 4 "\
Display info on how you may redistribute copies of GNU Emacs." nil])
(defalias 'describe-project #[nil "ہءآ\"!ˆeb‡" [find-file-read-only expand-file-name "GNU" data-directory] 4 "\
Display info on the GNU project." nil])
(defalias 'describe-no-warranty #[nil "ہ ˆءأؤ!ˆإئ!)‡" [describe-copying nil case-fold-search search-forward "NO WARRANTY" recenter 0] 2 "\
Display info on all the kinds of warranty Emacs does NOT have." nil])
(defalias 'describe-prefix-bindings #[nil "ہ آ	GSأ\"أئئ\fGWƒ# \f	HIˆT‰‚ ا\f!+‡" [this-command-keys key make-vector nil prefix i 0 describe-bindings] 5 "\
Describe the bindings of the prefix used to reach this command.
The prefix described consists of all but the last event
of the key sequence that ran this command." nil])
(byte-code "ہہ‡" [describe-prefix-bindings prefix-help-command] 1)
(defalias 'view-emacs-news #[nil "ہءآ\"!‡" [find-file-read-only expand-file-name "NEWS" data-directory] 4 "\
Display info on recent changes to Emacs." nil])
(defalias 'view-lossage #[nil "ہگءآأ !!ˆٹ\fqˆebˆإئ!ˆm„$ ابةت#ˆثcˆ‚ )ج ‘‡" ["*Help*" princ key-description recent-keys standard-output move-to-column 50 search-forward " " nil t "\n" print-help-return-message] 5 "\
Display last 100 input keystrokes." nil])
(defalias (quote help) (quote help-for-help))
(defalias 'help-for-help #[nil "ہء!ƒ\f ؤ\n!ˆإئ!ب 	تت\fتتدژ	،ˆر	زس#ˆƒA شت!‰صH‚D ضض=„S =ƒ™ ط \fظع!ˆغ ˆcˆebˆـB>„v فڑƒ™ تقكڈˆà!شâمنd!ƒ‹ ه‚Œ و\"!‰صH)‚e <ƒ­ 'B'ت‰\f‚ر è!‰)ƒخ \fƒؤ ê\f!ˆت\fت	ë)!‚ذ ى ).‡" [substitute-command-keys "a b c f C-f i k C-k l m n p s t v w C-c C-d C-n C-w, or ? for more help:" line-prompt three-step-help message documentation help-for-help help-screen make-sparse-keymap overriding-local-map nil minor-mode-map-alist config key char ((byte-code "ƒ ء!ˆء‡" [config set-window-configuration] 2)) help-map define-key [t] undefined read-key-sequence 0 63 help-char current-window-configuration switch-to-buffer-other-window "*Help*" erase-buffer (63 22 32 127 delete -8388490) "ِ" (byte-code "ء>ƒ	 آ ˆأ>„ \fإڑƒ ئ ˆآ‡" [char (22 32) scroll-up (127 -8388490 delete) key "ِ" scroll-down] 2) ((error)) t cursor-in-echo-area format "Type one of the options listed%s: " pos-visible-in-window-p "" " or Space to scroll" unread-command-events key-binding defn set-window-configuration call-interactively ding] 6 "\
You have typed \\[help-command], the help character.  Type a Help option:
(Use \\<help-map>\\[scroll-up] or \\[scroll-down] to scroll through this text.
Type \\<help-map>\\[help-quit] to exit the Help command.)

a  command-apropos.  Give a substring, and see a list of commands
	(functions interactively callable) that contain
	that substring.  See also the  apropos  command.
b  describe-bindings.  Display table of all key bindings.
c  describe-key-briefly.  Type a command key sequence;
	it prints the function name that sequence runs.
f  describe-function.  Type a function name and get documentation of it.
C-f Info-goto-emacs-command-node.  Type a function name;
	it takes you to the Info node for that command.
i  info. The  info  documentation reader.
k  describe-key.  Type a command key sequence;
	it displays the full documentation.
C-k Info-goto-emacs-key-command-node.  Type a command key sequence;
	it takes you to the Info node for the command bound to that key.
l  view-lossage.  Shows last 100 characters you typed.
m  describe-mode.  Print documentation of current major mode,
	which describes the commands peculiar to it.
n  view-emacs-news.  Shows emacs news file.
p  finder-by-keyword. Find packages matching a given topic keyword.
s  describe-syntax.  Display contents of syntax table, plus explanations
t  help-with-tutorial.  Select the Emacs learn-by-doing tutorial.
v  describe-variable.  Type name of a variable;
	it displays the variable's documentation and value.
w  where-is.  Type command name; it prints which keystrokes
	invoke that command.
C-c print Emacs copying permission (General Public License).
C-d print Emacs ordering information.
C-n print news of recent Emacs changes.
C-p print information about the GNU project.
C-w print information on absence of warranty for GNU Emacs." nil])
(defalias (quote function-called-at-point) #[nil "ہءآڈ† ہأؤڈ‡" [nil (byte-code "ٹŒe`ہZ]d}ˆءآ!ˆآuˆأإp!‰9…# ئ\f!…# \f+‡" [1000 backward-up-list 1 nil obj read fboundp] 4) ((error)) (byte-code "ٹہء!ˆآأwˆؤp!‰9… ئ!… *‡" [forward-sexp -1 "'" nil read obj fboundp] 3) ((error))] 3])
(defalias 'describe-function #[(function) "ہگء\n!ˆأؤ!ˆ\nKئ!ƒ ا‚ ب	أ;„& ت!ƒ* ث‚ک ج!ƒ7 	حP‚ک خ!ƒD 	دP‚ک 9ƒP ذر\"‚ک ¢ز=ƒ^ 	سP‚ک ¢ش=ƒi ص‚ک ¢ض=ƒt ×‚ک ¢ط=ƒ— ذظئ!ƒ‡ ع‚ˆ غـ8ƒ’ ف‚“ ق#‚ک ك!ˆà ˆخ!ƒ« لâ\"@‚¹ ¢ز=ƒ¸ A@‚¹ م‰$<ƒح أ\nهو$\"B!ˆà ˆ)ç\n!ƒà à ˆأç\n!!ˆ‚ن أè!ˆ*é ˆٹ*qˆë )‘‡" ["*Help*" prin1 function princ ": " def commandp "an interactive " "a " beg vectorp "a keyboard macro." subrp "built-in function." byte-code-function-p "compiled Lisp function." format "alias for `%s'." lambda "Lisp function." macro "a Lisp macro." mocklisp "a mocklisp function." autoload "%s autoloaded Lisp %s." "an interactive" "an" 4 "macro" "function" "" terpri append nil t arglist mapcar #[(arg) "ء>ƒ ‡آأ!–!‡" [arg (&optional &rest) intern symbol-name] 3] documentation "not documented" print-help-return-message standard-output buffer-string] 8 "\
Display the full documentation of FUNCTION (a symbol)." (byte-code "ہ ءآئƒ اب\"‚ ة\nثء$‰جڑƒ$ ‚' ح!+C‡" [function-called-at-point t nil val enable-recursive-minibuffers fn completing-read format "Describe function (default %s): " "Describe function: " obarray fboundp "" intern] 6)])
(defalias (quote variable-at-point) #[nil "ہءآڈ‡" [nil (byte-code "ٹہء!ˆآأwˆؤp!‰9… ئ!… *‡" [forward-sexp -1 "'" nil read obj boundp] 3) ((error))] 3])
(defalias 'describe-variable #[(variable) "ہگء\n!ˆأؤ!ˆإ\n!„ أئ!ˆ‚ ء\nJ!ˆا ˆا ˆأب!ˆا ˆة\nت\"‰ƒ= أج!!ˆ‚A أح!ˆ)خ ˆٹqˆذ )‘‡" ["*Help*" prin1 variable princ "'s value is " boundp "void." terpri "Documentation:" documentation-property variable-documentation doc substitute-command-keys "not documented as a variable." print-help-return-message standard-output buffer-string] 5 "\
Display the full documentation of VARIABLE (a symbol).
Returns the documentation as a string, also." (byte-code "ہ ءآئƒ اب\"‚ ة\nثء$‰جڑƒ$ ‚' ح!+C‡" [variable-at-point t nil val enable-recursive-minibuffers v completing-read format "Describe variable (default %s): " "Describe variable: " obarray boundp "" intern] 6)])
(defalias 'where-is #[(definition) "ہ	\nأ‰$إئ\fا#‰GةVƒ تث	#ˆ‚$ تج	\"ˆ*أ‡" [where-is-internal definition overriding-local-map nil keys mapconcat key-description ", " keys1 0 message "%s is on %s" "%s is not on any key"] 6 "\
Print message listing key sequences that invoke specified command.
Argument is a command definition, usually a symbol with a function definition." (byte-code "ہ ءآئƒ اب\"‚ ة\nثء$‰جڑƒ$ ‚' ح!+C‡" [function-called-at-point t nil val enable-recursive-minibuffers fn completing-read format "Where is command (default %s): " "Where is command: " obarray fboundp "" intern] 6)])
(defalias 'command-apropos #[(string) "ہء!أؤ!)ئبة#… … إ!)‡" [get-buffer-create "*Help*" standard-output print-help-return-message identity message apropos string t commandp] 4 "\
Like apropos but lists only symbols that are names of commands
(interactively callable functions).  Argument REGEXP is a regular expression
that is matched against command symbol names.  Returns list of symbols and
documentation found." "sCommand apropos (regexp): "])
(defalias 'locate-library #[(library &optional nosuffix) "ہءچ‡" [answer (byte-code "ہء\n\"ˆأؤ\"ˆئ‡" [mapcar #[(dir) "ہء\nƒ\n أ‚ ؤ\"‡" [mapcar #[(suf) "ہ	\nP\"إ\f!… ئ\f!?… اب\f\"ˆةت\f\")‡" [expand-file-name library suf dir try file-readable-p file-directory-p message "Library is file %s" throw answer] 3] nosuffix ("") (".elc" ".el" "")] 3] load-path message "No library %s in search path" library nil] 3)] 2 "\
Show the full path name of Emacs library LIBRARY.
This command searches the directories in `load-path' like `M-x load-library'
to find the file that `M-x load-library RET LIBRARY RET' would load.
Optional second arg NOSUFFIX non-nil means don't add suffixes `.elc' or `.el'
to the specified name LIBRARY (a la calling `load' instead of `load-library')." "sLocate library: "])