;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Fri Jul 1 20:34:13 1994 ;;; from file /home/fsf/rms/e19/lisp/loadhist.el ;;; emacs version 19.25.13. ;;; 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 "`/home/fsf/rms/e19/lisp/loadhist.el' was compiled for Emacs 19")) (defalias 'symbol-file #[(sym) "" [foundit (byte-code "\n\"Ç" [mapcar #[(x) " A>\f @\"" [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) " B\nA \n\"" [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 \"\f*" [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 \"\f*" [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 "\"\"" [defalias set-intersect #[(p q) "\f\" )" [nil ret mapcar #[(x) " > \nB" [x q ret] 2] p] 3] file-dependents #[(file) " !\" *" [file-provides file nil dependents provides mapcar #[(x) " @!\" @\fB" [set-intersect provides file-requires x dependents] 4] load-history] 3]] 3) (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) ";:!!!2!N1BM)" [x nil boundp makunbound fboundp fmakunbound autoload aload] 4]] 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))