home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / packages / apropos.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  3.9 KB  |  36 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 16:31:16 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/apropos.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defvar apropos-do-all nil "\
  14. *Whether `apropos' and `super-apropos' should do everything that they can.
  15. Makes them run 2 or 3 times slower.  Set this non-nil if you have a fast
  16. machine.")
  17. (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 "\
  18. Show all symbols whose names contain matches for REGEXP.
  19. If optional argument DO-ALL is non-nil, does more (time-consuming) work such as
  20. showing key bindings.  Optional argument PRED is called with each symbol, and
  21. if it returns nil, the symbol is not shown.  Returns list of symbols and
  22. documentation found." "sApropos (regexp): \nP"])
  23. (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])
  24. (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 "\
  25. Show symbols whose names/documentation contain matches for REGEXP.
  26. If optional argument DO-ALL is non-nil, does more (time-consuming) work such as
  27. showing key bindings and documentation that is not stored in the documentation
  28. file.  Returns list of symbols and documentation found." "sSuper Apropos: \nP"])
  29. (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)
  30. (fset 'safe-documentation #[(function) "9½Ä┴!½äK¬ü┬ë¬o:??¡Ü@├=½âA@─>??¡ë┼8ë;¡üç" [function fboundp 0 macro (lambda autoload) 2] 3 "\
  31. Like documentation, except it avoids calling `get_doc_string'.
  32. Will return nil instead."])
  33. (fset 'safe-documentation-property #[(symbol) "┴Nëº?¡üç" [symbol variable-documentation] 3 "\
  34. Like documentation-property, except it avoids calling `get_doc_string'.
  35. Will return nil instead."])
  36.