;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 3 21:44:04 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/apropos.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/apropos.el' 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.") (defalias 'apropos #[(regexp &optional do-all pred) "  \f\" \"% !ɐ $ )" [apropos-do-all do-all apropos-internal regexp pred apropos-accumulate message "No apropos matches for `%s'" apropos-get-doc "*Help*" apropos-print-matches nil] 7 "\ Show all symbols whose names contain matches for REGEXP. If optional argument DO-ALL is non-nil (prefix argument if interactive), or if `apropos-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"]) (defalias (quote apropos-get-doc) #[(list) ":E @\n!\n!\n\"\f*\f\f\"O 6 \"O \n\f E A ," [list nil symbol var-doc fn-doc p fboundp documentation documentation-property variable-documentation 0 string-match "\n"] 6]) (defalias 'super-apropos #[(regexp &optional do-all) " ‰!\"\"5 *!͐ $," [apropos-do-all do-all nil item var-doc fn-doc apropos-accumulate super-apropos-check-doc-file regexp message "No apropos matches for `%s'" mapatoms super-apropos-accumulate "*Help*" apropos-print-matches t] 7 "\ Show symbols whose names/documentation contain matches for REGEXP. If optional argument DO-ALL is non-nil (prefix argument if interactive), or if `apropos-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 "\"\"\"\"\"" [defalias super-apropos-check-doc-file #[(regexp) " P\n\") \n q\f!eb#!`Tf=BӂCu! `#\\`S]`{\n  U| !) ! \") ÉE B )\n)) ." [doc-directory internal-doc-file-name doc-file nil auto-mode-alist find-file-noselect t doc-buffer type symbol doc sym-list buffer-read-only bury-buffer re-search-forward regexp search-backward "" 70 1 2 read search-forward move item fboundp documentation documentation-property variable-documentation] 6] super-apropos-accumulate #[(symbol) " !\"+ !A ! A@ AA !& 8^ ! D  \"D !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É \nq \"! : @@ A  AoA !d !ddq \")x !\"\f\f#!! A@!\f!\f!n 8!\f!\f!n\" \".Ӈ" [sort matches #[(a b) "@ @" [a b] 2] nil tem symbol keys-done item old-buffer p standard-output princ "No matches found." spacing terpri do-all commandp apropos-match-keys regexp t 3 indent-to 30 1 mapconcat key-description ", " "(not bound to any keys)" " Function: " substitute-command-keys 2 " Variable: "] 7] apropos-match-keys #[(alist &optional regexp) "  ! !\" \n \f\f:\f@A\f@@\fA@=EA;UAG:&@:@A @@\n : A9 A  9 !\"у \f!\n\n!\"\n\n!P\n\n\"    =\n\f\f\nB@!@@GWH \n :9 A99 A  9O !\"Pу \f!k\ny\n!\"\n\n!P\n\n\"    =\n\f\f\nBT+AW. " [current-local-map append accessible-keymaps current-global-map maps nil map sequence i command key local item keymap regexp string-match symbol-name t alist vectorp vconcat vector char-to-string lookup-key 3 0 len vec] 5] apropos-get-accum-item #[(symbol) " ‰E B " [symbol apropos-accumulate nil] 3]] 3) (defalias 'safe-documentation #[(function) "9!K‰= A:??:@>??:8;:" [function fboundp 0 macro (lambda autoload) 2] 3 "\ Like documentation, except it avoids calling `get_doc_string'. Will return nil instead."]) (defalias 'safe-documentation-property #[(symbol) "N? " [symbol variable-documentation] 3 "\ Like documentation-property, except it avoids calling `get_doc_string'. Will return nil instead."])