;ELC   
;;; compiled by jwz@thalidomide on Thu May  5 00:35:17 1994
;;; from file /th/jwz/emacs19/lisp/prim/help.el
;;; emacs version 19.10 Lucid (beta19).
;;; bytecomp version 2.24; 26-Apr-94.
;;; 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 "This file was compiled for Emacs 19."))

(defvar help-map (byte-code "À Â	Ã\"ˆÄ	ÅÆ!\"ˆ	)‡" [make-sparse-keymap map set-keymap-name help-map set-keymap-prompt gettext "(Type ? for further options)"] 4) "\
Keymap for characters following the Help key.")
(byte-code "À	MˆÂ	ÃÄ#ˆÂ	ÅÄ#ˆÂ	ÆÇ#ˆÂ	ÈÉ#ˆÂ	ÊË#ˆÂ	ÌÍ#ˆÂ	ÎÏ#ˆÂ	ÐÑ#ˆÂ	ÒÓ#ˆÂ	ÔÕ#ˆÂ	Ö×#ˆÂ	ØÙ#ˆÂ	Ú×#ˆÂ	ÛÜ#ˆÂ	ÝÞ#ˆÂ	ßà#ˆÂ	áâ#ˆÂ	ãâ#ˆÂ	äå#ˆÂ	æç#ˆÂ	èé#ˆÂ	êë#ˆìí!«†Â	Øí#ˆÂ	îï#ˆÂ	ðñ#ˆÂ	òó#ˆôõM‡" [help-command help-map define-key (control h) help-for-help "?" "" describe-copying "" describe-distribution "" describe-no-warranty "a" command-apropos "b" describe-bindings "p" describe-pointer "c" describe-key-briefly "k" describe-key "d" describe-function "e" describe-last-error "f" "i" info "l" view-lossage "m" describe-mode "" view-emacs-news "n" "s" describe-syntax "t" help-with-tutorial "w" where-is "v" describe-variable fboundp view-last-error (control i) Info-query (control k) Info-emacs-key (control f) Info-elisp-ref deprecated-help-command #[nil "ÀÁ!Â=«†ÃÄ!‰‡Æ ‡" [key-binding "" help-command character-to-event 8 unread-command-event help-for-help] 2 nil nil]] 4)
(fset 'help-with-tutorial #[nil "ÀÁ!Ã ˆÄ\n!«‡ÅÄ\n!!ª¾ÅÆ\n!!ˆ\nÀÈ!	ÊÌÀÍ\"!ˆebˆÏÐ!ˆÑyˆ`Êˆ`|ˆÒÓÔ !Õe`\"ZÖ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 newline window-height selected-window count-lines 6 set-buffer-modified-p] 5 "\
Select the Emacs learn-by-doing tutorial." nil])
(fset 'describe-key-briefly #[(key) "À‰Ã!«ÓGÅU«ÍÆÇH!¬ˆÇH¢È=«¾ÇH	Ê	!«‹Ë	!Ì	!Dªƒ	AÍ\n@Î=«„\nA@\n¢Ï=«„\nA@\n:«‡\nA¬ƒ\n@)ª„Ð!\n«„\n¨«ŠÑÒÓ!Ô!\"ª¨\n;¬…Ã\n!«‡Ð\n!®\nÑÒÕ!	«ƒÖªƒÔ!\n9«ƒ\nªƒ×\n!#*‡" [nil menup defn vectorp key 1 menu-event-p 0 menu-selection event eventp event-function event-object t eval call-interactively key-binding message gettext "%s is undefined" key-description "%s runs the command %s" "This menu item" prin1-to-string] 5 "\
Print the name of the function KEY invokes.  KEY is a string." "kDescribe key briefly: "])
(fset 'print-help-return-message #[(&optional function) "À	!?­£\n®ÃÄÅÆ!«Ž«…ÈÉ!ªˆÈÊ!ªƒÈË!!ÄÈÌ!!P!‡" [get-buffer-window standard-output function message substitute-command-keys one-window-p t pop-up-windows gettext "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."] 5 "\
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 the message, thus printing it."])
(fset 'describe-key #[(key) "ÀÂ!«ÑGÄU«ËÅÆH!¬ˆÆH¢Ç=«¼ÆHÉ!«‹Ê!Ë!DªƒA‰@Ì=«„	A@	¢Í=«„	A@	:«‡	A¬ƒ	@)ª„Î!	«„	¨«ŠÏÐÑ!Ò!\"ªõÐÓ!Ô	!ˆÕÖ!ˆ	;¬…Â	!«¯Î	!‰¬ˆÕÐØ!!ˆªœÕÙÐÚ!\"!ˆÕ!ˆÛ!«‡ÕÛ!!ˆ)ª®	:«—	¢Ü=¬‘ÕÝ!ˆÀß	@ \"ˆ)ª“Û	!«ˆÕÛ	!!ˆª†ÕÐá!!ˆâ ‘)‡" [nil defn vectorp key 1 menu-event-p 0 menu-selection event eventp event-function event-object eval call-interactively key-binding message gettext "%s is undefined" key-description "*Help*" prin1 princ ":\n" cmd "a keyboard macro" format "a keyboard macro which runs the command %s:\n\n" documentation lambda "\n" describe-function-show-arglist describe-function-1 standard-output "not documented" print-help-return-message] 6 "\
Display documentation of the function invoked by KEY.
KEY is a string, or vector of events.
When called interactvely, KEY may also be a menu selection." "kDescribe key: "])
(fset 'where-is #[(definition) "À	Â Ã‰‰%‰«‘ÅÆÇ!	ÈÉÊË\"Ì##ˆª‡ÅÆÍ!	\"ˆ)Ã‡" [where-is-internal definition current-local-map nil keys message gettext "%s is on %s" mapconcat key-description sort #[(x y) "G	GW‡" [x y] 2] ", " "%s is not on any keys"] 9 "\
Print message listing key sequences that invoke specified command.
Argument is a command definition, usually a symbol with a function definition." "CWhere is command: "])
(fset 'describe-mode #[(&optional minor) "ÀÁ!Â!ˆÂÀÄ!!ˆÂÅ!!ˆ­‚É \n‰«¾@@@A@\nž‰«žA«™Ï!«“ÂÐÀÑ!#!ˆÂÅ!!ˆ+A‰¬B*Ò ‘‡" [gettext "*Help*" princ mode-name " Mode:\n" documentation major-mode minor minor-mode-alist buffer-local-variables locals minor-modes minor-mode indicator local-binding fboundp format "\n\n\n%s minor mode (indicator%s):\n" print-help-return-message] 7 "\
Display documentation of current major mode.
If optional MINOR is non-nil (or prefix argument is given if interactive),
display documentation of active minor modes as well.
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])
(fset '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])
(fset '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])
(fset 'describe-pointer #[nil "ÀÁ!‡" [describe-bindings t] 2 "\
Show a list of all defined mouse buttons, and their definitions.
This is the same as \\[universal-argument] \\[describe-bindings]." nil])
(fset '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])
(fset 'view-emacs-news #[nil "ÀÁÂ\"!‡" [find-file-read-only expand-file-name "NEWS" data-directory] 4 "\
Display info on recent changes to Emacs." nil])
(fset 'view-lossage #[nil "ÀÁ!ÂÃÄ !!ˆŠqˆebˆÆÇ!ˆm¬‹ÈÉÊË#ˆÌcˆªn)Í ‘‡" [gettext "*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])
(fset 'help-for-help #[nil "À	!Â‰ÆÇÈ!É!\"ˆÊ Ë!®‰š¬ŠÌš¬…Íš«ƒÎ‹ˆÏÑ!\"®§­‰ÏÒÓ—\"\"ÆÂ!ˆ«†Õ!ª‚Ö ,‡" [copy-event last-command-event nil char event help-key message gettext "A B C F I K L M N P S T V W C-c C-d C-n C-w.  Type %s again for more help: " single-key-description next-command-event event-to-character 8 63 ((byte-code "ÀÁÂ!!ˆÃ ˆÄ ˆÅÆ!cˆebˆš¬†É>«¸Ê>«ƒË ˆÌ>«ƒÍ ˆÎÏd!«…ÁÐ!ªƒÁÑ!!ˆÒÔ!Ö!®‚)ª;À‡" [switch-to-buffer gettext "*Help*" delete-other-windows erase-buffer documentation help-for-help char help-key (8 63 22 32 127 246) (22 32) scroll-up (127 246) scroll-down message pos-visible-in-window-p "A B C F I K L M N P S T V W C-c C-d C-n C-w C-i C-k C-f: " "A B C F I K L M N P S T V W C-c C-d C-n C-w C-i C-k C-f or Space to scroll: " t cursor-in-echo-area next-command-event event event-to-character] 3)) lookup-key help-map vector make-string 1 defn call-interactively ding] 6 "\
You have typed \\[help-for-help], the help character.  Type a Help option:

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.
I  info. The  info  documentation reader.
K  describe-key.  Type a command key sequence;
	      it displays the full documentation.
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  describe-pointer.  Display table of all mouse-button bindings.
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-w print information on absence of warranty for GNU Emacs.

C-i Info-query.  Info reader, prompt for topic name.
C-k  Info-emacs-key.  Look up a key in Emacs manual.
C-f  Info-elisp-ref.  Look up a function in Emacs Lisp manual." nil])
(fset 'function-called-at-point #[nil "ÀÁÂ®„ÀÃÄ‡" [nil (byte-code "ŠŒe`ÀZ]d}ˆÁÂ!ˆÂuˆÃÅp!‰9­†Æ!­+‡" [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])
(defvar describe-function-show-arglist t "\
*If true, then describe-function will show its arglist if the function is
not an autoload.")
(fset 'describe-function #[(function) "ÀÁ!Â\"ˆÅ ˆŠqˆÆ )‘‡" [gettext "*Help*" describe-function-1 function standard-output print-help-return-message buffer-string] 4 "\
Display the full documentation of FUNCTION (a symbol)." (byte-code "À ÂÄ	«ˆÅÆÇ!	\"ªƒÆÈ!	ÊÂ$)‰Ìš«ƒ	ª„Í!*C‡" [function-called-at-point fn t enable-recursive-minibuffers completing-read format gettext "Describe function (default %s): " "Describe function: " obarray fboundp val "" intern] 6)])
(byte-code "ÀÁMˆÂÃMˆÄÅM‡" [describe-function-1 #[(function stream &optional nodoc) "À	\n\"ˆÃÄ\n\"ˆ	Æ	!®ƒÇÈ!	ÊÊÊÊ9«¨	=¬«ÏÇÐ!Ñ!\"PªŠÏÇÒ!Ñ!\"K‰ªU¢Ó=«‰AÔªƒ«Ó¢Ö=¬Ì¢×=«ÃA@®Ø\n\"ˆª³Ù!«ÃÚH®Ø\n\"ˆª Û!«ŸÜÝ	\"«˜Ã	Þ”Þ•O\n\"ˆ	Ú‰”O	Ãß\n\"ˆ«†Ã\n\"ˆà!;¬…â!«ÃÇã!\n\"ˆÔ‚wÛ!«“!«…Çä!ªƒÇå!!ˆ‚wÙ!«’!«…Çæ!ªƒÇç!!ˆªì9«ŽÃÏÇè!é!\"\n\"ˆªÙ¢×=«’!«…Çê!ªƒÇë!!ˆªÀ¢ì=«’Ã«…Çí!ªƒÇî!\n\"ˆª§¢Ö=«¡ïœ«‰!Çð!!ˆª‡!Çñ!!ˆÃÏÇò!Þœ\"\n\"ˆ)ó ˆ«¥ÃÇô!\n\"ˆÃõ!\n\"ˆö!‰­œÃÏÇ÷!\"\n\"ˆø\n\"ªŒ9«ƒÊª…Ã	\n\".‡" [prin1 function stream princ ": " def documentation gettext "not documented" doc nil aliases kbd-macro-p fndef macrop format "\n     which is an alias for %s, " symbol-name "an alias for %s, " macro t describe-function-show-arglist autoload lambda "()" compiled-function-p 0 subrp string-match "[\n	 ]*\narguments: ?\\((.*)\\)\n?\\'" 1 "\n  -- " #[(string) "ÀÁÂ!«…ÄÅ!ªƒÄÆ!\"\"‡" [princ format commandp def gettext "an interactive %s" "a %s" string stream] 4] int vectorp "a keyboard macro." "built-in macro." "built-in function." "compiled Lisp macro." "compiled Lisp function." "alias for `%s'." prin1-to-string "Lisp macro." "Lisp function." mocklisp "a mocklisp macro." "a mocklisp function." 4 "autoloaded Lisp macro" "autoloaded Lisp function" "\n  -- loads from \"%s\"" terpri "These characters are executed:\n\n	" key-description key-binding "\n\nwhich executes the command %s.\n\n" describe-function-1 nodoc] 6] describe-function-arglist #[(function) "ÀÂŽŠÃÄ!‰qˆÅ	!ˆÆ ˆÇ	É#ˆebˆÀˆm¬„ÊË!ˆÌ ˆÀˆÍe`{!+‡" [nil b ((byte-code "«„Á!ˆÁ‡" [b kill-buffer] 2)) get-buffer-create " *arglist*" buffer-disable-undo erase-buffer describe-function-1 function t delete-char 1 just-one-space message] 4 nil (byte-code "À ®ƒÁÂ!C‡" [function-called-at-point error "no function call at point"] 2)] variable-at-point #[nil "ÀÁÂ‡" [nil (byte-code "ŠÀÁ!ˆÂÃwˆÄp!‰9­†Æ!­*‡" [forward-sexp -1 "'" nil read obj boundp] 3) ((error))] 3]] 2)
(fset 'describe-variable #[(variable) "ÀÁ!ÂÃÀÄ!\"!ˆÆ!¬ˆÂÀÇ!!ˆª…ÈJ!ˆÉ ˆÉ ˆÂÀÊ!!ˆÉ ˆËÌ\"‰«‡Â!ˆª†ÂÀÎ!!ˆ)Ï ˆŠqˆÑ )‘‡" [gettext "*Help*" princ format "%s's value is " variable boundp "void." prin1 terpri "Documentation:" documentation-property variable-documentation doc "not documented as a variable." print-help-return-message standard-output buffer-string] 6 "\
Display the full documentation of VARIABLE (a symbol)." (byte-code "À ÂÄ	«ˆÅÆÇ!	\"ªƒÆÈ!	ÊÂ$)‰Ìš«ƒ	ª„Í!*C‡" [variable-at-point v t enable-recursive-minibuffers completing-read format gettext "Describe variable (default %s): " "Describe variable: " obarray boundp val "" intern] 6)])
(fset 'command-apropos #[(string) "ÀÁÂ!!ÄÅ!)ÇÉÊ#ˆ­„Æ!)‡" [get-buffer-create gettext "*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): "])
(fset 'locate-library #[(library &optional nosuffix) "À	\n?­Ä#‰«‰ÆÇÈ!\"ˆª‡ÆÇÉ!	\"ˆ)‡" [locate-file library load-path nosuffix ".elc:.el:" file message gettext "Library is file %s" "No library %s in search path"] 5 "\
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: \nP"])
(fset 'describe-syntax #[nil "ÀÁ!ÂÃ \"‘‡" [gettext "*Help*" describe-syntax-table syntax-table standard-output] 4 "\
Describe the syntax specifications in the syntax table.
The descriptions are inserted in a buffer, which is then displayed." nil])
(fset 'list-processes #[nil "ÀÁ!\nqˆÃ\n!ˆÄÅ!ˆÆ\nÈÀÉ!\"ˆÈÀÊ!\"ˆË …@Î!Ð!AÈÒÓÔ!\"\"ˆÈ\"ˆÕ=«”Ö!×U¬ŒÈÒØÖ!\"\"ˆÙ>«…Ú!ˆÛÜÝ\"ˆÞ!‰¬ŠÈÀà!\"ˆª™á!¬ŠÈÀâ!\"ˆª‰Èá!\"ˆ)ÛãÝ\"ˆ¨¬ ÈÀä!\"ˆÈ@\"ˆÈå\"ˆÈA\"ˆª£æ!''«˜È'@\"ˆ'A‰'«lÈè\"ˆªd)é!ˆ+‚( *‘‡" [gettext "*Process List*" standard-output buffer-disable-undo make-local-variable truncate-lines t stream princ "Proc         Status   Buffer         Command\n" "----         ------   ------         -------\n" process-list tail p process-id pid process-status s format "%-13s" process-name exit process-exit-status 0 " %d" (signal exit closed) delete-process indent-to 22 1 process-buffer b "(none)" buffer-name "(killed)" 37 "network stream connection " "@" process-command cmd " " terpri] 7 "\
Display a list of all processes.
(Any processes listed as Exited or Signaled are actually eliminated
after the listing is made.)" nil])