;;; compiled by jimb@geech.gnu.ai.mit.edu on Sat May 15 22:07:15 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/loadhist.el ;;; emacs version 19.5.19. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (defalias 'symbol-file #[(sym) "" [foundit (byte-code "\n\"Ç" [mapcar #[(x) " A> @\"" [sym x throw foundit] 3] load-history nil] 3)] 2 "\ Return the input source from which SYM was loaded. This is a file name, or nil if the source was a buffer with no associated file."]) (defalias 'feature-symbols #[(feature) "" [foundit (byte-code "\n\"Ç" [mapcar #[(x) "\nB A\" \"" [member provide feature x throw foundit] 3] load-history nil] 3)] 2 "\ Return the file and list of symbols associated with a given FEATURE."]) (defalias 'feature-file #[(feature) " ! !\" !@" [featurep feature error "%s is not a currently loaded feature." symbol-name feature-symbols] 4 "\ Return the file name from which a given FEATURE was loaded. Actually, return the load argument, if any; this is sometimes the name of a Lisp file without an extension. If the feature came from an eval-buffer on a buffer with no associated file, or an eval-region, return nil."]) (defalias 'file-provides #[(file) " \n\"A \" *" [assoc file load-history nil provides symbols mapcar #[(x) ":@=A\nB" [x provide provides] 2]] 3 "\ Return the list of features provided by FILE."]) (defalias 'file-requires #[(file) " \n\"A \" *" [assoc file load-history nil requires symbols mapcar #[(x) ":@=A\nB" [x require requires] 2]] 3 "\ Return the list of features required by FILE."]) (byte-code "MM" [set-intersect #[(p q) " \" )" [nil ret mapcar #[(x) " > \nB" [x q ret] 2] p] 3] file-dependents #[(file) " !\" *" [file-provides file nil dependents provides mapcar #[(x) " @!\" @ B" [set-intersect provides file-requires x dependents] 4] load-history] 3]] 2) (defalias 'unload-feature #[(feature &optional force) " ! !\" + !! * !#* ! @ A\"*" [featurep feature error "%s is not a currently loaded feature." symbol-name force feature-file file file-dependents dependents "Loaded libraries %s depend on %s." prin1-to-string feature-symbols flist mapcar #[(x) ";!!!)!N(M)" [x nil boundp makunbound fboundp fmakunbound autoload aload] 3]] 5 "\ Unload the library that provided FEATURE, restoring all its autoloads. If the feature is required by any other loaded code, and optional FORCE is nil, raise an error." "SFeature: "]) (provide (quote loadhist))