;ELC   
;;; compiled by jwz@thalidomide on Mon May 23 23:48:58 1994
;;; from file /th/jwz/emacs19/lisp/packages/apropos.el
;;; emacs version 19.10 Lucid (beta25).
;;; 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 apropos-do-all nil "\
*Whether `apropos' and `super-apropos' should do everything that they can.
Makes them run 2 or 3 times slower.  Set this non-nil if you have a fast
machine.")
(fset 'apropos #[(regexp &optional do-all pred) "®	Â\"Æ!ˆÇÈÉ	$‘ˆ)‡" [apropos-do-all do-all apropos-internal regexp pred apropos-accumulate apropos-get-doc "*Help*" apropos-print-matches nil] 6 "\
Show all symbols whose names contain matches for REGEXP.
If optional argument DO-ALL is non-nil, does more (time-consuming) work such as
showing key bindings.  Optional argument PRED is called with each symbol, and
if it returns nil, the symbol is not shown.  Returns list of symbols and
documentation found." "sApropos (regexp): \nP"])
(fset 'apropos-get-doc #[(list) "Á‰‰‰:«´@Æ\n!­ƒÇ\n!È\nÉ\"­‡ÊËÌ\"O­‡ÊËÌ\"O\nE ˆA‰ªI,‡" [list nil symbol var-doc fn-doc p fboundp documentation documentation-property variable-documentation 0 string-match "\n"] 6])
(fset 'super-apropos #[(regexp &optional do-all) "®	Â‰‰‰Ç!	«„ÉÊ!ˆËÌÂÍ	$‘ˆ,‡" [apropos-do-all do-all nil item var-doc fn-doc apropos-accumulate super-apropos-check-doc-file regexp mapatoms super-apropos-accumulate "*Help*" apropos-print-matches t] 6 "\
Show symbols whose names/documentation contain matches for REGEXP.
If optional argument DO-ALL is non-nil, does more (time-consuming) work such as
showing key bindings and documentation that is not stored in the documentation
file.  Returns list of symbols and documentation found." "sSuper Apropos: \nP"])
(byte-code "ÀÁMˆÂÃMˆÄÅMˆÆÇMˆÈÉM‡" [super-apropos-check-doc-file #[(regexp) "ÀÁ\n\"Ä\"Å‰‰‰	\nŠ\nqˆÄÌ\n!ˆebˆÍÅÄ#«ÌÏÐ!ˆ`TfÑ=«ƒÒªÓ	ÓuˆÔ\n!`ÕÐÅÖ#«„`Sª`{ž‰¬Å‰E‰B	› ˆª,)-‡" [find-file-noselect expand-file-name internal-doc-file-name exec-directory t nil sym-list doc symbol type doc-buffer buffer-read-only bury-buffer re-search-forward regexp search-backward "" 70 1 2 read search-forward move item] 6] super-apropos-accumulate #[(symbol) "À	Â!\"«ŸÄ!‰AÆ!®ƒA@ ˆAAÇ!®ƒÈ8 ˆª¯Æ!‰	«À		\"«ˆÄ!A	 ˆÇ!‰\n«À	\n\"«‰Ä!AA\n ˆË‡" [string-match regexp symbol-name symbol apropos-get-accum-item item safe-documentation safe-documentation-property 2 fn-doc var-doc nil] 5] apropos-print-matches #[(matches &optional regexp spacing do-all) "À	Â\"‰pÃ‰‰Š	qˆ	¬„ÊË!ˆ:ƒÎ @‰@A«†o¬ƒÍ ˆÊ!ˆ«–Ï!«‘¬ŽŠqˆÐ	\"ˆ)Ò«¦Ó›‰¬…Ï!«˜ÕÖ×\"ˆ«‹ÊØÙÚ#!ˆª„ÊÛ!ˆÍ ˆA@‰«“ÊÜ!ˆÊ«†Ý!ª‚!ˆn¬ƒÍ ˆÞ8‰«“Êß!ˆÊ«†Ý!ª‚!ˆn„ Í ˆ‚ .Ò‡" [sort matches #[(a b) "@	@™‡" [a b] 2] nil symbol keys-done item old-buffer p standard-output princ "No matches found." spacing terpri do-all commandp apropos-match-keys regexp t 3 tem indent-to 30 1 mapconcat key-description ", " "(not bound to any keys)" "  Function: " substitute-command-keys 2 "  Variable: "] 6] apropos-match-keys #[(alist &optional regexp) "Á ‰«@Ä@@\n\"¤ˆA‰¬p*‡" [alist current-local-map lm rest where-is-internal] 5] apropos-get-accum-item #[(symbol) "	ž®ŠÂ‰E	B	ž‡" [symbol apropos-accumulate nil] 3]] 2)
(fset 'safe-documentation #[(function) "9«ŽÁ!«„KªÂ‰ªo:??­ž@Ã=«ƒA:­„@Ä>??­‰Å8‰;­‡" [function fboundp 0 macro (lambda autoload) 2] 3 "\
Like documentation, except it avoids calling `get_doc_string'.
Will return nil instead."])
(fset 'safe-documentation-property #[(symbol) "ÁN‰§?­‡" [symbol variable-documentation] 3 "\
Like documentation-property, except it avoids calling `get_doc_string'.
Will return nil instead."])