;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon May 22 16:07:54 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/apropos.el ;;; emacs version 19.28.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")) #@158 *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. (defvar apropos-do-all nil (#$ . -483)) #@44 Return non-nil if SYMBOL is not worthless. (defalias 'apropos-worthy-symbol-p #[(symbol) " ! ! !" [fboundp symbol boundp symbol-plist] 2 (#$ . 686)]) #@576 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. If PRED is nil, the default predicate is that the symbol has a value, function definition or property list. Optional argument NO-HEADER means don't print `Function:' or `Variable:' in the output. Returns list of symbols and documentation found. (defalias 'apropos #[(regexp &optional do-all pred no-header) " \n  \n\" \"0!ʐ  %)" [apropos-do-all do-all pred apropos-worthy-symbol-p apropos-internal regexp apropos-accumulate message "No apropos matches for `%s'" apropos-get-doc "*Help*" apropos-print-matches nil no-header] 8 (#$ . 853) "sApropos (regexp): \nP"]) (defalias '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]) (byte-code " B B B B! B B" [apropos-item current-load-list apropos-var-doc apropos-fn-doc apropos-accumulate boundp apropos-regexp "Within `super-apropos', this holds the REGEXP argument." apropos-files-scanned] 2) #@351 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. (defalias 'super-apropos #[(regexp &optional do-all) " \nÉ  ! $!2 \"@ϐ $." [apropos-do-all do-all regexp nil apropos-files-scanned apropos-item apropos-var-doc apropos-fn-doc apropos-accumulate apropos-regexp super-apropos-check-doc-file mapatoms super-apropos-accumulate message "No apropos matches for `%s'" "*Help*" apropos-print-matches t] 6 (#$ . 2277) "sSuper Apropos: \nP"]) (defalias 'super-apropos-check-doc-file #[(regexp) " P! \nˎ q \n!#!`Tf==Ղ>u !`#V`SW`{ \nUv!$!{\"$ƉE\nB\n$ $*\n." [doc-directory internal-doc-file-name doc-file get-buffer-create " apropos-temp" doc-buffer nil type symbol doc sym-list ((kill-buffer doc-buffer)) buffer-disable-undo erase-buffer insert-file-contents re-search-forward regexp t search-backward "" 70 1 2 read search-forward move apropos-item fboundp documentation documentation-property variable-documentation] 6]) (defalias 'super-apropos-check-elc-file #[(regexp file) "! ʎ\nq !#p!``\\\\#b!) bwu\n!):n\fA@o\fTZ{\f \f\"\f!\f!\fÉEB ق b%*." [get-buffer-create " apropos-temp" doc-buffer nil symbol doc length beg end this-is-a-variable ((kill-buffer doc-buffer)) buffer-disable-undo erase-buffer insert-file-contents file search-forward "\n#@" t read 1 re-search-forward regexp looking-at "(defvar\\|(defconst" "(a-z" 2 apropos-accumulate apropos-item documentation-property variable-documentation fboundp documentation] 5]) (defalias 'super-apropos-accumulate #[(symbol) " !\"1 !A !A@AA !,8 !:C !:_ @ \f[ \fB\f  \") !;  \" !A !;  \" !AA)" [nil doc string-match apropos-regexp symbol-name symbol apropos-get-accum-item apropos-item safe-documentation safe-documentation-property 2 file apropos-files-scanned super-apropos-check-elc-file apropos-fn-doc apropos-var-doc] 5]) (defalias 'apropos-print-matches #[(matches &optional regexp spacing do-all no-header) " \"pÉ \nq \"! : @@ A  AoA !d !ddq \")x !\"\f\f#!! A@\f!\f!!GV!!)n 8\f\f!\f!!GV!!)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)" substitute-command-keys substed no-header " " " Function: " 67 "\n " 2 " Variable: " help-mode] 7]) (defalias 'apropos-match-keys #[(alist &optional regexp) "   D  D C\" \"\"  \f  : @A  @@\f A  @=c A  ;s A e :? @:3 @A @@:@;A:@:A9!\"փ\f!\f!\"\f!P\"=B @! @ @G  W  H :mA9mA9!\"փ\f!\f!\"\f!P\"=B T J+ A u.\n" [current-local-map overriding-local-map current-global-map append current-minor-mode-maps top-maps apply mapcar accessible-keymaps 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] 6]) (defalias 'apropos-get-accum-item #[(symbol) " ‰E B " [symbol apropos-accumulate nil] 3]) #@89 Like documentation, except it avoids calling `get_doc_string'. Will return nil instead. (defalias 'safe-documentation #[(function) "9!K‰= A!1GVKH:??K@>??K8;K" [function fboundp 0 macro byte-code-function-p 4 (lambda autoload) 2] 3 (#$ . 6504)]) #@98 Like documentation-property, except it avoids calling `get_doc_string'. Will return nil instead. (defalias 'safe-documentation-property #[(symbol) "N? " [symbol variable-documentation] 3 (#$ . 6806)])